From ecc5ca917bed87e519f3fb160a3a155c9d7240de Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 10 Sep 2001 16:28:36 +0000 Subject: window decorations --- perl-install/my_gtk.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 0297edb40..5724fa576 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -532,9 +532,12 @@ sub create_vbox { sub _create_window($$) { my ($o, $title) = @_; my $w = new Gtk::Window; - my $f = new Gtk::Frame(undef); + gtkadd($w, + gtkadd( my $f_ = gtkset_shadow_type(new Gtk::Frame(undef), 'out'), + my $f = gtkset_border_width(gtkset_shadow_type(new Gtk::Frame(undef), 'none'), 3) + ), + ); $w->set_name("Title"); - gtkadd($w, $f); $w->set_title($title); @@ -584,6 +587,7 @@ sub _create_window($$) { $o->{window} = $f; $o->{rwindow} = $w; + $f_->draw(undef); } my ($next_child, $left, $right, $up, $down); -- cgit v1.2.1