Leser: 1
8 Einträge, 1 Seite |
$mw->bind($class, '<ButtonPress-1>', \&Button1)
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
$self->{_listbox} = $self->{_mw}->Scrolled(
'HList',
-head => 1,
-columns => scalar @headers,
-scrollbars => 'e',
-width => 100,
-height => 10,
-browsecmd => sub {  
; # if job is selected
my $index = shift;
$self->{_job_id} = $list[$index][5]; # set jobID
$self->fill_box($list[$index][5]); # fill content and description box
$self->crontab_button($list[$index][5]); # color crontab button
},
-background => 'white')->place(-x => 5, -y => 75);
$self->{_listbox}->bind('<ButtonPress-1>',\%{$self->woissn()});
$self->{_listbox}->bind('<ButtonPress-1>',\&woissn);
$self->{_listbox}->bind('<ButtonPress-1>',[\&woissn,$self]);
... => sub { $self->woissn }
8 Einträge, 1 Seite |