用PHP开发GUI（一个简单的例子）

环境：w2k+php4.3.1+php/gtk0.5.2
一个简单的记事本（只可以打开文件进行修改）
<?php
set_time_limit (0);  // 设置运行时间

if (!class_exists ("gtk"))  // 判断是否有gtk模块
if (strtoupper (substr ($_server["os"], 0, 3)) == "win")
dl ("php_gtk.dll");
else
dl ("php_gtk.so");

$window = &new gtkwindow (); // 建一个窗口
$window->set_uposition (100, 100); // 窗口出现位置
$window->set_usize ((gdk::screen_width()-200), (gdk::screen_height()-150)); // 窗口大小
$window->set_title ("windows");  // 设置窗口标题
$window->connect_object ('destroy', array ('gtk', 'main_quit'));  // 注册窗口的事件

$vbox = &new gtkvbox ();  
$hbox = &new gtkhbox ();  
$window->add ($vbox);


$menubar = &new gtkmenubar ();  // 创建菜单
$vbox->pack_start ($menubar, false, false, 0);

$file = &new gtkmenuitem ("file");
$menubar->append ($file);

$filemenu = &new gtkmenu ();
$open = &new gtkmenuitem ("open");
$save = &new gtkmenuitem ("save");
$line = &new gtkmenuitem ();
$line->set_sensitive (true);
$exit = &new gtkmenuitem ("exit");
$filemenu->append ($open);
$open->connect_object ('activate', 'showfileselection');
$filemenu->append ($save);
$save->connect_object ('activate', 'savefile');
$filemenu->append ($line);
$filemenu->append ($exit);
$exit->connect_object ('activate', array ('gtk', 'main_quit'));

$file->set_submenu ($filemenu);

$scroll = &new gtkscrolledwindow ();
$scroll->set_border_width (8);
$scroll->set_policy (gtk_policy_automatic, gtk_policy_automatic);
$hbox->pack_start ($scroll, true, true, 0);
$vbox->pack_start ($hbox, true, true, 1);

$text = &new gtktext ();
$text->set_editable (true);
$text->set_word_wrap (true);
$scroll->add ($text);

function showfileselection ()  // 文件选择函数
{
$file = &new gtkfileselection ("file selection");
$ok_button = $file->ok_button;
$ok_button->connect ('clicked', 'openfile', $file);
$ok_button->connect_object ('clicked', array ($file, 'destroy'));
$cancel_button = $file->cancel_button;
$cancel_button->connect_object ('clicked', array ($file, 'destroy'));
$file->show ();
}

$filepath = null;
function openfile ($button, $f) // 打开文件的函数
{
global $text, $save, $filepath;
$filepath = $f->get_filename ();
if (is_file ($filepath))
{
$fp = fopen ($filepath, 'r');
while (!feof ($fp))
$str .= fgets ($fp, 1024);
$text->insert (null, null, null, $str);
fclose ($fp);
return $filepath;
}
}

function savefile () // 保存文件的函数
{
global $filepath, $text;
if (is_file ($filepath))
{
$str = $text->get_chars (0, -1);
$fp = fopen ($filepath, 'w');
fwrite ($fp, $str);
fclose ($fp);
}
return;
}

$window->show_all ();  // 显示窗体内的所有控件
gtk::main (); // 最重要的一句，不可少的
?>