1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
package interactive_gtk;
use diagnostics;
use strict;
use vars qw(@ISA);
@ISA = qw(interactive);
use interactive;
use common qw(:common);
use my_gtk qw(:helpers :wrappers);
1;
# redefine ask_warn
sub ask_warn {
my $o = shift;
local $my_gtk::grab = 1;
$o->SUPER::ask_warn(@_);
}
sub ask_from_entryW {
my ($o, $title, $messages, $def) = @_;
my $w = my_gtk->new($title, %$o);
$w->_ask_from_entry(@$messages);
$w->main;
}
sub ask_from_listW {
my ($o, $title, $messages, $l, $def) = @_;
if (@$l < 5 && sum(map { length $_ } @$l) < 70) {
my $w = my_gtk->new($title, %$o);
my $f = sub { $w->{retval} = $_[1]; Gtk->main_quit };
gtkadd($w->{window},
gtkpack(create_box_with_title($w, @$messages),
gtkadd((@$l < 3 ? create_hbox() : create_vbox()),
map {
my $b = new Gtk::Button($_);
$b->signal_connect(clicked => [ $f, $_ ]);
$_ eq $def and $def = $b;
$b;
} @$l),
),
);
$def->grab_focus if $def;
$w->main;
} else {
my $w = my_gtk->new($title);
$w->_ask_from_list($messages, $l, $def);
$w->main;
}
}
sub ask_many_from_listW {
my ($o, $title, $messages, $list, $default) = @_;
my @rr = @$default;
my $n = 0;
my $w = my_gtk->new('', %$o);
gtkadd($w->{window},
gtkpack(create_box_with_title($w, @$messages),
gtkpack(new Gtk::VBox(0,0),
map {
my $nn = $n++;
my $o = Gtk::CheckButton->new($_);
$o->set_active($rr[$nn]);
$o->signal_connect(clicked => sub { $rr[$nn] = !$rr[$nn] });
$o;
} @$list),
$w->create_okcancel,
)
);
$w->{ok}->grab_focus;
$w->main or return;
@rr;
}
sub wait_messageW($$$) {
my ($o, $title, $message) = @_;
my $w = my_gtk->new(_("Resizing"), %$o, grab => 1);
my $W = pop @$message;
gtkadd($w->{window},
gtkpack(new Gtk::VBox(0,0),
@$message,
$w->{wait_messageW} = new Gtk::Label($W)));
$w->sync;
$w;
}
sub wait_message_nextW {
my ($o, $message, $w) = @_;
$w->{wait_messageW}->set($message);
$w->sync;
}
sub wait_message_endW {
my ($o, $w) = @_;
$w->destroy;
}
|
