summaryrefslogtreecommitdiffstats
path: root/perl-install/pixmaps
ModeNameSize
-rw-r--r--X.png2517logstatsplain
-rw-r--r--about-printerdrake.png5433logstatsplain
-rw-r--r--arrow_down.png155logstatsplain
-rw-r--r--arrow_up.png156logstatsplain
-rw-r--r--banner-adduser.png1482logstatsplain
-rw-r--r--banner-bootL.png1904logstatsplain
-rw-r--r--banner-exit.png1630logstatsplain
-rw-r--r--banner-generic-ad.png1546logstatsplain
-rw-r--r--banner-languages.png1976logstatsplain
-rw-r--r--banner-license.png1999logstatsplain
-rw-r--r--banner-part.png1532logstatsplain
-rw-r--r--banner-pw.png1947logstatsplain
-rw-r--r--banner-security.png1152logstatsplain
-rw-r--r--banner-summary.png1176logstatsplain
-rw-r--r--banner-sys.png1599logstatsplain
-rw-r--r--banner-update.png1609logstatsplain
-rw-r--r--colors.png275logstatsplain
-rw-r--r--colors16.png1136logstatsplain
-rw-r--r--colors8.png798logstatsplain
-rwxr-xr-xconnected.png785logstatsplain
-rw-r--r--cups_config.png2290logstatsplain
-rw-r--r--default.png1701logstatsplain
-rw-r--r--disconnected.png977logstatsplain
-rw-r--r--eth_card_mini.png2712logstatsplain
-rw-r--r--help.png1699logstatsplain
-rw-r--r--ic82-systemeplus-40.png2370logstatsplain
-rw-r--r--ic82-tape-40.png1673logstatsplain
d---------langs5044logstatsplain
-rw-r--r--monitor-1024.png9140logstatsplain
-rw-r--r--monitor-1152.png8548logstatsplain
-rw-r--r--monitor-1280.png8066logstatsplain
-rw-r--r--monitor-1400.png7587logstatsplain
-rw-r--r--monitor-1600.png7129logstatsplain
-rw-r--r--monitor-1920.png6952logstatsplain
-rw-r--r--monitor-2048.png6704logstatsplain
-rw-r--r--monitor-640.png14132logstatsplain
-rw-r--r--monitor-800.png12910logstatsplain
-rw-r--r--monitor.png2377logstatsplain
-rw-r--r--mouse_2b.png13589logstatsplain
-rw-r--r--mouse_2b_left.png3734logstatsplain
-rw-r--r--mouse_2b_right.png4169logstatsplain
-rw-r--r--mouse_3b+.png15803logstatsplain
-rw-r--r--mouse_3b+_middle.png1042logstatsplain
-rw-r--r--mouse_3b.png13345logstatsplain
-rw-r--r--mouse_3b_left.png2555logstatsplain
-rw-r--r--mouse_3b_middle.png2429logstatsplain
-rw-r--r--mouse_3b_right.png3138logstatsplain
-rw-r--r--nosplash_thumb.png5115logstatsplain
-rw-r--r--printer-mdk.png2338logstatsplain
-rw-r--r--printer_add.png1704logstatsplain
-rw-r--r--printer_conf.png1613logstatsplain
-rw-r--r--printer_default.png1671logstatsplain
-rw-r--r--printer_del.png1552logstatsplain
-rw-r--r--printerdrake.png1602logstatsplain
-rw-r--r--quit.png2117logstatsplain
-rw-r--r--redhat-config-users.png2770logstatsplain
-rw-r--r--refresh.png1775logstatsplain
-rw-r--r--selected.png344logstatsplain
-rw-r--r--slpash-drakeprint-2.png5433logstatsplain
-rw-r--r--steps_done.png348logstatsplain
-rw-r--r--steps_off.png401logstatsplain
-rw-r--r--steps_on.png372logstatsplain
-rw-r--r--stock_cancel.xpm1721logstatsplain
-rw-r--r--stock_exit.xpm3546logstatsplain
-rw-r--r--stock_left.xpm1374logstatsplain
-rw-r--r--stock_ok.xpm1477logstatsplain
-rw-r--r--stock_right.xpm1345logstatsplain
-rw-r--r--unselected.png172logstatsplain
-rw-r--r--warning.png3169logstatsplain
-rw-r--r--wifi-020.png385logstatsplain
-rw-r--r--wifi-040.png371logstatsplain
-rw-r--r--wifi-060.png374logstatsplain
-rw-r--r--wifi-080.png361logstatsplain
-rw-r--r--wifi-100.png330logstatsplain
wb">@EXPORT_OK = map { @$_ } values %EXPORT_TAGS; use Gtk; use Gtk::Gdk::ImlibImage; use c; use log; use common; my $forgetTime = 1000; #- in milli-seconds $border = 5; #-############################################################################### #- OO stuff #-############################################################################### sub new { my ($type, $title, %opts) = @_; Gtk->init; Gtk::Gdk::ImlibImage->init; Gtk->set_locale; my $o = bless { %opts }, $type; $o->_create_window($title); while (my $e = shift @tempory::objects) { $e->destroy } foreach (@interactive::objects) { $_->{rwindow}->set_modal(0) if $_->{rwindow}->can('set_modal'); } push @interactive::objects, $o if !$opts{no_interactive_objects}; $o->{rwindow}->set_position('center_always') if $::isStandalone; $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab}; if ($::isWizard && !$my_gtk::pop_it) { $o->{window} = new Gtk::VBox(0,0); $o->{window}->set_border_width($::Wizard_splash ? 0 : 10); $o->{rwindow} = $o->{window}; if (!defined($::WizardWindow)) { $::WizardWindow = new Gtk::Window; $::WizardWindow->set_position('center_always'); $::WizardWindow->signal_connect(delete_event => sub { die 'wizcancel' }); $::WizardTable = new Gtk::Table(2, 2, 0); $::WizardWindow->add($::WizardTable); my $draw1 = new Gtk::DrawingArea; $draw1->set_usize(540,100); my $draw2 = new Gtk::DrawingArea; $draw2->set_usize(100,300); my ($im_up, $mask_up) = gtkcreate_png($::Wizard_pix_up || "wiz_default_up.png"); my ($y1, $x1) = $im_up->get_size; my ($im_left, $mask_left) = gtkcreate_png($::Wizard_pix_left || "wiz_default_left.png"); my ($y2, $x2) = $im_left->get_size; my $style = $draw1->style->copy(); $style->font(Gtk::Gdk::Font->fontset_load("-adobe-utopia-regular-r-*-*-25-*-*-*-p-*-iso8859-*")); my $w = $style->font->string_width($::Wizard_title); $draw1->signal_connect(expose_event => sub { for (my $i = 0; $i < (540/$y1); $i++) { $draw1->window->draw_pixmap ($draw1->style->bg_gc('normal'), $im_up, 0, 0, 0, $y1*$i, $x1 , $y1); $draw1->window->draw_string( $style->font, $draw1->style->white_gc, 140+(380-$w)/2, 62, ($::Wizard_title) ); } }); $draw2->signal_connect(expose_event => sub { for (my $i = 0; $i < (300/$y2); $i++) { $draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'), $im_left, 0, 0, 0, $y2*$i, $x2 , $y2); } }); $::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0); #- $::WizardTable->attach($draw2, 0, 1, 1, 2, 'fill', 'fill', 0, 0); $::WizardTable->set_usize(540,400); $::WizardWindow->show_all; flush(); } $::WizardTable->attach($o->{window}, 0, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0); } if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child }) { $o->{window} = new Gtk::HBox(0,0); $o->{rwindow} = $o->{window}; $::Plug ||= new Gtk::Plug ($::XID); $::Plug->show; flush(); $::Plug->add($o->{window}); } $::CCPID and kill "USR2", $::CCPID; $o; } sub main { my ($o, $completed, $canceled) = @_; gtkset_mousecursor_normal(); my $timeout = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 }); my $b = before_leaving { Gtk->timeout_remove($timeout) }; $o->{rwindow}->window->set_events(['key_press_mask', 'key_release_mask', 'exposure_mask']) if $o->{rwindow}->window; $o->show; do { local $::setstep = 1; Gtk->main; } while ($o->{retval} ? $completed && !$completed->() : $canceled && !$canceled->()); $o->destroy; $o->{retval} } sub show($) { my ($o) = @_; $o->{window}->show; $o->{rwindow}->show; } sub destroy($) { my ($o) = @_; $o->{rwindow}->destroy; gtkset_mousecursor_wait(); flush(); } sub DESTROY { goto &destroy } sub sync { my ($o) = @_; show($o); flush(); } sub flush { Gtk->main_iteration while Gtk->events_pending; } sub gtkshow($) { $_[0]->show; $_[0] } sub gtkhide($) { $_[0]->hide; $_[0] } sub gtkdestroy($) { $_[0] and $_[0]->destroy } sub gtkset_usize($$$) { $_[0]->set_usize($_[1],$_[2]); $_[0] } sub gtksize($$$) { $_[0]->size($_[1],$_[2]); $_[0] } sub gtkset_justify($$) { $_[0]->set_justify($_[1]); $_[0] } sub gtkset_active($$) { $_[0]->set_active($_[1]); $_[0] } sub gtkset_modal { $_[0]->set_modal($_[1]); $_[0] } sub gtkset_sensitive { $_[0]->set_sensitive($_[1]); $_[0] } sub gtkset_border_width{ $_[0]->set_border_width($_[1]); $_[0] } sub gtkmove { $_[0]->window->move($_[1], $_[2]); $_[0] } sub gtkresize { $_[0]->window->resize($_[1], $_[2]); $_[0] } sub gtksignal_connect($@) { my $w = shift; $w->signal_connect(@_); $w } sub gtkradio { my $def = shift; my $radio; map { $radio = new Gtk::RadioButton($_, $radio ? $radio : ()); $radio->set_active($_ eq $def); $radio } @_; } sub gtkpack_($@) { gtkpowerpack('arg', 1, @_) } sub gtkpack($@) { gtkpowerpack(1, 1, @_) } sub gtkpack__($@) { gtkpowerpack(0, 1, @_) } sub gtkpack2_($@) { gtkpowerpack('arg', 0, @_) } sub gtkpack2($@) { gtkpowerpack(1, 0, @_) } sub gtkpack2__($@) { gtkpowerpack(0, 0, @_) } sub gtkpack3 { gtkpowerpack($a?1:0, 0, @_) } sub gtkpowerpack { #- Get Default Attributes (if any). 2 syntaxes allowed : #- gtkpowerpack( {expand => 1, fill => 0}, $box...) : the attributes are picked from a specified hash ref #- gtkpowerpack(1,0,1, $box, ...) : the attributes are picked from the non-ref list, in the order (expand, fill, padding, pack_end). my $RefDefaultAttrs; if (ref($_[0]) eq 'HASH') { $RefDefaultAttrs = shift } elsif (!ref($_[0])) { $RefDefaultAttrs = {}; foreach ("expand", "fill", "padding", "pack_end") { !ref($_[0]) ? $RefDefaultAttrs->{$_} = shift : last } } my $box = shift; while (@_) { #- Get attributes (if specified). 4 syntaxes allowed (default values are undef ie. false...) : #- gtkpowerpack({defaultattrs}, $box, $widget1, $widget2, ...) : the attrs are picked from the default ones (if they exist) #- gtkpowerpack($box, {fill=>1, expand=>0, ...}, $widget1, ...) : the attributes are picked from a specified hash ref #- gtkpowerpack($box, [1,0,1], $widget1, ...) : the attributes are picked from the array ref : (expand, fill, padding, pack_end). #- gtkpowerpack({attr=>'arg'}, $box, 1, $widget1, 0, $widget2, etc...) : the 'arg' value will tell gtkpowerpack to always read the #- attr value directly in the arg list (avoiding confusion between value 0 and Gtk::Label("0"). That can simplify some writings but #- this arg(s) MUST then be present... my %attr; my $RefAttrs; ref($_[0]) eq 'HASH' || ref($_[0]) eq 'ARRAY' and $RefAttrs = shift; foreach ("expand", "fill", "padding", "pack_end") { if ($RefDefaultAttrs->{$_} eq 'arg') { ref ($_[0]) and die "error in packing definition\n"; $attr{$_} = shift; ref($RefAttrs) eq 'ARRAY' and shift @$RefAttrs; } elsif (ref($RefAttrs) eq 'HASH' && defined($RefAttrs->{$_})) { $attr{$_} = $RefAttrs->{$_}; } elsif (ref($RefAttrs) eq 'ARRAY') { $attr{$_} = shift @$RefAttrs; } elsif (defined($RefDefaultAttrs->{$_})) { $attr{$_} = int $RefDefaultAttrs->{$_}; } else { $attr{$_} = 0; } } #- Get and pack the widget (create it if necessary when it is a label...) my $widget = ref($_[0]) ? shift : new Gtk::Label(shift); if ($attr{pack_end}) { $box->pack_end($widget, $attr{expand}, $attr{fill}, $attr{padding})} else { $box->pack_start($widget, $attr{expand}, $attr{fill}, $attr{padding}) } $widget->show; } $box } sub gtkset_editable { my ($w, $e) = @_; $w->set_editable($e); $w; } sub gtksetstyle { my ($w, $s) = @_; $w->set_style($s); $w; } sub gtkset_text { my ($w, $s) = @_; $w->set_text($s); $w; } sub gtkcombo_setpopdown_strings ($@) { my $w = shift; $w->set_popdown_strings(@_); $w; } sub gtkappend_text { my ($w, $s) = @_; $w->append_text($s); $w; } sub gtkprepend_text { my ($w, $s) = @_; $w->prepend_text($s); $w; } sub gtkset_tip { my ($tips, $w, $tip) = @_; $tips->set_tip($w, $tip) if $tip; $w; } sub gtkappenditems { my $w = shift; map { gtkshow($_) } @_; $w->append_items(@_); $w } sub gtkappend($@) { my $w = shift; foreach (@_) { my $l = $_; ref $l or $l = new Gtk::Label($l); $w->append($l); $l->show; } $w } sub gtkset_shadow_type { $_[0]->set_shadow_type($_[1]); $_[0]; } sub gtkset_layout { $_[0]->set_layout($_[1]); $_[0]; } sub gtkset_relief { $_[0]->set_relief($_[1]); $_[0]; } sub gtkadd($@) { my $w = shift; foreach (@_) { my $l = $_; ref $l or $l = new Gtk::Label($l); $w->add($l); $l->show; } $w } sub gtkput { my ($w, $w2, $x, $y) = @_; $w->put($w2, $x, $y); $w2->show; $w } sub gtktext_insert { my ($w, $t) = @_; $w->freeze; $w->backward_delete($w->get_length); $w->insert(undef, undef, undef, $t); #- DEPRECATED? needs \n otherwise in case of one line text the beginning is not shown (even with the vadj->set_value) $w->set_word_wrap(1); #- $w->vadj->set_value(0); $w->thaw; $w; } sub gtkroot { Gtk->init; Gtk->set_locale; Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW); } sub gtkcolor { my ($r, $g, $b) = @_; my $color = bless { red => $r, green => $g, blue => $b }, 'Gtk::Gdk::Color'; gtkroot()->get_colormap->color_alloc($color); } sub gtkset_mousecursor { my ($type, $w) = @_; ($w || gtkroot())->set_cursor(Gtk::Gdk::Cursor->new($type)); } sub gtkset_mousecursor_normal { gtkset_mousecursor(68, @_) } sub gtkset_mousecursor_wait { gtkset_mousecursor(150, @_) } sub gtkset_background { my ($r, $g, $b) = @_; my $root = gtkroot(); my $gc = Gtk::Gdk::GC->new($root); my $color = gtkcolor($r, $g, $b); $gc->set_foreground($color); $root->set_background($color); my ($h, $w) = $root->get_size; $root->draw_rectangle($gc, 1, 0, 0, $w, $h); } sub gtkset_default_fontset { my ($fontset) = @_; my $style = Gtk::Widget->get_default_style; my $f = Gtk::Gdk::Font->fontset_load($fontset) or die ''; $style->font($f); Gtk::Widget->set_default_style($style); } sub gtkctree_children { my ($node) = @_; my @l; $node or return; for (my $p = $node->row->children; $p; $p = $p->row->sibling) { push @l, $p; } @l; } my @icon_paths; sub add_icon_path { push @icon_paths, @_ } sub icon_paths { (@icon_paths, $ENV{SHARE_PATH}, "$ENV{SHARE_PATH}/icons", "$ENV{SHARE_PATH}/libDrakX/pixmaps", "/usr/lib/libDrakX/icons", "pixmaps", 'standalone/icons'); } sub gtkcreate_xpm { my ($f) = @_; my $rw = gtkroot(); $f =~ m|.xpm$| or $f = "$f.xpm"; if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() } my @l = Gtk::Gdk::Pixmap->create_from_xpm($rw, new Gtk::Style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f"; @l; } sub gtkcreate_png { my ($f) = shift; $f =~ m|.png$| or $f = "$f.png"; if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() } my $im = Gtk::Gdk::ImlibImage->load_image($f) or die "gtkcreate_png: missing png file $f"; $im->render($im->rgb_width, $im->rgb_height); ($im->move_image(), $im->move_mask); } sub gtkbuttonset { my ($button, $str) = @_; $button->child->destroy; $button->add(gtkshow(new Gtk::Label $str)); $button; } sub xpm_d { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm_d($w->window, undef, @_) } sub gtkxpm { new Gtk::Pixmap(gtkcreate_xpm(@_)) } sub gtkpng { new Gtk::Pixmap(gtkcreate_png(@_)) } sub create_pix_text { #ref widget, txt, color_txt, [font], [width], [height], flag1, flag2, [background, backsize x y], centeredx, centeredy, bold my ($w, $text, $color_text, $font, $max_width, $max_height, $can_be_greater, $can_be_smaller, $background, $x_back, $y_back, $centeredx, $centeredy, $bold) = @_; my $color_background; my $backpix; if ($color_text =~ /#(\d+)#(\d+)#(\d+)/) { $color_text = gtkcolor(map{$_*65535/255}($1, $2, $3)) } if (ref($background) eq 'Gtk::Gdk::Color') { $color_background = $background } elsif ($background =~ /#(\d+)#(\d+)#(\d+)/) { $color_background = gtkcolor(map{$_*65535/255}($1, $2, $3)) } elsif (ref($background) eq 'Gtk::Gdk::Pixmap' && $x_back && $y_back) { $backpix = 1 } my $fake_darea = new Gtk::DrawingArea; my $style = $fake_darea->style->copy(); if (ref($font) eq 'Gtk::Gdk::Font') { $style->font($font); } else { $font and $style->font(Gtk::Gdk::Font->fontset_load($font)); } $fake_darea->set_style($style); my ($width, $height, $lines, $widths, $heights) = get_text_coord ( $text, $fake_darea, $max_width, $max_height, $can_be_greater, $can_be_smaller, $centeredx, $centeredy); my $pix = new Gtk::Gdk::Pixmap($w->window, $width, $height); if ($backpix) { fill_tiled($w, $pix, $background, $x_back, $y_back, $width, $height); } else { $color_background ||= gtkcolor(65535, 65535, 65535); my $gc_background = new Gtk::Gdk::GC($w->window); $gc_background->set_foreground($color_background); $pix->draw_rectangle($gc_background, 1, 0, 0, $width, $height); } $color_text ||= gtkcolor(0, 0, 0); my $gc_text = new Gtk::Gdk::GC($w->window); $gc_text->set_foreground($color_text); my $i = 0; foreach (@{$lines}) { $pix->draw_string($style->font, $gc_text, ${$widths}[$i], ${$heights}[$i], $_); $bold and $pix->draw_string($style->font, $gc_text, ${$widths}[$i] + 1, ${$heights}[$i], $_); $i++; } ($pix, $width, $height); } sub get_text_coord { my ($text, $widget4style, $max_width, $max_height, $can_be_greater, $can_be_smaller, $centeredx, $centeredy, $wrap_char) = @_; $wrap_char ||= ' '; my $idx = 0; my $real_width = 0; my $real_height = 0; my @lines; my @widths; my @heights; my $height_elem = $widget4style->style->font->ascent + $widget4style->style->font->descent; $heights[0] = 0; my $max_width2 = $max_width; my $height = $heights[0] = $height_elem; my $width = 0; my $flag = 1; my @t = split($wrap_char, $text); my @t2; if ($::isInstall && $::o->{lang} =~ /ja|zh/) { @t = map { $_ . $wrap_char } @t; $wrap_char = ''; foreach (@t) { my @c = split(''); my $i = 0; my $el = ''; while (1) { $i >= @c and last; $el .= $c[$i]; if (ord($c[$i]) >= 128) { $el .= $c[$i+1]; $i++; push @t2, $el; $el = '' } $i++; } $el ne '' and push @t2, $el; } } else { @t2 = @t; } foreach (@t2) { my $l = $widget4style->style->font->string_width($_ . (!$flag ? $wrap_char : '')); if ($width + $l > $max_width2 && !$flag) { $flag = 1; $height += $height_elem + 1; $heights[$idx+1] = $height; $widths[$idx] = $centeredx && !$can_be_smaller ? (max($max_width2-$width, 0))/2 : 0; $width = 0; $idx++; } $lines[$idx] = $flag ? $_ : $lines[$idx] . $wrap_char . $_; $width += $l; $flag = 0; $l <= $max_width2 or $max_width2 = $l; $width <= $real_width or $real_width = $width; } $height += $height_elem; $widths[$idx] = $centeredx && !$can_be_smaller ? (max($max_width2-$width, 0))/2 : 0; $height < $real_height or $real_height = $height; $width = $max_width; $height = $max_height; $real_width < $max_width && $can_be_smaller and $width = $real_width; $real_width > $max_width && $can_be_greater and $width = $real_width; $real_height < $max_height && $can_be_smaller and $height = $real_height; $real_height > $max_height && $can_be_greater and $height = $real_height; if ($centeredy) { my $dh = ($height-$real_height)/2 + ($height_elem)/2; @heights = map { $_ + $dh } @heights; } ($width, $height, \@lines, \@widths, \@heights) } sub fill_tiled { my ($w, $pix, $bitmap, $x_back, $y_back, $width, $height) = @_; my ($x2, $y2) = (0, 0); while (1) { $x2 = 0; while (1) { $pix->draw_pixmap($w->style->bg_gc('normal'), $bitmap, 0, 0, $x2, $y2, $x_back, $y_back); $x2 += $x_back; $x2 >= $width and last; } $y2 += $y_back; $y2 >= $height and last; } } sub gtkicons_labels_widget { my ($args, $w, $color_text, $widget_for_font, $background, $x_back, $y_back, $x_round, $y_round, $x_back2, $y_back2, $icon_width, $icon_height, $exec_func, $exec_hash) = @_; my @tab; 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 $dbl_area; my $darea = new Gtk::DrawingArea; my ($icon, undef) = gtkcreate_png($_->[1]); my ($icon_h, undef) = gtkcreate_png("$_->[1]_highlight"); $darea->{state} = 0; $darea->signal_connect(expose_event => sub { my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]); if (!defined($dbl_area) || $darea->{state} != $dbl_area->{state}) { my $state = $darea->{state}; my ($pix, $width, $height) = create_pix_text($darea, $label, $color_text, $widget_for_font->style->font, $x_round, 1, 1, 0, $background, $x_back2, $y_back2, 1, 0, $state); ($dx, $dy) = (max($width, $x_round), $y_round + $height); $darea->set_usize($dx, $dy); $dbl_area = new Gtk::Gdk::Pixmap($darea->window, max($width, $x_round), $y_round + $height); $dbl_area->{state} = $darea->{state}; fill_tiled($darea, $dbl_area, $background, $x_back2, $y_back2, $dx, $dy); $dbl_area->draw_pixmap($darea->style->bg_gc('normal'), $darea->{state} ? $icon_h : $icon, 0, 0, ($dx - $icon_width)/2, 0, $icon_width, $icon_height); $dbl_area->draw_pixmap($darea->style->bg_gc('normal'), $pix, 0, 0, ($dx - $width)/2, $y_round, $width, $height); # $dbl_area->draw_rectangle($darea->style->black_gc, 0, # 0, 0, max($width, $x_round) - 1 , $y_round + $height - 1); } $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $dbl_area, 0, 0, 0, 0, $dx, $dy); # $darea->window->draw_rectangle($darea->style->black_gc, 0, # 0, 0, $dx, $dy); ($darea->{dx}, $darea->{dy}) = ($dx, $dy); }); $darea->set_events(['exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]); $darea->signal_connect(enter_notify_event => sub { if ($darea->{state} == 0) { $darea->{state} = 1; $darea->draw(undef); } }); $darea->signal_connect(leave_notify_event => sub { if ($darea->{state} == 1) { $darea->{state} = 0; $darea->draw(undef); } }); my $label_exec = $_->[0]; $darea->signal_connect(button_release_event => sub { $darea->{state} = 0; $darea->draw(undef); $exec_func->($exec_hash->{$label_exec}); # $exec_hash->{$label_exec}{function}->($exec_hash->{$label_exec}{arg}); }); $darea->signal_connect(realize => sub { $darea->window->set_cursor($cursor_hand) }); $tab[$i] = $darea; $i++; } 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); }; $fixed->signal_connect(expose_event => $redraw_function); $fixed->signal_connect(realize => sub { $fixed->window->set_back_pixmap($background, 0); $redraw_function->(); }); $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... } sub ctree_set_icon { my ($tree, $node, $icon_pixmap, $icon_mask) = @_; my ($text, $spacing, undef, undef, undef, undef, $isleaf, $expanded) = $tree->get_node_info($node); $tree->set_node_info($node, $text, $spacing, $icon_pixmap, $icon_mask, $icon_pixmap, $icon_mask, $isleaf, $expanded); } sub compute_icons { my ($fx, $fy, $decx, $decy, $interstice, @tab) = @_; my $nb = $#tab; my $nb_sav = $nb; my $index = 0; my @dx2; my @dx; my @dy; my $line_up = 0; bcl_init: @dx2 = undef; bcl: @dx = map{ $_->{dx} } @tab[$index..$index+$nb]; $dy[$index] = max(map{ $_->{dy} } @tab[$index..$index+$nb]); foreach (0..$#dx) { if ($dx[$_] > $dx2[$_]) { $dx2[$_] = $dx[$_] } else { $dx[$_] = $dx2[$_] } } my $line_size = 0; $line_size = $decx + sum(@dx2) + $nb * $interstice; if ($line_size > $fx) { $index = 0; $nb--; goto bcl_init; } $nb and $line_up = ($fx-$line_size)/($nb+2); $index += $nb+1; $index <= $#tab and goto bcl; my @ret; my $n = 0; my $y = $decy; my $x = $decx/2 + $line_up; foreach (0..$nb_sav) { $ret[$_] = [$tab[$_], $x, $y]; $x += $dx2[$n] + $interstice + $line_up; $n++; if ($n > $nb) { $n = 0; $x = $decx/2 + $line_up; $y += int($dy[$_-$nb]/5)*5 + 15; } } @ret; } sub write_on_pixmap { my ($pixmap, $x_pos, $y_pos, @text)=@_; my ($gdkpixmap, $gdkmask) = $pixmap->get(); my ($width, $height) = (440, 250); my $gc = Gtk::Gdk::GC->new(gtkroot()); $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157 my $darea = new Gtk::DrawingArea(); $darea->size($width, $height); $darea->set_usize($width, $height); my $draw = sub { my $style = new Gtk::Style; #- i18n : you can change the font. $style->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--17-*-100-100-p-*-iso8859-*,*-r-*"))); my $y_pos2 = $y_pos; foreach (@text) { $darea->window->draw_string($style->font, $gc, $x_pos, $y_pos2, $_); $y_pos2 += 20; } }; $darea->signal_connect(expose_event => sub { $darea->window->draw_rectangle($darea->style->white_gc, 1, 0, 0, $width, $height); $darea->window->draw_pixmap ($darea->style->white_gc, $gdkpixmap, 0, 0, ($darea->allocation->[2]-$width)/2, ($darea->allocation->[3]-$height)/2, $width, $height); &$draw(); }); $darea; } sub n_line_size { my ($nbline, $type, $widget) = @_; my $font = $widget->style->font; my $spacing = ${{ text => 0, various => 17 }}{$type}; $nbline * ($font->ascent + $font->descent + $spacing) + 8; } #-############################################################################### #- createXXX functions #- these functions return a widget #-############################################################################### sub create_okcancel { my ($w, $ok, $cancel, $spread, @other) = @_; my $one = ($ok xor $cancel); $spread ||= $::isWizard ? "end" : "spread"; $ok ||= $::isWizard ? ($::Wizard_finished ? _("Finish") : _("Next ->")) : _("Ok"); $cancel ||= $::isWizard ? _("<- Previous") : _("Cancel"); 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), clicked => $w->{cancel_clicked} || sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk->main_quit }); $::isWizard and gtksignal_connect($w->{wizcancel} = new Gtk::Button(_("Cancel")), clicked => sub { die 'wizcancel' }); my @l = grep { $_ } $::isWizard ? ($w->{wizcancel}, $::Wizard_no_previous ? () : $b2, $b1): ($b1, $b2); push @l, map { gtksignal_connect(new Gtk::Button($_->[0]), clicked => $_->[1]) } @other; $_->can_default($::isWizard) foreach @l; gtkadd(create_hbox($spread), @l); } sub create_box_with_title($@) { my $o = shift; my $nbline = sum(map { round(length($_) / 60 + 1/2) } map { split "\n" } @_); $o->{box} = new Gtk::VBox(0,0); $o->{box_size} = n_line_size($nbline, 'text', $o->{box}); if (@_ <= 2 && $nbline > 4) { $o->{icon} && !$::isWizard and eval { gtkpack__($o->{box}, gtkset_border_width(gtkpack_(new Gtk::HBox(0,0), 1, gtkpng($o->{icon})),5)) }; my $wanted = $o->{box_size}; $o->{box_size} = min(200, $o->{box_size}); my $has_scroll = $o->{box_size} < $wanted; my $wtext = new Gtk::Text; $wtext->can_focus($has_scroll); chomp(my $text = join("\n", @_)); my $scroll = createScrolledWindow(gtktext_insert($wtext, $text)); $scroll->set_usize(400, $o->{box_size}); gtkpack__($o->{box}, $scroll); } else { my $a = !$::no_separator; undef $::no_separator; if ($o->{icon} && !$::isWizard) { gtkpack__($o->{box}, gtkpack_(new Gtk::HBox(0,0), 0, gtkset_usize(new Gtk::VBox(0,0), 15, 0), 0, eval { gtkpng($o->{icon}) }, 0, gtkset_usize(new Gtk::VBox(0,0), 15, 0), 1, gtkpack_($o->{box_title} = new Gtk::VBox(0,0), 1, new Gtk::HBox(0,0), (map { my $w = ref $_ ? $_ : new Gtk::Label($_); $::isWizard and $w->set_justify("left"); $w->set_name("Title"); (0, $w); } map { ref $_ ? $_ : warp_text($_) } @_), 1, new Gtk::HBox(0,0), ) ), if_($a, new Gtk::HSeparator) ) } else { gtkpack__($o->{box}, (map { my $w = ref $_ ? $_ : new Gtk::Label($_); $::isWizard and $w->set_justify("left"); $w->set_name("Title"); $w; } map { ref $_ ? $_ : warp_text($_) } @_), if_($a, new Gtk::HSeparator) ) } } } sub createScrolledWindow { my ($W, $policy) = @_; my $w = new Gtk::ScrolledWindow(undef, undef); $policy ||= [ 'automatic', 'automatic']; $w->set_policy(@{$policy}); member(ref $W, qw(Gtk::CList Gtk::CTree Gtk::Text)) ? $w->add($W) : $w->add_with_viewport($W); $W->can("set_focus_vadjustment") and $W->set_focus_vadjustment($w->get_vadjustment); $W->show; $w } sub create_menu($@) { my $title = shift; my $w = new Gtk::MenuItem($title); $w->set_submenu(gtkshow(gtkappend(new Gtk::Menu, @_))); $w } sub add2notebook { my ($n, $title, $book) = @_; my ($w1, $w2) = map { new Gtk::Label($_) } $title, $title; $book->{widget_title} = $w1; $n->append_page_menu($book, $w1, $w2); $book->show; $w1->show; $w2->show; } sub create_notebook(@) { my $n = new Gtk::Notebook; add2notebook($n, splice(@_, 0, 2)) while @_; $n } sub create_adjustment($$$) { my ($val, $min, $max) = @_; new Gtk::Adjustment($val, $min, $max + 1, 1, ($max - $min + 1) / 10, 1); } sub create_packtable($@) { my ($options, @l) = @_; my $w = new Gtk::Table(0, 0, $options->{homogeneous} || 0); map_index { my ($i, $l) = ($_[0], $_); map_index { my ($j) = @_; if ($_) { ref $_ or $_ = new Gtk::Label($_); $j != $#$l ? $w->attach($_, $j, $j + 1, $i, $i + 1, 'fill', 'fill', 5, 0) : $w->attach($_, $j, $j + 1, $i, $i + 1, 1|4, ref($_) eq 'Gtk::ScrolledWindow' ? 1|4 : 0, 0, 0); $_->show; } } @$l; } @l; $w->set_col_spacings($options->{col_spacings} || 0); $w->set_row_spacings($options->{row_spacings} || 0); $w } sub create_hbox { my $w = gtkset_border_width(new Gtk::HButtonBox, 3); $w->set_layout($_[0] || "spread"); $w; } sub create_vbox { my $w = new Gtk::VButtonBox; $w->set_layout(-spread); $w; } sub _create_window($$) { my ($o, $title) = @_; my $w = new Gtk::Window; my $gc = Gtk::Gdk::GC->new(gtkroot()); !$::isStandalone && !$::live && !$::g_auto_install and $my_gtk::shape_width = 3; #- $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157 $gc->set_foreground(gtkcolor(5120, 10752, 22784)); #- in hex : 20, 42, 89 #- $gc->set_foreground(gtkcolor(16896, 16896, 16896)); #- in hex : 66, 66, 66 my $inner = gtkadd(my $f_ = gtkset_shadow_type(new Gtk::Frame(undef), 'out'), my $f = gtkset_border_width(gtkset_shadow_type(new Gtk::Frame(undef), 'none'), 3) ); my $table; if ($::isStandalone || $::live || $::g_auto_install || $::noShadow) { gtkadd($w, $inner) } else { my $sqw = $my_gtk::shape_width; gtkadd($w, $table = new Gtk::Table(2, 2, 0)); $table->attach($inner, 0, 1, 0, 1, 1|4, 1|4, 0, 0); $table->attach(gtksignal_connect(gtkset_usize(new Gtk::DrawingArea, $sqw, 1), expose_event => sub { $_[0]->window->draw_rectangle($_[0]->style->bg_gc('normal'), 1, 0, 0, $sqw, $sqw); $_[0]->window->draw_rectangle($gc, 1, 0, $sqw, $sqw, $_[0]->allocation->[3]); }), 1, 2, 0, 1, 'fill', 'fill', 0, 0);