summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-06 21:19:36 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-06 21:19:36 +0000
commit173f1d689545127dfa129b28759867f326638bb3 (patch)
treeb52a75c8093042e31965afa2791f7fdc748ed125 /perl-install
parent35aceef47d612eb0748fec5166846d473523d933 (diff)
downloaddrakx-173f1d689545127dfa129b28759867f326638bb3.tar
drakx-173f1d689545127dfa129b28759867f326638bb3.tar.gz
drakx-173f1d689545127dfa129b28759867f326638bb3.tar.bz2
drakx-173f1d689545127dfa129b28759867f326638bb3.tar.xz
drakx-173f1d689545127dfa129b28759867f326638bb3.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm13
1 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 43ee42903..e5f7a6f26 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -277,14 +277,15 @@ sub _create_window($$) {
$w->signal_connect_after(expose_event =>
sub { $w->window->draw_rectangle($w->style->black_gc, 1, 0, 0, @{$w->allocation}[2,3]); 1 }
);
+ $w->show;
$w;
};
-
- $t->attach(&$new(), 0, 1, 0, 3, [], , ["expand","fill"], 0, 0);
- $t->attach(&$new(), 1, 2, 0, 1, ["expand","fill"], [], 0, 0);
- $t->attach($f, 1, 2, 1, 2, ["expand","fill"], ["expand","fill"], 0, 0);
- $t->attach(&$new(), 1, 2, 2, 3, ["expand","fill"], [], 0, 0);
- $t->attach(&$new(), 2, 3, 0, 3, [], ["expand","fill"], 0, 0);
+
+ $t->attach(&$new(), 0, 1, 0, 3, [], , ["expand","fill"], 0, 0);
+ $t->attach(&$new(), 1, 2, 0, 1, ["expand","fill"], [], 0, 0);
+ $t->attach($f, 1, 2, 1, 2, ["expand","fill"], ["expand","fill"], 0, 0);
+ $t->attach(&$new(), 1, 2, 2, 3, ["expand","fill"], [], 0, 0);
+ $t->attach(&$new(), 2, 3, 0, 3, [], ["expand","fill"], 0, 0);
gtkadd($w, $t);
}