<?php
dl('php_gtk.'.(strstr(PHP_OS, 'WIN') ? 'dll' : 'so'));
$window = &new GtkWindow();
$window->set_position(GTK_WIN_POS_CENTER);
$window->connect_object('destroy', array('gtk', 'main_quit'));
$box = &new GtkHBox();
$window->add($box);
$text = &new GtkText();
$text->set_word_wrap(true);
$string = "This is a string of text which will be displayed in the
GtkText widget.\n\nIt isn't long enough to allow scrolling, so you will
probably need to extend it.\n\nOn the other hand, the box isn't sized, so
it may just creep over that limit and be a useful demonstration after
all.";
if(strstr(PHP_OS, 'WIN')) $string = wordwrap($string, 26);
$text->insert_text($string, 0);
$box->pack_start($text);
$adj = $text->vadj;
$scrollbar = &new GtkVScrollbar($adj);
$box->pack_end($scrollbar, false);
$window->show_all();
gtk::main();
?>
|