diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-04 14:35:31 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-04 14:35:31 +0000 |
commit | aa960c3724e3f9b932f7f2fad2fd3d6365699d64 (patch) | |
tree | a73ad08e675bdc9823be7699c18fa0f1649d0df3 /perl-install/standalone | |
parent | 059127f78576f4bdbb57e29a6dd7509a53d3d25c (diff) | |
download | drakx-backup-do-not-use-aa960c3724e3f9b932f7f2fad2fd3d6365699d64.tar drakx-backup-do-not-use-aa960c3724e3f9b932f7f2fad2fd3d6365699d64.tar.gz drakx-backup-do-not-use-aa960c3724e3f9b932f7f2fad2fd3d6365699d64.tar.bz2 drakx-backup-do-not-use-aa960c3724e3f9b932f7f2fad2fd3d6365699d64.tar.xz drakx-backup-do-not-use-aa960c3724e3f9b932f7f2fad2fd3d6365699d64.zip |
- really embbed
- kill stupid things (aka embedded window withouth any widget vs
toplevel window)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakperm | 13 |
1 files 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); |