You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
2.2 KiB
62 lines
2.2 KiB
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;
|