set_default_size(350, 450); // Tamanho da Janela
$Janela->set_title("Menu em PHP-GTK"); // T�tulo da Janela
$Janela->set_position(GTK_WIN_POS_CENTER); // Define a posi��o da Janela com a constante GTK_WIN_POS_CENTER para centralizar a janela
$Janela->set_border_width(5); // Seta o tamanho da borda
$Janela->connect_object('destroy', array('gtk', 'main_quit')); // Necess�rio para destruir a janela caso ela for fechada.
/* Agora que j� criamos a janela e setamos suas principais propiedades, vamos criar o Menu, que ter� a seguinte estrutura:
Clientes -> Cadastrar
-> Editar
-> Excluir
-> -
-> Fechar
Ferramentas
-> Op��es Gerais
Ajuda
-> Sobre o sistema
Mas antes de criamos o menu nos temos q criar uma caixa vertical para a janela:
*/
$Caixa = &new GtkVBox(); // Cria uma caixa vertical para abrigar menus, paineis etc...
// Atribuindo ele a Janela:
$Janela->add($Caixa);
// Agora iremos criar o menu:
$Menu = &new GtkMenuBar; // Classe com as propiedades do menu
// atribuindo o menu a caixa da janela:
$Caixa->pack_start($Menu, false, false, 0);
// Criando o menu Clientes:
$Clientes = &new GtkMenuItem("Clientes"); // Cria o item para o menu
$Menu->append($Clientes); // Junta o item Cliente ao Menu
$Ferramentas = &new GtkMenuItem("Ferramentas"); // Cria o item ferramentas
$Menu->append($Ferramentas); // Junta o item ao Menu
$Ajuda = &new GtkMenuItem("Ajuda"); // Cria o item Ajuda
$Menu->append($Ajuda); // Adiciona o item ao Menu
// Vamos criar agora os submenus
// Sub Menus -> Clientes:
$M_Clientes = &new GtkMenu(); // Necess�rio para criar o submenu
$Clientes_Cadastro = &new GtkMenuItem("Cadastrar");
$M_Clientes->append($Clientes_Cadastro);
$Clientes_Editar = &new GtkMenuItem("Editar");
$M_Clientes->append($Clientes_Editar);
$Clientes_Excluir = &new GtkMenuItem("Excluir");
$M_Clientes->append($Clientes_Excluir);
$Clientes_Separador = &new GtkMenuItem(); // Cria o separador
$Clientes_Separador->set_sensitive(false); // Desabilita o separador
$M_Clientes->append($Clientes_Separador);
$Clientes_Sair = &new GtkMenuItem("Sair");
$M_Clientes->append($Clientes_Sair);
// Vamos atribuir como submenu:
$Clientes->set_submenu($M_Clientes);
// Sub Menus do Item Ferramentas:
$M_Ferr = &new GtkMenu();
$Ferr_op = &new GtkMenuItem("Opcoes Gerais");
$M_Ferr->append($Ferr_op);
// Setando como submenu:
$Ferramentas->set_submenu($M_Ferr);
// Criando o sub menu para Ajuda:
$M_Ajuda = &new GtkMenu();
$Ajuda_Sobre = &new GtkMenuItem("Sobre o sistema");
$M_Ajuda->append($Ajuda_Sobre);
// Setando como submenu:
$Ajuda->set_submenu($M_Ajuda);
// Agora iremos mostra os itens da janela:
$Janela->show_all();
// Gerando o Loop
Gtk :: main();
?>