blob: 191353cf1f14d96c67cfea54f3be0507be1f3c5c (
plain)
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
|
sub puke_invalid_cmd {
print "*E* Puke: Invalid command 0 ack'ed\n";
#
# Stop waiting, things are messed up
#
$wait = 0;
}
$PUKE_DEF_HANDLER{"$PUKE_INVALID"} = \&puke_invalid_cmd;
#sub puke_widget_create_ack {
# my %ARG = %{$_[0]};
#
# $ARG{cArg} =~ /^(.{8,8})/;
# my $string = $1;
#
# if($PUKE_CREATOR{$string}){
# &{$PUKE_CREATOR{$string}}(%ARG); # added %ARG
# }
# else {
# print "*E* Widget created: $string but no handler\n";
# }
#}
#$PUKE_DEF_HANDLER{"$PUKE_WIDGET_CREATE_ACK"} = \&puke_widget_create_ack;
#$PUKE_DEF_HANDLER{"$PUKE_LAYOUT_NEW_ACK"} = \&puke_widget_create_ack;
# By default we ignore all the EVENT's we get sent at us.
$PUKE_DEF_HANDLER{"$PUKE_WIDGET_EVENT_NONE"} = sub {};
$PUKE_DEF_HANDLER{"$PUKE_WIDGET_EVENT_TIME"} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_MOUSEBUTTONPRESS} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_MOUSEBUTTONRELEASE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_MOUSEDBLCLICK} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_MOUSEMOVE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_KEYPRESS} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_KEYRELEASE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_KEYPRESS} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_FOCUSIN} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_FOCUSOUT} = sub {};
$PUKE_DEF_HANDLER{"$PUKE_WIDGET_EVENT_ENTER"} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_LEAVE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_PAINT} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_MOVE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_RESIZE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_CREATE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_DESTORY} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_SHOW} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_HIDE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_CLOSE} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_EVENT_TIMER} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_RESIZE_ACK} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_REPAINT_ACK} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_MOVE_ACK} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_SHOW_ACK} = sub {};
$PUKE_DEF_HANDLER{$PUKE_WIDGET_HIDE_ACK} = sub {};
$PUKE_DEF_HANDLER{$PUKE_LINED_SET_TEXT_ACK} = sub {};
1;
|
