diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-13 00:06:38 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-13 00:06:38 +0000 |
| commit | 3c3f7b7a5ef5feef684d6ce66b060aa88df6cddf (patch) | |
| tree | fe557abb183bfb67669efa97e07d6c5073ee31fd /perl-install/my_gtk.pm | |
| parent | 24985f95a0e1eb72143d31b19d0c24f74d284982 (diff) | |
| download | drakx-3c3f7b7a5ef5feef684d6ce66b060aa88df6cddf.tar drakx-3c3f7b7a5ef5feef684d6ce66b060aa88df6cddf.tar.gz drakx-3c3f7b7a5ef5feef684d6ce66b060aa88df6cddf.tar.bz2 drakx-3c3f7b7a5ef5feef684d6ce66b060aa88df6cddf.tar.xz drakx-3c3f7b7a5ef5feef684d6ce66b060aa88df6cddf.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index e59a1404c..55ebdc986 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -45,7 +45,7 @@ sub new { sub main($;$) { my ($o, $f) = @_; gtkset_mousecursor_normal(); - my $timeout = Gtk->timeout_add(1000, sub { log::l("gtkset_mousecursor_normal"); gtkset_mousecursor_normal(); 1 }); + my $timeout = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 }); my $b = before_leaving { Gtk->timeout_remove($timeout) }; $o->show; @@ -240,8 +240,8 @@ sub create_okcancel { $spread ||= $::isWizard ? "edge" : "spread"; $ok ||= $::isWizard ? _("Next ->") : _("Ok"); - my $b1 = gtksignal_connect($w->{ok} = new Gtk::Button($ok), "clicked" => $w->{ok_clicked} || sub { $w->{retval} = 1; Gtk->main_quit }); - my $b2 = !$one && gtksignal_connect($w->{cancel} = new Gtk::Button($cancel || _("Cancel")), "clicked" => $w->{cancel_clicked} || sub { undef $w->{retval}; Gtk->main_quit }); + my $b1 = gtksignal_connect($w->{ok} = new Gtk::Button($ok), clicked => $w->{ok_clicked} || sub { $w->{retval} = 1; Gtk->main_quit }); + my $b2 = !$one && gtksignal_connect($w->{cancel} = new Gtk::Button($cancel || _("Cancel")), clicked => $w->{cancel_clicked} || sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk->main_quit }); my @l = grep { $_ } $::isStandalone ? ($b2, $b1) : ($b1, $b2); $_->can_default($::isStandalone) foreach @l; |