diff options
| author | damien <damien@mandriva.com> | 2002-01-22 16:35:25 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-01-22 16:35:25 +0000 |
| commit | 4430474523a0147b6448b9945ddd2e2cbc6c08d8 (patch) | |
| tree | dc06f05a3cf156dabf2b5f3c2cbb139b2086177d /perl-install/my_gtk.pm | |
| parent | 5eabc0cdf002227c7b346e16639e86bd2bc802dd (diff) | |
| download | drakx-backup-do-not-use-4430474523a0147b6448b9945ddd2e2cbc6c08d8.tar drakx-backup-do-not-use-4430474523a0147b6448b9945ddd2e2cbc6c08d8.tar.gz drakx-backup-do-not-use-4430474523a0147b6448b9945ddd2e2cbc6c08d8.tar.bz2 drakx-backup-do-not-use-4430474523a0147b6448b9945ddd2e2cbc6c08d8.tar.xz drakx-backup-do-not-use-4430474523a0147b6448b9945ddd2e2cbc6c08d8.zip | |
improved widget_icons
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index ad5c61f24..e38787df5 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -498,7 +498,6 @@ sub fill_tiled { } } -my $j = 0; sub gtkicons_labels_widget { my ($args, $w, $color_text, $font, $background, $x_back, $y_back, $x_round, $y_round, $x_back2, $y_back2, $icon_width, $icon_height) = @_; @@ -557,19 +556,17 @@ sub gtkicons_labels_widget { $fixed->signal_connect(expose_event => sub { $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2], $fixed->allocation->[3], 40, 30, 5, @tab); }); - $fixed->{nb} = $j; - $j++; $fixed->signal_connect(realize => sub { $fixed->window->set_back_pixmap($background, 0); $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2], $fixed->allocation->[3], 40, 30, 5, @tab); }); $fixed->show_all(); - my $w_ret = createScrolledWindow($fixed, ['automatic', 'always']); - my $timeout2 = Gtk->timeout_add(100, sub { - $fixed->set_usize($w_ret->allocation->[2] - 22, 0);#$w->allocation->[3]); - 0; - }); - $w_ret; + my $w_ret = createScrolledWindow($fixed, ['automatic', 'automatic']); + + #- Ugly hacks, don't touch! ######## + my $timeout2 = Gtk->timeout_add(100, sub { $fixed->set_usize($w_ret->allocation->[2] - 22, 0); 0; }); + $w_ret->vscrollbar->set_usize(19, undef); + gtkset_border_width($w_ret, -2); } sub compute_icons { |