From aa960c3724e3f9b932f7f2fad2fd3d6365699d64 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 4 Sep 2002 14:35:31 +0000 Subject: - really embbed - kill stupid things (aka embedded window withouth any widget vs toplevel window) --- perl-install/standalone/drakperm | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index dde32973f..fdb553a5d 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -10,22 +10,12 @@ init Gtk; use interactive; -#- this part is embedded management -$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~/--embedded (\S*) (\S*)/; -if ($::isEmbedded) { - print "EMBED\n"; - print "XID : $::XID\n"; - print "CCPID : $::CCPID\n"; -} - my $in = 'interactive'->vnew('su', 'default'); local $_ = join '', @ARGV; /-h/ and die _("no help implemented yet.\n"); /-version/ and die 'version: $Id$'."\n"; -my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel"); -$window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : &killapp }); #- vars declaration my ($default_perm_level) = "level ".chomp_(`cat /etc/sysconfig/msec | grep SECURE_LEVEL= |cut -d= -f2`); @@ -45,7 +35,8 @@ my $modified = 0; my $prec_txt = $default_perm_level; #my $bg = Gtk::Gdk::Color->parse_color('grey'); #- Widget declaration -my $W = new Gtk::Window('toplevel'); +my $W = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel"); +$W->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : &killapp }); my $scroll = new Gtk::ScrolledWindow; my $Perm_list = new_with_titles Gtk::CList((_("path"),_("user"),_("group"),_("permissions"))); my $vb = new Gtk::VBox(0,5); -- cgit v1.2.1