diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-01 12:51:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-01 12:51:48 +0000 |
| commit | 2e811de9845a12da69f075eb425506a8711977ca (patch) | |
| tree | b93a782bd1b19237b00351a7664b7ab1b1b87da3 /perl-install/my_gtk.pm | |
| parent | 8fb5f90996a87696917fa27ce7ca20c78f675587 (diff) | |
| download | drakx-backup-do-not-use-2e811de9845a12da69f075eb425506a8711977ca.tar drakx-backup-do-not-use-2e811de9845a12da69f075eb425506a8711977ca.tar.gz drakx-backup-do-not-use-2e811de9845a12da69f075eb425506a8711977ca.tar.bz2 drakx-backup-do-not-use-2e811de9845a12da69f075eb425506a8711977ca.tar.xz drakx-backup-do-not-use-2e811de9845a12da69f075eb425506a8711977ca.zip | |
please perl_checker
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 8a4c25920..aa30af09e 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -553,7 +553,9 @@ sub gtkicons_labels_widget { } my $fixed = new Gtk::Fixed; foreach (@tab) { $fixed->put($_, 75, 65) } - my $redraw_function = sub { $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2], $fixed->allocation->[3], 40, 15, 5, @tab) }; + my $redraw_function = sub { + $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2], $fixed->allocation->[3], 40, 15, 5, @tab); + }; $fixed->signal_connect(expose_event => $redraw_function ); $fixed->signal_connect(realize => sub { $fixed->window->set_back_pixmap($background, 0); |