summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-28 17:44:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-28 17:44:41 +0000
commit85d17abdb10df50c862523482c2580b2368e44a5 (patch)
tree732f89a29d8fcdef5443a551a88b42cc939ae6bf /perl-install/mygtk2.pm
parentc5780b2d4cee2b3f9cff0007a03a959da7517419 (diff)
downloaddrakx-85d17abdb10df50c862523482c2580b2368e44a5.tar
drakx-85d17abdb10df50c862523482c2580b2368e44a5.tar.gz
drakx-85d17abdb10df50c862523482c2580b2368e44a5.tar.bz2
drakx-85d17abdb10df50c862523482c2580b2368e44a5.tar.xz
drakx-85d17abdb10df50c862523482c2580b2368e44a5.zip
- add can_default
- remove known_opts (alike the rest of the code)
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm22
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 5f9e3d2eb..5a15b4a20 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -91,26 +91,26 @@ my $global_tooltips;
sub _gtk {
my ($w, $class, $action, %opts) = @_;
- my @known_opts = ('width', 'height', 'position', 'can_focus', 'widget_name', 'grab_focus', 'tip', 'size_group');
-
if (my $f = $mygtk2::{"_gtk__$class"}) {
$w = $f->($w, \%opts, $class, $action);
} else {
internal_error("$action $class: unknown class");
}
- $w->set_size_request($opts{width} || -1, $opts{height} || -1) if $opts{width} || $opts{height};
- $w->set_uposition($opts{position}[0], $opts{position}[1]) if $opts{position};
- $w->set_name($opts{widget_name}) if $opts{widget_name};
- $w->can_focus($opts{can_focus}) if defined $opts{can_focus};
- $w->grab_focus if $opts{grab_focus};
- $opts{size_group}->add_widget($w) if $opts{size_group};
- if ($opts{tip}) {
+ $w->set_size_request(delete $opts{width} || -1, delete $opts{height} || -1) if exists $opts{width} || exists $opts{height};
+ if (my $position = delete $opts{position}) {
+ $w->set_uposition($position->[0], $position->[1]);
+ }
+ $w->set_name(delete $opts{widget_name}) if exists $opts{widget_name};
+ $w->can_focus(delete $opts{can_focus}) if exists $opts{can_focus};
+ $w->can_default(delete $opts{can_default}) if exists $opts{can_default};
+ $w->grab_focus if delete $opts{grab_focus};
+ (delete $opts{size_group})->add_widget($w) if $opts{size_group};
+ if (my $tip = delete $opts{tip}) {
$global_tooltips ||= Gtk2::Tooltips->new;
- $global_tooltips->set_tip($w, $opts{tip});
+ $global_tooltips->set_tip($w, $tip);
}
- delete $opts{$_} foreach @known_opts;
if (%opts && !$opts{allow_unknown_options}) {
internal_error("$action $class: unknown option(s) " . join(', ', keys %opts));
}