File: splash

package info (click to toggle)
pronto 2.4.0-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,112 kB
  • ctags: 488
  • sloc: perl: 22,159; makefile: 140; sh: 34; sql: 7
file content (19 lines) | stat: -rw-r--r-- 409 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use Gtk;
init Gtk;
$w = new Gtk::Window("toplevel");
$w->realize();
$w->window->set_decorations(0);
$v = new Gtk::VBox(0,0);
$s = new Gtk::Statusbar();
($p,$m) = Gtk::Gdk::Pixmap->create_from_xpm($w->window,$w->style->bg('normal'),"splash.xpm");
$i = new Gtk::Pixmap($p,$m);
$w->add($v);
$v->pack_start($i,0,0,0);
$v->pack_start($s,0,0,0);
show_all $w;
blah();
Gtk->main();
sub blah
{
	$s->push(1,"blah");
}