diff options
| author | damien <damien@mandriva.com> | 2001-02-01 21:27:58 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-02-01 21:27:58 +0000 |
| commit | 00a672c5647e83a6e6c4703179e91697ec7e06e6 (patch) | |
| tree | 267739cf4c02addc16b62d757339a8bd447d7feb /perl-install/my_gtk.pm | |
| parent | 34c32cee62805b886a8ef9fb3013c7db65a92927 (diff) | |
| download | drakx-backup-do-not-use-00a672c5647e83a6e6c4703179e91697ec7e06e6.tar drakx-backup-do-not-use-00a672c5647e83a6e6c4703179e91697ec7e06e6.tar.gz drakx-backup-do-not-use-00a672c5647e83a6e6c4703179e91697ec7e06e6.tar.bz2 drakx-backup-do-not-use-00a672c5647e83a6e6c4703179e91697ec7e06e6.tar.xz drakx-backup-do-not-use-00a672c5647e83a6e6c4703179e91697ec7e06e6.zip | |
updated embedded mode in install.
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 60a96b56e..2ad4a2207 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -40,6 +40,14 @@ sub new { push @interactive::objects, $o unless $opts{no_interactive_objects}; $o->{rwindow}->set_position('center_always') if $::isStandalone; $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab}; + + $::isEmbedded or return $o; + $o->{window} = new Gtk::VBox(0,0); + $o->{rwindow} = $o->{window}; + defined($::Plug) or $::Plug = new Gtk::Plug ($::XID); + $::Plug->show; + my_gtk::flush(); + $::Plug->add($o->{window}); $o; } sub main { |