diff options
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 730 |
1 files changed, 160 insertions, 570 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 4cb2e4657..a6f1101d5 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -1,257 +1,146 @@ -#-######################################################################## -#- Pixel's implementation of Perl-GTK :-) [DDX] -#-######################################################################## package my_gtk; use diagnostics; use strict; -use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border @grabbed); +use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK); @ISA = qw(Exporter); %EXPORT_TAGS = ( - helpers => [ qw(create_okcancel createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title create_treeitem) ], - wrappers => [ qw(gtksignal_connect gtkpack gtkpack_ gtkpack__ gtkappend gtkadd gtktext_insert gtkset_usize gtkset_justify gtkset_active gtkshow gtkdestroy gtkset_mousecursor gtkset_background gtkset_default_fontset gtkxpm gtkcreate_xpm) ], - ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_from_list ask_file) ], + all => [ qw(create_window create_yesorno createScrolledWindow create_menu create_notebook create_packtable create_hbox create_adjustment mymain my_signal_connect mypack mypack_ myappend myadd label_align myset_usize myset_justify myshow mysync myflush mydestroy) ], ); -$EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; use Gtk; -use c; -use log; -use common qw(:common :functional); - -my $forgetTime = 1000; #- in milli-seconds -$border = 5; 1; -#-############################################################################### -#- OO stuff -#-############################################################################### + sub new { - my ($type, $title, %opts) = @_; + my ($type, $title, @opts) = @_; Gtk->init; - Gtk->set_locale; - my $o = bless { %opts }, $type; - $o->_create_window($title); - while (my $e = shift @tempory::objects) { $e->destroy } - push @interactive::objects, $o unless $opts{no_interactive_objects}; - - top(@grabbed)->grab_remove if @grabbed; - push(@grabbed, $o->{rwindow}), $o->{rwindow}->grab_add if $my_gtk::grab || $o->{grab}; - + parse Gtk::Rc "$ENV{HOME}/etc/any/Gtkrc"; + my $o = bless { @opts }, $type; + $o->{window} = $o->create_window($title); $o; } -sub main($;$) { - my ($o, $f) = @_; - $o->show; - - do { - local $::setstep = 1; - Gtk->main - } while ($o->{retval} && $f && !&$f()); - $o->destroy; - $o->{retval} -} -sub show($) { - my ($o) = @_; - $o->{window}->show; - $o->{rwindow}->show; -} -sub destroy($) { - my ($o) = @_; - (pop @grabbed)->grab_remove if @grabbed; - top(@grabbed)->grab_add if @grabbed; - $o->{rwindow}->destroy; - flush(); -} -sub DESTROY { goto &destroy } -sub sync($) { +sub destroy($) { my ($o) = @_; - show($o); - flush(); -} -sub flush(;$) { - Gtk->main_iteration while Gtk->events_pending; -} -sub bigsize($) { - $_[0]{rwindow}->set_usize(600,400); -} - - -sub gtkshow($) { $_[0]->show; $_[0] } -sub gtkdestroy($) { $_[0] and $_[0]->destroy } -sub gtkset_usize($$$) { $_[0]->set_usize($_[1],$_[2]); $_[0] } -sub gtkset_justify($$) { $_[0]->set_justify($_[1]); $_[0] } -sub gtkset_active($$) { $_[0]->set_active($_[1]); $_[0] } - -sub gtksignal_connect($@) { - my $w = shift; - $w->signal_connect(@_); - $w -} -sub gtkpack($@) { - my $box = shift; - gtkpack_($box, map {; 1, $_ } @_); -} -sub gtkpack__($@) { - my $box = shift; - gtkpack_($box, map {; 0, $_ } @_); -} -sub gtkpack_($@) { - my $box = shift; - for (my $i = 0; $i < @_; $i += 2) { - my $l = $_[$i + 1]; - ref $l or $l = new Gtk::Label($l); - $box->pack_start($l, $_[$i], 1, 0); - $l->show; - } - $box -} -sub gtkappend($@) { - my $w = shift; - foreach (@_) { - my $l = $_; - ref $l or $l = new Gtk::Label($l); - $w->append($l); - $l->show; - } - $w -} -sub gtkadd($@) { - my $w = shift; - foreach (@_) { - my $l = $_; - ref $l or $l = new Gtk::Label($l); - $w->add($l); - $l->show; - } - $w + $o->{window}->destroy; + myflush(); } -sub gtktext_insert($$) { - my ($w, $t) = @_; - $w->freeze; - $w->backward_delete($w->get_length); - $w->insert(undef, undef, undef, "$t\n"); #- 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 ask_from_entry($$@) { + my ($o, @msgs) = @_; + my $entry = new Gtk::Entry; + my $f = sub { $o->{retval} = $entry->get_text; Gtk->main_quit }; -sub gtkroot { - Gtk->init; - Gtk->set_locale; - Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW); + myadd($o->{window}, + mypack($o->create_box_with_title(@msgs), + my_signal_connect($entry, 'activate' => $f), + ($o->{hide_buttons} ? () : mypack(new Gtk::HBox(0,0), + my_signal_connect(new Gtk::Button('Ok'), 'clicked' => $f), + my_signal_connect(new Gtk::Button('Cancel'), 'clicked' => sub { $o->{retval} = undef; Gtk->main_quit }), + )), + ), + ); + $entry->grab_focus(); + mymain($o); } -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 ask_from_list($\@$@) { + my ($o, $l, @msgs) = @_; + my $f = sub { $o->{retval} = $_[1]; Gtk->main_quit }; + my @l = map { my_signal_connect(new Gtk::Button($_), "clicked" => $f, $_) } @$l; -sub gtkset_mousecursor($) { - my ($type) = @_; - gtkroot()->set_cursor(Gtk::Gdk::Cursor->new($type)); +# myadd($o->{window}, +# mypack_(myset_usize(new Gtk::VBox(0,0), 0, 200), +# 0, $o->create_box_with_title(@msgs), +# 1, createScrolledWindow(mypack(new Gtk::VBox(0,0), @l)))); + myadd($o->{window}, + mypack($o->create_box_with_title(@msgs), @l)); + $l[0]->grab_focus(); + mymain($o) } -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); +sub ask_warn($@) { + my ($o, @msgs) = @_; - my ($h, $w) = $root->get_size; - $root->draw_rectangle($gc, 1, 0, 0, $w, $h); + myadd($o->{window}, + mypack($o->create_box_with_title(@msgs), + my_signal_connect(my $w = new Gtk::Button("Ok"), "clicked" => sub { Gtk->main_quit }), + ), + ); + $w->grab_focus(); + mymain($o) } -sub gtkset_default_fontset($) { - my ($fontset) = @_; +sub ask_yesorno($@) { + my ($o, @msgs) = @_; - 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); + myadd($o->{window}, + mypack(create_box_with_title($o, @msgs), + create_yesorno($o), + ) + ); + $o->{ok}->grab_focus(); + mymain($o) } -sub gtkcreate_xpm { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm($w->window, $w->style->bg('normal'), @_) } -sub xpm_d { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm_d($w->window, undef, @_) } -sub gtkxpm { new Gtk::Pixmap(gtkcreate_xpm(@_)) } - -#-############################################################################### -#- createXXX functions - -#- these functions return a widget -#-############################################################################### +sub create_window($$) { + my ($o, $title) = @_; + $o->{window} = new Gtk::Window; + $o->{window}->set_title($title); + $o->{window}->signal_connect("delete_event" => sub { $o->{retval} = undef; Gtk->main_quit }); + $o->{window} +} -sub create_okcancel($;$$) { - my ($w, $ok, $cancel) = @_; +sub create_yesorno($) { + my ($w) = @_; - gtkadd(create_hbox(), - gtksignal_connect($w->{ok} = new Gtk::Button($ok || _("Ok")), "clicked" => $w->{ok_clicked} || sub { $w->{retval} = 1; Gtk->main_quit }), - ($ok xor $cancel) ? () : gtksignal_connect(new Gtk::Button($cancel || _("Cancel")), "clicked" => $w->{cancel_clicked} || sub { $w->{retval} = 0; Gtk->main_quit }), + myadd(create_hbox(), + my_signal_connect($w->{ok} = new Gtk::Button("Ok"), "clicked" => sub { $w->{retval} = 1; Gtk->main_quit }), + my_signal_connect(new Gtk::Button("Cancel"), "clicked" => sub { $w->{retval} = 0; Gtk->main_quit }), ); } sub create_box_with_title($@) { my $o = shift; - - my $nb_lines = map { split "\n" } @_; - $o->{box} = (@_ <= 2 && $nb_lines > 4) ? - gtkpack(new Gtk::VBox(0,0), - gtkset_usize(createScrolledWindow(gtktext_insert(new Gtk::Text, join "\n", @_)), 400, min(250, $nb_lines * 20))) : - gtkpack_(new Gtk::VBox(0,0), - (map { - my $w = ref $_ ? $_ : new Gtk::Label($_); - $w->set_name("Title"); - 0, $w; - } map { ref $_ ? $_ : warp_text($_) } @_), - 0, new Gtk::HSeparator, - ); + $o->{box} = mypack(new Gtk::VBox(0,0), + map({ new Gtk::Label(" $_ ") } @_), + new Gtk::HSeparator, + ) } sub createScrolledWindow($) { - my ($W) = @_; my $w = new Gtk::ScrolledWindow(undef, undef); $w->set_policy('automatic', 'automatic'); - 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->add_with_viewport($_[0]); + $_[0]->show; $w } sub create_menu($@) { my $title = shift; my $w = new Gtk::MenuItem($title); - $w->set_submenu(gtkshow(gtkappend(new Gtk::Menu, @_))); + $w->set_submenu(myshow(myappend(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 @_; + while (@_) { + my $title = shift; + my $book = shift; + + my ($w1, $w2) = map { new Gtk::Label($_) } $title, $title; + $n->append_page_menu($book, $w1, $w2); + $book->show; + $w1->show; + $w2->show; + } $n } @@ -263,17 +152,17 @@ sub create_adjustment($$$) { sub create_packtable($@) { my $options = shift; my $w = new Gtk::Table(0, 0, $options->{homogeneous} || 0); - map_index { - my ($i) = @_; - map_index { - my ($j) = @_; - if (defined $_) { - ref $_ or $_ = new Gtk::Label($_); - $w->attach_defaults($_, $j, $j + 1, $i, $i + 1); - $_->show; + my $i = 0; foreach (@_) { + for (my $j = 0; $j < @$_; $j++) { + if (defined $_->[$j]) { + my $l = $_->[$j]; + ref $l or $l = new Gtk::Label($l); + $w->attach_defaults($l, $j, $j + 1, $i, $i + 1); + $l->show; } - } @$_; - } @_; + } + $i++; + } $w->set_col_spacings($options->{col_spacings} || 0); $w->set_row_spacings($options->{row_spacings} || 0); $w @@ -284,388 +173,89 @@ sub create_hbox { $w->set_layout(-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 $f = new Gtk::Frame(undef); - $w->set_name("Title"); - - if ($::isStandalone || $o->{no_border} || 1) { # hack - gtkadd($w, $f); - } else { - my $t = new Gtk::Table(0, 0, 0); - - my $new = sub { - my $w = new Gtk::DrawingArea; - $w->set_usize($border, $border); - $w->set_events(['exposure_mask']); - $w->signal_connect_after(expose_event => - sub { $w->window->draw_rectangle($w->style->black_gc, 1, 0, 0, @{$w->allocation}[2,3]); 1 } - ); - $w->show; - $w; - }; - - $t->attach(&$new(), 0, 1, 0, 3, [], , ["expand","fill"], 0, 0); - $t->attach(&$new(), 1, 2, 0, 1, ["expand","fill"], [], 0, 0); - $t->attach($f, 1, 2, 1, 2, ["expand","fill"], ["expand","fill"], 0, 0); - $t->attach(&$new(), 1, 2, 2, 3, ["expand","fill"], [], 0, 0); - $t->attach(&$new(), 2, 3, 0, 3, [], ["expand","fill"], 0, 0); - - gtkadd($w, $t); - } - - $w->set_title($title); +sub mymain($) { + my $o = shift; - $w->signal_connect(expose_event => sub { c::XSetInputFocus($w->window->XWINDOW); }) if $my_gtk::force_focus || $o->{force_focus}; - $w->signal_connect(delete_event => sub { undef $o->{retval}; Gtk->main_quit }); - $w->set_uposition(@{$my_gtk::force_position || $o->{force_position}}) if $my_gtk::force_position || $o->{force_position}; + $o->{window}->show; + Gtk->main; + $o->{window}->destroy; + myflush(); + $o->{retval} +} - $w->signal_connect(focus => sub { Gtk->idle_add(sub { $w->ensure_focus($_[0]); 0 }, $_[1]) }) if $w->can('ensure_focus'); +sub my_signal_connect($@) { + my $w = shift; + $w->signal_connect(@_); + $w +} - if ($::o->{mouse}{unsafe}) { - $w->set_events("pointer_motion_mask"); - my $signal; - $signal = $w->signal_connect(motion_notify_event => sub { - delete $::o->{mouse}{unsafe}; - log::l("unsetting unsafe mouse"); - $w->signal_disconnect($signal); - }); +sub mypack($@) { + my $box = shift; + foreach (@_) { + my $l = $_; + ref $l or $l = new Gtk::Label($l); + $box->pack_start($l, 1, 1, 0); + $l->show; } - $w->signal_connect(key_press_event => sub { - my $d = ${{ 65470 => 'help', - 65481 => 'next', - 65480 => 'previous' }}{$_[1]->{keyval}} or return; - - #- previous field is created here :( - my $s; foreach (reverse @{$::o->{orderedSteps}}) { - $s->{previous} = $_ if $s; - $s = $::o->{steps}{$_}; - } - - if ($d eq "help") { - require install_steps_gtk; - install_steps_gtk::create_big_help(); - } else { - my $s = $::o->{step}; - do { $s = $::o->{steps}{$s}{$d} } until !$s || $::o->{steps}{$s}{reachable}; - $::setstep && $s and die "setstep $s\n"; - } - }) unless $::isStandalone; - - $w->signal_connect(size_allocate => sub { - my ($wi, $he) = @{$_[1]}[2,3]; - my ($X, $Y, $Wi, $He) = @{$my_gtk::force_center || $o->{force_center}}; - $w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2)); - }) if ($my_gtk::force_center || $o->{force_center}) && !($my_gtk::force_position || $o->{force_position}) ; - - $o->{window} = $f; - $o->{rwindow} = $w; + $box } -my ($next_child, $left, $right, $up, $down); -{ - my $next_child = sub { - my ($c, $dir) = @_; - - my @childs = $c->parent->children; - - my $i; for ($i = 0; $i < @childs; $i++) { - last if $childs[$i] == $c || $childs[$i]->subtree == $c; - } - $i += $dir; - 0 <= $i && $i < @childs ? $childs[$i] : undef; - }; - $left = sub { &$next_child($_[0]->parent, 0); }; - $right = sub { - my ($c) = @_; - if ($c->subtree) { - $c->expand; - ($c->subtree->children)[0]; - } else { - $c; - } - }; - $down = sub { - my ($c) = @_; - return &$right($c) if ref $c eq "Gtk::TreeItem" && $c->subtree && $c->expanded; - - if (my $n = &$next_child($c, 1)) { - $n; - } else { - return if ref $c->parent ne 'Gtk::Tree'; - &$down($c->parent); - } - }; - $up = sub { - my ($c) = @_; - if (my $n = &$next_child($c, -1)) { - $n = ($n->subtree->children)[-1] while ref $n eq "Gtk::TreeItem" && $n->subtree && $n->expanded; - $n; - } else { - return if ref $c->parent ne 'Gtk::Tree'; - &$left($c); - } - }; +sub mypack_($@) { + my $box = shift; + for (my $i = 0; $i < @_; $i += 2) { + my $l = $_[$i + 1]; + ref $l or $l = new Gtk::Label($l); + $box->pack_start($l, $_[$i], 1, 0); + $_[$i + 1]->show; + } + $box } -sub create_treeitem($) { - my ($name) = @_; - - my $w = new Gtk::TreeItem($name); - $w->signal_connect(key_press_event => sub { - my (undef, $e) = @_; - local $_ = chr ($e->{keyval}); - - if ($e->{keyval} > 0x100) { - my $n; - $n = &$left($w) if /[Q´\x96]/; - $n = &$right($w) if /[S¶\x98]/; - $n = &$up($w) if /[R¸\x97]/; - $n = &$down($w) if /[T²\x99]/; - if ($n) { - $n->focus('up'); - $w->signal_emit_stop("key_press_event"); - } - $w->expand if /[+«]/; - $w->collapse if /[-\xad]/; - do { - $w->expanded ? $w->collapse : $w->expand; - $w->signal_emit_stop("key_press_event"); - } if /[\r\x8d]/; - } - 1; - }); - $w; +sub myappend($@) { + my $w = shift; + foreach (@_) { + my $l = $_; + ref $l or $l = new Gtk::Label($l); + $w->append($l); + $l->show; + } + $w } - - - -#-############################################################################### -#- ask_XXX - -#- just give a title and some args, and it will return the value given by the user -#-############################################################################### - -sub ask_warn { my $w = my_gtk->new(shift @_); $w->_ask_warn(@_); main($w); } -sub ask_yesorno { my $w = my_gtk->new(shift @_); $w->_ask_okcancel(@_, _("Yes"), _("No")); main($w); } -sub ask_okcancel { my $w = my_gtk->new(shift @_); $w->_ask_okcancel(@_, _("Is this correct?"), _("Ok"), _("Cancel")); main($w); } -sub ask_from_entry { my $w = my_gtk->new(shift @_); $w->_ask_from_entry(@_); main($w); } -sub ask_from_list { my $w = my_gtk->new($_[0]); $w->_ask_from_list(@_); main($w); } -sub ask_file { my $w = my_gtk->new(''); $w->_ask_file(@_); main($w); } - -sub _ask_from_entry($$@) { - my ($o, @msgs) = @_; - my $entry = new Gtk::Entry; - my $f = sub { $o->{retval} = $entry->get_text; Gtk->main_quit }; - $o->{ok_clicked} = $f; - $o->{cancel_clicked} = sub { undef $o->{retval}; Gtk->main_quit }; - - gtkadd($o->{window}, - gtkpack($o->create_box_with_title(@msgs), - gtksignal_connect($entry, 'activate' => $f), - ($o->{hide_buttons} ? () : create_okcancel($o))), - ); - $entry->grab_focus; +sub myadd($@) { + my $w = shift; + foreach (@_) { + my $l = $_; + ref $l or $l = new Gtk::Label($l); + $w->add($l); + $l->show; + } + $w } +sub myshow($) { $_[0]->show; $_[0] } -sub _ask_from_list { - my ($o, $title, $messages, $l, $def) = @_; - my (undef, @okcancel) = ref $title ? @$title : $title; - my $list = new Gtk::CList(1); - my ($first_time, $starting_word, $start_reg) = (1, '', "^"); - my (@widgets, $timeout, $curr); - - my $leave = sub { $o->{retval} = $l->[$curr]; Gtk->main_quit }; - my $select = sub { - $list->set_focus_row($_[0]); - $list->select_row($_[0], 0); - $list->moveto($_[0], 0, 0.5, 0); - }; - - ref $title && !@okcancel ? - $list->signal_connect(button_release_event => $leave) : - $list->signal_connect(button_press_event => sub { &$leave if $_[1]{type} =~ /^2/ }); - - $list->signal_connect(select_row => sub { - my ($w, $row, undef, $e) = @_; - $curr = $row; - }); - $list->signal_connect(key_press_event => sub { - my ($w, $e) = @_; - my $c = chr($e->{keyval} & 0xff); - - Gtk->timeout_remove($timeout) if $timeout; $timeout = ''; - - if ($e->{keyval} >= 0x100) { - &$leave if $c eq "\r" || $c eq "\x8d"; - $starting_word = '' if $e->{keyval} != 0xffe4; # control - } else { - if ($e->{state} & 4) { - #- control pressed - $c eq "s" or return 1; - $start_reg and $start_reg = '', return 1; - $curr++; - } else { - &$leave if $c eq ' '; - - $curr++ if $starting_word eq '' || $starting_word eq $c; - $starting_word .= $c unless $starting_word eq $c; - } - my $word = quotemeta $starting_word; - my $j; for ($j = 0; $j < @$l; $j++) { - $l->[($j + $curr) % @$l] =~ /$start_reg$word/i and last; - } - $j == @$l ? - $starting_word = '' : - &$select(($j + $curr) % @$l); - - $w->{timeout} = $timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 } ); - } - 1; - }); - $list->set_selection_mode('browse'); - $list->set_column_auto_resize(0, 1); - - $o->{ok_clicked} = $leave; - $o->{cancel_clicked} = sub { $o->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more. - gtkadd($o->{window}, - gtkpack($o->create_box_with_title(@$messages), - gtkpack_(new Gtk::VBox(0,7), - 1, @$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, min(350, $::windowheight - 60)) : $list, - @okcancel || !ref $title ? (0, create_okcancel($o, @okcancel)) : ()) - )); - $o->show; #- otherwise the moveto is not done - my $toselect; map_index { - $list->append($_); - $toselect = $::i if $def && $_ eq $def; - } @$l; - &$select($toselect); - - $list->grab_focus; -} -sub _ask_from_list_with_help { - my ($o, $title, $messages, $l, $help, $def) = @_; - my (undef, @okcancel) = ref $title ? @$title : $title; - my $list = new Gtk::List(); - my ($first_time, $starting_word, $start_reg) = (1, '', "^"); - my (@widgets, $timeout, $curr); - - my $leave = sub { $o->{retval} = $l->[$curr]; Gtk->main_quit }; - my $select = sub { - $list->select_item($_[0]); - }; - - ref $title && !@okcancel ? - $list->signal_connect(button_release_event => $leave) : - $list->signal_connect(button_press_event => sub { &$leave if $_[1]{type} =~ /^2/ }); - - $list->signal_connect(select_child => sub { - my ($w, $row) = @_; - $curr = $list->child_position($row); - }); - $list->signal_connect(key_press_event => sub { - my ($w, $e) = @_; - my $c = chr($e->{keyval} & 0xff); - - Gtk->timeout_remove($timeout) if $timeout; $timeout = ''; - - if ($e->{keyval} >= 0x100) { - &$leave if $c eq "\r" || $c eq "\x8d"; - $starting_word = '' if $e->{keyval} != 0xffe4; # control - } else { - if ($e->{state} & 4) { - #- control pressed - $c eq "s" or return 1; - $start_reg and $start_reg = '', return 1; - $curr++; - } else { - &$leave if $c eq ' '; - - $curr++ if $starting_word eq '' || $starting_word eq $c; - $starting_word .= $c unless $starting_word eq $c; - } - my $word = quotemeta $starting_word; - my $j; for ($j = 0; $j < @$l; $j++) { - $l->[($j + $curr) % @$l] =~ /$start_reg$word/i and last; - } - $j == @$l ? - $starting_word = '' : - &$select(($j + $curr) % @$l); +sub mysync(;$) { + my ($o) = @_; + $o and $o->{window}->show; - $w->{timeout} = $timeout = Gtk->timeout_add($forgetTime, sub { $timeout = $starting_word = ''; 0 } ); - } - 1; - }); - - $o->{ok_clicked} = $leave; - $o->{cancel_clicked} = sub { $o->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more. - gtkadd($o->{window}, - gtkpack($o->create_box_with_title(@$messages), - gtkpack_(new Gtk::VBox(0,7), - 1, @$l > 15 ? gtkset_usize(createScrolledWindow($list), 200, min(350, $::windowheight - 60)) : $list, - @okcancel || !ref $title ? (0, create_okcancel($o, @okcancel)) : ()) - )); - $o->show; #- otherwise the moveto is not done - my $tips = new Gtk::Tooltips; - my $toselect; map_index { - my $item = new Gtk::ListItem($_); - $list->append_items($item); - $tips->set_tip($item, $help->{$_}) if $help->{$_}; - $item->show; - $toselect = $::i if $def && $_ eq $def; - } @$l; - &$select($toselect); - - $list->grab_focus; + my $h = Gtk->idle_add(sub { Gtk->main_quit; 1 }); + map { Gtk->main } (1..4); + Gtk->idle_remove($h); } - -sub _ask_warn($@) { - my ($o, @msgs) = @_; - gtkadd($o->{window}, - gtkpack($o->create_box_with_title(@msgs), - gtksignal_connect(my $w = new Gtk::Button(_("Ok")), "clicked" => sub { Gtk->main_quit }), - ), - ); - $w->grab_focus; +sub myflush(;$) { + Gtk->main_iteration while Gtk::Gdk->events_pending; } -sub _ask_okcancel($@) { - my ($o, @msgs) = @_; - my ($ok, $cancel) = splice @msgs, -2; - gtkadd($o->{window}, - gtkpack(create_box_with_title($o, @msgs), - create_okcancel($o, $ok, $cancel), - ) - ); - $o->{ok}->grab_focus; -} +sub bigsize($) { $_[0]->{window}->set_usize(600,400); } +sub myset_usize($$$) { $_[0]->set_usize($_[1],$_[2]); $_[0] } +sub myset_justify($$) { $_[0]->set_justify($_[1]); $_[0] } +sub mydestroy($) { $_[0] and $_[0]->destroy } -sub _ask_file($$) { - my ($o, $title) = @_; - my $f = $o->{rwindow} = new Gtk::FileSelection $title; - $f->ok_button->signal_connect(clicked => sub { $o->{retval} = $f->get_filename ; Gtk->main_quit }); - $f->cancel_button->signal_connect(clicked => sub { Gtk->main_quit }); - $f->hide_fileop_buttons; +sub label_align($$) { + my $w = shift; + local $_ = shift; + $w->set_alignment(!/W/i, !/N/i); + $w } - -#-############################################################################### -#- rubbish -#-############################################################################### - -#-sub label_align($$) { -#- my $w = shift; -#- local $_ = shift; -#- $w->set_alignment(!/W/i, !/N/i); -#- $w -#-} - |