diff options
| author | damien <damien@mandriva.com> | 2001-09-10 16:28:36 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-09-10 16:28:36 +0000 |
| commit | ecc5ca917bed87e519f3fb160a3a155c9d7240de (patch) | |
| tree | e692a574a359d0184049b3d78a6545a4c6fc82d2 | |
| parent | 80a37046dbef7ad6ed2f583ade44bfdb6653d8a7 (diff) | |
| download | drakx-ecc5ca917bed87e519f3fb160a3a155c9d7240de.tar drakx-ecc5ca917bed87e519f3fb160a3a155c9d7240de.tar.gz drakx-ecc5ca917bed87e519f3fb160a3a155c9d7240de.tar.bz2 drakx-ecc5ca917bed87e519f3fb160a3a155c9d7240de.tar.xz drakx-ecc5ca917bed87e519f3fb160a3a155c9d7240de.zip | |
window decorations
| -rw-r--r-- | perl-install/my_gtk.pm | 8 |
1 files 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); |