Widgets intermediários em PHP-GTK
Publicado por Gabriel Falcão Gonçalves de Moura 01/11/2006
[ Hits: 5.376 ]
Homepage: http://gabrielfalcao.com
Script simples/intermediário que gera alguns widgets (objetos) em php-gtk. Funções básicas estão atribuídas aos botões de eventos.
Parcialmente comentado.
<?php /* $Id: gabriel.php,v 1.7 2002/12/04 17:31:50 fmk Exp $ */ if (!extension_loaded('gtk')) { dl( 'php_gtk.' . PHP_SHLIB_SUFFIX); } function matar() { Gtk::main_quit(); } function deleta_evento() { return false; } function criapasta() { $executar= exec("notepad.exe"); } function removepasta() { rmdir("c:\pasta"); } //função cria arquivo function criaarquivo() { $filename = 'C:\teste.txt'; $somecontent = $entry; // Tendo certeza que o arquivo existe e que há permissão de escrita primeiro. // Em nosso exemplo, nós estamos abrindo $filename em modo de append (acréscimo). // O ponteiro do arquivo estará no final dele desde // que será aqui que $somecontent será escrito com fwrite(). $handle = fopen($filename, 'w'); // Escrevendo $somecontent para o arquivo aberto. fwrite($handle, $somecontent); fclose($handle); } //fim da função edita arquivo // Desenha a janela: //cria nova janela $janela = &new GtkWindow(); //Define o título da janela $janela->set_title('Nação Linux - Instalador de Programas'); //quando o X da janela for clicado, chama a função matar(), que mata o GTK $janela->connect('destroy', 'matar'); //fixo: cancela algum evento $janela->connect('delete_event', 'deleta_evento'); //Define o tamanho da janela (largura,altura) $janela->set_default_size(400, 240); $janela->set_position(GTK_WIN_POS_CENTER); // Desenha os botões: $btn_criapasta = &new GtkButton('Editar repositórios Debian'); $btn_criapasta->connect('clicked', 'criapasta'); $repos_nacao_label = &new GtkLabel("Repositório padrão(Nação Linux)"); $repos_nacao_label->show(); $btn_removepasta = &new GtkButton('Salvar repositório'); $btn_removepasta->connect('clicked', ''); $btn_instala = &new GtkButton('Instalar pacote'); $btn_instala->connect('clicked', ''); $entry = &new GtkEntry(); $entry->set_text('http://www.nacaolivre.org/repositorio deb'); // $entry->select_region(0, 5); //seleciona os 5 primeiros caracteres $entry->show(); //$janela->add($btn_criapasta); $box1 = &new GtkVBox(); $box1->set_border_width(10); $janela->add($box1); $label = &new GtkLabel("Configurar repositórios de Programas"); $label->show(); $label2 = &new GtkLabel("Selecione o pacote a instalar:"); $label2->show(); $box1->pack_start($label); $box1->pack_start($btn_criapasta); $box1->pack_start($repos_nacao_label); $box1->pack_start($entry); $box1->pack_start($btn_removepasta); $box1->pack_start($label2); $box2 = &new GtkHBox(); $box2->set_border_width(10); //////////////////////////////////////////////////////// $list = &new GtkList(); $list->set_selection_mode(GTK_SELECTION_BROWSE); $items[] = &new GtkListItem("W32Codecs"); $items[] = &new GtkListItem("Gaim"); $items[] = &new GtkListItem("Amsn"); $items[] = &new GtkListItem("amaroK"); $items[] = &new GtkListItem("GnomeBaker"); $items[] = &new GtkListItem("Karamba"); $items[] = &new GtkListItem("KDE"); $items[] = &new GtkListItem("WindowMaker"); $items[] = &new GtkListItem("Blackbox"); $list->append_items($items); /* * Create a scrolled window and add the list widget to it - this provides * automatic scrollbars. */ $scrolled_window = &new GtkScrolledWindow(); $scrolled_window->set_policy(GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); $scrolled_window->add_with_viewport($list); $box2->pack_start($scrolled_window); $box2->pack_start($btn_instala); ///////////////////////////////////////////////////////// $box1->pack_start($box2); //Mostra todo o conteúdo adicionado à janela $janela->show_all(); //Comando que inicia o loop infinito, que só é quebrado pelo gtk::main_quit Gtk::main(); ?>
Mostrar todas as variáveis e valores da variável global $_POST
Gerenciador de Escola de Informática
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Instalando Google Chrome no Debian 13
meus dois pen drives não são mais reconhecidos pelo meu PC apos tentar... (1)
meus dois pen drives não são mais reconhecidos pelo meu PC apos tentar... (1)