diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-23 21:01:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-23 21:01:21 +0000 |
| commit | 33280055c72fd53c4f85db213d7415ca0a064a7e (patch) | |
| tree | 533c9ae5bdc1567c3e06f708478822e16c10ab3a /perl-install/my_gtk.pm | |
| parent | 9055935d2adbdb679ec1ccdbd728ba2c542a60f8 (diff) | |
| download | drakx-33280055c72fd53c4f85db213d7415ca0a064a7e.tar drakx-33280055c72fd53c4f85db213d7415ca0a064a7e.tar.gz drakx-33280055c72fd53c4f85db213d7415ca0a064a7e.tar.bz2 drakx-33280055c72fd53c4f85db213d7415ca0a064a7e.tar.xz drakx-33280055c72fd53c4f85db213d7415ca0a064a7e.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index b530034fd..469f4c2d4 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -38,11 +38,9 @@ sub main($;$) { my ($o, $f) = @_; $o->show; - $o->{rwindow}->grab_add if $my_gtk::grab || $o->{grab}; do { Gtk->main } while ($o->{retval} && $f && !&$f()); - $o->{rwindow}->grab_remove if $my_gtk::grab || $o->{grab}; $o->destroy; $o->{retval} } @@ -50,9 +48,11 @@ sub show($) { my ($o) = @_; $o->{window}->show; $o->{rwindow}->show; + $o->{rwindow}->grab_add if $my_gtk::grab || $o->{grab}; } sub destroy($) { my ($o) = @_; + $o->{rwindow}->grab_remove if $my_gtk::grab || $o->{grab}; $o->{rwindow}->destroy; flush(); } @@ -263,7 +263,7 @@ sub _create_window($$) { my $f = new Gtk::Frame(undef); $w->set_name("Title"); - if ($::isStandalone) { + if ($::isStandalone || $o->{no_border}) { gtkadd($w, $f); } else { my $t = new Gtk::Table(0, 0, 0); |