diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-06 07:43:14 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-06 07:43:14 +0000 |
commit | f0ad7e7336a089dd84a8fef547854a9a575827d1 (patch) | |
tree | 1ea35a209406595ea7eb1a2c46735415145e7087 | |
parent | f8684b8b40b519d9cca03920af53d69b1b52fcd5 (diff) | |
download | drakx-backup-do-not-use-f0ad7e7336a089dd84a8fef547854a9a575827d1.tar drakx-backup-do-not-use-f0ad7e7336a089dd84a8fef547854a9a575827d1.tar.gz drakx-backup-do-not-use-f0ad7e7336a089dd84a8fef547854a9a575827d1.tar.bz2 drakx-backup-do-not-use-f0ad7e7336a089dd84a8fef547854a9a575827d1.tar.xz drakx-backup-do-not-use-f0ad7e7336a089dd84a8fef547854a9a575827d1.zip |
- ugtk::gtkicons_labels_widget() :
o pass icon name in $tag to $exec_func so that the later can display
big icon
o $label_exec is a duplicate of $label
o simplify notebook redrawing:
* remove dam'sugly hacks
* $redraw_function->() : resize Gtk::Fixed on first run if more
than 4 icons
* redraw in only one place
* don't redraw on realize event
(now we both don't flick and have proper icon alignment without
old hacks)
- mcc:
o print big icon while launching a tool (anim in next commit)
o move todo list in TODO
o stricter check:
* default to use strict
* disable strict mode when building rpm
* fixes for 'use strict'
o kill :
* a debugging print
* a superflous 'no warnings'
* a title->show since we never hide it
* $rootheight since gtk packer do the job for us
* unused $nb_pages
o begin to un-hardcode some values (window and notebook size, ...)
o cosmetics:
* comment some code
* add myself to authors list (deush, you should add yourself too
since you're the localedrake/mcc interaction guru)
* s/darea1/summary_darea/
o don't display logs when back in main summary
o destroy pixbuf after
-rw-r--r-- | perl-install/ugtk.pm | 43 |
1 files changed, 25 insertions, 18 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index fa7ffa66a..2dc2ad0aa 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -501,14 +501,15 @@ sub gtkicons_labels_widget { my $i = 0; my $cursor_hand = new Gtk::Gdk::Cursor 60; my $cursor_normal = new Gtk::Gdk::Cursor 68; - foreach (@$args) { - my $label = $_->[0]; + my @args = @$args; + foreach (@args) { + my ($label, $tag) = ($_->[0], $_->[1]); die "$label 's icon is missing" unless $exec_hash->{$label}; my ($dbl_area, $pix, $width, $height); # initialized in call back my $darea = new Gtk::DrawingArea; - my ($icon, undef) = gtkcreate_png($_->[1]); - my $pixbuf = compose_with_back($_->[1], $back_pixbuf); - my $pixbuf_h = compose_with_back($_->[1], $back_pixbuf, 170); + my ($icon, undef) = gtkcreate_png($tag); + my $pixbuf = compose_with_back($tag, $back_pixbuf); + my $pixbuf_h = compose_with_back($tag, $back_pixbuf, 170); my $draw = sub { my ($widget, $event) = @_; @@ -550,11 +551,10 @@ sub gtkicons_labels_widget { &$draw(@_); } }); - my $label_exec = $_->[0]; $darea->signal_connect(button_release_event => sub { $darea->{state} = 0; $darea->draw(undef); - $exec_func->($exec_hash->{$label_exec}); + $exec_func->($tag, $exec_hash->{$label}); }); $darea->signal_connect(realize => sub { $darea->window->set_cursor($cursor_hand) }); $tab[$i] = $darea; @@ -562,22 +562,29 @@ 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, 20, @tab); + my $is_resized = 0; + my $w_ret = createScrolledWindow($fixed, ['automatic', 'automatic']); + my $redraw_function; + $redraw_function = sub { + if ($is_resized == 0) { + if (3 < $#args) { + #- Ugly hacks, don't touch! ######## + my $timeout1 = Gtk->timeout_add(100, sub { + $fixed->set_usize($w_ret->allocation->[2] - 22, 0); + &$redraw_function; + 0 + }); + } + $is_resized = 1; + } + $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2]-22, $fixed->allocation->[3], 40, 15, 20, @tab); }; $fixed->signal_connect(expose_event => $redraw_function); - $fixed->signal_connect(realize => sub { - $fixed->window->set_back_pixmap($background, 0); - $redraw_function->(); - }); + $fixed->signal_connect(realize => sub { $fixed->window->set_back_pixmap($background, 0) }); $fixed->{redraw_function} = $redraw_function; - $fixed->show_all(); - 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); #- ok, this is very very ugly... + gtkhide(gtkset_border_width($w_ret, -2)); #- ok, this is very very ugly... } sub n_line_size { |