diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-02-10 19:37:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:35 +0100 |
| commit | a90c75de317ece497ecd0da553c3a0666ae4fd16 (patch) | |
| tree | a2e14ba9ff5f2662c8f73e13b6ca17f8bfa9f82d /perl-install/standalone | |
| parent | 7f3ec46de7c8c8875c56ccc9efbb10281632fc9f (diff) | |
| download | drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar.gz drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar.bz2 drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar.xz drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.zip | |
(create_boxradio,create_widgets) adapt to new tooltips API
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakperm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 5dd9d9198..225fe19f1 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -103,8 +103,6 @@ $permList->signal_connect(button_press_event => sub { }); -my $tips = Gtk3::Tooltips->new; - $W->add(gtknew('VBox', spacing => 5, children => [ if_(!$::isEmbedded, 0, Gtk3::Banner->new('/usr/share/mcc/themes/default/drakperm-mdk.png', N("Permissions"))), 0, gtknew('Label_Left', text => N("Here you can see files to use in order to fix permissions, owners, and groups via msec.\nYou can also edit your own rules which will overwrite the default rules."), alignment => [ 0.5, 0 ]), @@ -118,7 +116,7 @@ Select permissions to see/edit", $level), alignment => [ 0, 0 ]), 1, gtknew('ScrolledWindow', child => $permList), 0, my $up_down_box = gtknew('HBox', spacing => 5, children_loose => [ @buttons = map { - gtkset_tip($tips, + gtkset_tip( gtknew('Button', text => $_->[0], clicked => $_->[2]), $_->[1]); } ([ N("Up"), N("Move selected rule up one level"), sub { move_callback('up') } ], @@ -292,7 +290,7 @@ sub row_setting_dialog { ] ); - my $usr_check = gtksignal_connect(gtkset_tip($tips, gtknew('CheckButton', text => N("Current user")), + my $usr_check = gtksignal_connect(gtkset_tip(gtknew('CheckButton', text => N("Current user")), N("When checked, owner and group will not be changed")), clicked => sub { $id_box->set_sensitive(!$_[0]->get_active) }); @@ -343,8 +341,7 @@ sub row_setting_dialog { map { my $c = $_; my $active = $perms{$owner}{$c}; - $perms{$owner}{$c} = gtknew('CheckButton'); - $tips->set_tip($perms{$owner}{$c}, + $perms{$owner}{$c} = gtkset_tip(gtknew('CheckButton'), $checks{$c}{tip}{$owner}, ); gtkset_active($perms{$owner}{$c}, $active); |