[Catalyst-commits] r7112 -
trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx
eriam at dev.catalyst.perl.org
eriam at dev.catalyst.perl.org
Fri Nov 9 17:37:50 GMT 2007
Author: eriam
Date: 2007-11-09 17:37:46 +0000 (Fri, 09 Nov 2007)
New Revision: 7112
Modified:
trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
Log:
Renamed the events and add the values of controls in the same parent with the request
Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm 2007-11-09 16:21:17 UTC (rev 7111)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx/Event.pm 2007-11-09 17:37:46 UTC (rev 7112)
@@ -1,4531 +1,4513 @@
-package Catalyst::Engine::Wx::Event;
-
-use strict;
-use vars qw(@ISA @EXPORT_OK);
-
-use Exporter;
-
- at ISA = qw(Exporter);
-#@EXPORT_OK = qw();
-
-# !parser: sub { $_[0] =~ m/sub (EVT_\w+)/ }
-# !package: Wx::Event
-
-sub EVT_QUIT {
- POE::Kernel->post('catalyst-wxperl', '_stop');
-}
-
-sub EVT {
- my $parent = $_[0];
- my $controller = $_[1];
- my $params = $_[2] || {};
-
- $params->{'controller'} = $controller;
- $params->{'parent'} = $parent;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', $params);
-}
-
-#
-# ActivateEvent
-#
-
-sub EVT_ACTIVATE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ACTIVATE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ACTIVATE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_ACTIVATE_APP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ACTIVATE_APP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ACTIVATE_APP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# CommandEvent
-#
-sub EVT_COMMAND_RANGE($$$$$) { $_[0]->Connect( $_[1], $_[2], $_[3], $_[4] ) } # FIX ME !!
-sub EVT_BUTTON($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_BUTTON_CLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_BUTTON_CLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_CHECKBOX($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHECKBOX_CLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHECKBOX_CLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_CHOICE($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHOICE_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHOICE_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LISTBOX($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOX_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOX_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LISTBOX_DCLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOX_DOUBLECLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TEXT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_UPDATED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_UPDATED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-# ------------------------------------------------------------------------------------------------------
-sub EVT_TEXT_ENTER($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_ENTER, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_ENTER, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TEXT_MAXLEN($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_MAXLEN, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_MAXLEN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TEXT_URL($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_URL, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_URL, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_MENU($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_MENU_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_MENU_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-# NEEDS FIX !!
-sub EVT_MENU_RANGE($$$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_MENU_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_MENU_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SLIDER($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SLIDER_UPDATED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SLIDER_UPDATED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_RADIOBOX($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_RADIOBOX_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_RADIOBOX_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_RADIOBUTTON($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_RADIOBUTTON_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_RADIOBUTTON_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLBAR($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SCROLLBAR_UPDATED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SCROLLBAR_UPDATED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMBOBOX($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_COMBOBOX_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_COMBOBOX_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TOOL($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_CLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_CLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-# NEEDS FIX !!
-sub EVT_TOOL_RANGE($$$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_CLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_CLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TOOL_RCLICKED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_RCLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_RCLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-# NEEDS FIX !!
-sub EVT_TOOL_RCLICKED_RANGE($$$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_RCLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_RCLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TOOL_ENTER($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_ENTER, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOL_ENTER, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_LEFT_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LEFT_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LEFT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_LEFT_DCLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LEFT_DCLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LEFT_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_RIGHT_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_RIGHT_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_RIGHT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SET_FOCUS($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SET_FOCUS, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SET_FOCUS, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_KILL_FOCUS($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_KILL_FOCUS, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_KILL_FOCUS, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_ENTER($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_ENTER, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_ENTER, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TOGGLEBUTTON($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOGGLEBUTTON_CLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_CHECKLISTBOX($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHECKLISTBOX_TOGGLED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TEXT_CUT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_CUT, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_CUT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TEXT_COPY($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_COPY, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_COPY, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TEXT_PASTE($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_PASTE, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TEXT_PASTE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# CloseEvent
-#
-sub EVT_CLOSE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CLOSE_WINDOW, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CLOSE_WINDOW, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_END_SESSION($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_END_SESSION, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_END_SESSION, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_QUERY_END_SESSION($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_QUERY_END_SESSION, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_QUERY_END_SESSION, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# DropFilesEvent
-#
-
-sub EVT_DROP_FILES($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_DROP_FILES, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_DROP_FILES, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# EraseEvent
-#
-sub EVT_ERASE_BACKGROUND($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ERASE_BACKGROUND, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ERASE_BACKGROUND, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# FindDialogEvent
-#
-sub EVT_FIND($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_FIND_NEXT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_NEXT, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_NEXT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_FIND_REPLACE($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_REPLACE, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_REPLACE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_FIND_REPLACE_ALL($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_REPLACE_ALL, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_REPLACE_ALL, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_FIND_CLOSE($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_CLOSE, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_FIND_CLOSE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# FocusEvent
-#
-sub EVT_SET_FOCUS($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SET_FOCUS, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SET_FOCUS, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_KILL_FOCUS($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_KILL_FOCUS, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_KILL_FOCUS, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# KeyEvent
-#
-
-sub EVT_CHAR($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CHAR, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CHAR, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_CHAR_HOOK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CHAR_HOOK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CHAR_HOOK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_KEY_DOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_KEY_DOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_KEY_DOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_KEY_UP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_KEY_UP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_KEY_UP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# Grid*Event
-#
-
-sub EVT_GRID_CELL_LEFT_CLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_LEFT_CLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_LEFT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_CELL_RIGHT_CLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_RIGHT_CLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_RIGHT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_CELL_LEFT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_LEFT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_LEFT_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_CELL_RIGHT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_RIGHT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_RIGHT_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_LABEL_LEFT_CLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_LEFT_CLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_LEFT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_LABEL_RIGHT_CLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_RIGHT_CLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_RIGHT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_LABEL_LEFT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_LEFT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_LEFT_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_LABEL_RIGHT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_RIGHT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_LABEL_RIGHT_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_ROW_SIZE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_ROW_SIZE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_ROW_SIZE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_COL_SIZE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_COL_SIZE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_COL_SIZE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_RANGE_SELECT($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_RANGE_SELECT, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_RANGE_SELECT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_CELL_CHANGE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_CHANGE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_CELL_CHANGE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_SELECT_CELL($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_SELECT_CELL, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_SELECT_CELL, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_EDITOR_SHOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_EDITOR_SHOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_EDITOR_SHOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_EDITOR_HIDDEN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_EDITOR_HIDDEN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_EDITOR_HIDDEN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_GRID_EDITOR_CREATED($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_EDITOR_CREATED, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_GRID_EDITOR_CREATED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# HelpEvent
-#
-
-sub EVT_HELP($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_HELP, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOOK_PAGE_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_HELP_RANGE($$$$) { $_[0]->Connect( $_[1], $_[2], &Wx::wxEVT_HELP, $_[3] ) } # FIX ME !!!!
-sub EVT_DETAILED_HELP($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_DETAILED_HELP, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOOK_PAGE_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_DETAILED_HELP_RANGE($$$$) { $_[0]->Connect( $_[1], $_[2], &Wx::wxEVT_DETAILED_HELP, $_[3] ) } # FIX ME !!!!
-
-#
-# IconizeEvent
-#
-
-sub EVT_ICONIZE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ICONIZE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ICONIZE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# IdleEvent
-#
-
-sub EVT_IDLE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_IDLE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_IDLE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# InitDialogEvent
-#
-
-sub EVT_INIT_DIALOG($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_INIT_DIALOG, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_INIT_DIALOG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# JoystickEvent
-#
-
-sub EVT_JOY_BUTTON_DOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_BUTTON_DOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_BUTTON_DOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_JOY_BUTTON_UP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_BUTTON_UP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_BUTTON_UP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_JOY_MOVE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_MOVE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_MOVE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_JOY_ZMOVE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_ZMOVE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_JOY_ZMOVE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# ListbookEvent
-#
-
-sub EVT_LISTBOOK_PAGE_CHANGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOOK_PAGE_CHANGING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOOK_PAGE_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LISTBOOK_PAGE_CHANGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOOK_PAGE_CHANGED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LISTBOOK_PAGE_CHANGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# ChoicebookEvent
-#
-
-sub EVT_CHOICEBOOK_PAGE_CHANGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHOICEBOOK_PAGE_CHANGING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHOICEBOOK_PAGE_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_CHOICEBOOK_PAGE_CHANGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHOICEBOOK_PAGE_CHANGED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_CHOICEBOOK_PAGE_CHANGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# ToolbookEvent
-#
-
-sub EVT_TOOLBOOK_PAGE_CHANGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOLBOOK_PAGE_CHANGING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOLBOOK_PAGE_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TOOLBOOK_PAGE_CHANGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOLBOOK_PAGE_CHANGED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TOOLBOOK_PAGE_CHANGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# TreebookEvent
-#
-sub EVT_TREEBOOK_PAGE_CHANGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_PAGE_CHANGING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_PAGE_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREEBOOK_PAGE_CHANGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_PAGE_CHANGED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_PAGE_CHANGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREEBOOK_NODE_COLLAPSED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_NODE_COLLAPSED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_NODE_COLLAPSED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREEBOOK_NODE_EXPANDED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_NODE_EXPANDED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREEBOOK_NODE_EXPANDED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# ListEvent
-#
-sub EVT_LIST_BEGIN_DRAG($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_BEGIN_DRAG, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_BEGIN_RDRAG($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_BEGIN_RDRAG, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_BEGIN_RDRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_BEGIN_LABEL_EDIT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_BEGIN_LABEL_EDIT, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_BEGIN_LABEL_EDIT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_CACHE_HINT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_CACHE_HINT, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_CACHE_HINT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_END_LABEL_EDIT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_END_LABEL_EDIT, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_END_LABEL_EDIT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_DELETE_ITEM($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_DELETE_ITEM, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_DELETE_ITEM, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_DELETE_ALL_ITEMS($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_DELETE_ALL_ITEMS, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_DELETE_ALL_ITEMS, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_GET_INFO($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_GET_INFO, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_GET_INFO, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_SET_INFO($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_SET_INFO, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_SET_INFO, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_ITEM_SELECTED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_SELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_SELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_ITEM_DESELECTED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_DESELECTED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_DESELECTED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_KEY_DOWN($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_KEY_DOWN, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_KEY_DOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_INSERT_ITEM($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_INSERT_ITEM, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_INSERT_ITEM, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_COL_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_RIGHT_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_RIGHT_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_RIGHT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_MIDDLE_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_MIDDLE_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_MIDDLE_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_ITEM_ACTIVATED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_ACTIVATED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_ACTIVATED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_COL_RIGHT_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_RIGHT_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_RIGHT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_COL_BEGIN_DRAG($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_BEGIN_DRAG, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_COL_DRAGGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_DRAGGING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_DRAGGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_COL_END_DRAG($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_END_DRAG, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_COL_END_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_ITEM_FOCUSED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_FOCUSED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_FOCUSED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_LIST_ITEM_RIGHT_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_RIGHT_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_LIST_ITEM_RIGHT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# MenuEvent
-#
-
-sub EVT_MENU_CHAR($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_CHAR, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_CHAR, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MENU_INIT($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_INIT, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_INIT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MENU_HIGHLIGHT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_MENU_HIGHLIGHT, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_MENU_HIGHLIGHT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_POPUP_MENU($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_POPUP_MENU, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_POPUP_MENU, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_CONTEXT_MENU($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CONTEXT_MENU, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CONTEXT_MENU, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MENU_OPEN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_OPEN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_OPEN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MENU_CLOSE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_CLOSE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MENU_CLOSE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# MouseEvent
-#
-sub EVT_LEFT_DOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEFT_DOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEFT_DOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_LEFT_UP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEFT_UP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEFT_UP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_LEFT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEFT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEFT_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MIDDLE_DOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MIDDLE_DOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MIDDLE_DOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MIDDLE_UP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MIDDLE_UP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MIDDLE_UP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MIDDLE_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MIDDLE_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MIDDLE_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_RIGHT_DOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_RIGHT_DOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_RIGHT_DOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_RIGHT_UP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_RIGHT_UP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_RIGHT_UP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_RIGHT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_RIGHT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_RIGHT_DCLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MOTION($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOTION, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOTION, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_ENTER_WINDOW($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ENTER_WINDOW, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_ENTER_WINDOW, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_LEAVE_WINDOW($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEAVE_WINDOW, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_LEAVE_WINDOW, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MOUSEWHEEL($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOUSEWHEEL, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOUSEWHEEL, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MOUSE_EVENTS($$) {
- my( $x, $y ) = @_;
- EVT_LEFT_DOWN( $x, $y );
- EVT_LEFT_UP( $x, $y );
- EVT_LEFT_DCLICK( $x, $y );
- EVT_MIDDLE_DOWN( $x, $y );
- EVT_MIDDLE_UP( $x, $y );
- EVT_MIDDLE_DCLICK( $x, $y );
- EVT_RIGHT_DOWN( $x, $y );
- EVT_RIGHT_UP( $x, $y );
- EVT_RIGHT_DCLICK( $x, $y );
- EVT_MOTION( $x, $y );
- EVT_ENTER_WINDOW( $x, $y );
- EVT_LEAVE_WINDOW( $x, $y );
- EVT_MOUSEWHEEL( $x, $y );
-}
-
-#
-# MoveEvent
-#
-
-sub EVT_MOVE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOVE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOVE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_MOVING($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOVING, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_MOVING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# NotebookEvent
-#
-
-sub EVT_NOTEBOOK_PAGE_CHANGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_NOTEBOOK_PAGE_CHANGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_NOTEBOOK_PAGE_CHANGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# PaintEvent
-#
-
-sub EVT_PAINT($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_PAINT, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_PAINT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# ProcessEvent
-#
-
-sub EVT_END_PROCESS($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_END_PROCESS, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_END_PROCESS, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# SashEvent
-#
-sub EVT_SASH_DRAGGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SASH_DRAGGED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SASH_DRAGGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SASH_DRAGGED_RANGE($$$$) { $_[0]->Connect( $_[1], $_[2], &Wx::wxEVT_SASH_DRAGGED, $_[3] ) }
-
-#
-# SizeEvent
-#
-
-sub EVT_SIZE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SIZE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SIZING($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SIZING, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# ScrollEvent
-#
-
-sub EVT_SCROLL_TOP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLL_BOTTOM($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_BOTTOM, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLL_LINEUP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_LINEUP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLL_LINEDOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_LINEDOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLL_PAGEUP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_PAGEUP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLL_PAGEDOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_PAGEDOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLL_THUMBTRACK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_THUMBTRACK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLL_THUMBRELEASE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_THUMBRELEASE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-sub EVT_COMMAND_SCROLL_TOP($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_TOP, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_TOP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SCROLL_BOTTOM($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_BOTTOM, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_BOTTOM, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SCROLL_LINEUP($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SCROLL_LINEDOWN($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEDOWN, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEDOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SCROLL_PAGEUP($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_PAGEUP, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_PAGEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SCROLL_PAGEDOWN($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_PAGEDOWN, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_PAGEDOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SCROLL_THUMBTRACK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_THUMBTRACK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_THUMBTRACK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_COMMAND_SCROLL_THUMBRELEASE($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_THUMBRELEASE, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_THUMBRELEASE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# ScrollWinEvent
-#
-sub EVT_SCROLLWIN_TOP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_TOP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLWIN_BOTTOM($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_BOTTOM, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLWIN_LINEUP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_LINEUP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLWIN_LINEDOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_LINEDOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLWIN_PAGEUP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_PAGEUP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLWIN_PAGEDOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_PAGEDOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLWIN_THUMBTRACK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_THUMBTRACK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_SCROLLWIN_THUMBRELEASE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SCROLLWIN_THUMBRELEASE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# SpinEvent
-#
-
-sub EVT_SPIN_UP($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEUP, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SPIN_DOWN($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEDOWN, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_LINEDOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SPIN($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_THUMBTRACK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_SCROLL_THUMBTRACK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SPINCTRL($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SPINCTRL_UPDATED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SPINCTRL_UPDATED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# SplitterEvent
-#
-sub EVT_SPLITTER_SASH_POS_CHANGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGING, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SPLITTER_SASH_POS_CHANGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGED, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SPLITTER_SASH_POS_CHANGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SPLITTER_UNSPLIT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_SPLITTER_UNSPLIT, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SPLITTER_UNSPLIT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_SPLITTER_DOUBLECLICKED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_SPLITTER_DOUBLECLICKED, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_SPLITTER_DOUBLECLICKED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# SysColourChangedEvent
-#
-
-sub EVT_SYS_COLOUR_CHANGED($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_SYS_COLOUR_CHANGED, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# Taskbar
-#
-
-sub EVT_TASKBAR_MOVE($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_TASKBAR_MOVE, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_TASKBAR_LEFT_DOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_TASKBAR_LEFT_DOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_TASKBAR_LEFT_UP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_TASKBAR_LEFT_UP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_TASKBAR_RIGHT_DOWN($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_TASKBAR_RIGHT_DOWN, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_TASKBAR_RIGHT_UP($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_TASKBAR_RIGHT_UP, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_TASKBAR_LEFT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_TASKBAR_LEFT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-sub EVT_TASKBAR_RIGHT_DCLICK($$) {
- if (ref $_[1] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_TASKBAR_RIGHT_DCLICK, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $controller = $_[1];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- event => $event,
- });
- });
- }
-}
-
-#
-# TreeEvent
-#
-
-sub EVT_TREE_BEGIN_DRAG($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_BEGIN_RDRAG($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_RDRAG, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_RDRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_END_DRAG($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_END_DRAG, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_END_DRAG, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_BEGIN_LABEL_EDIT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_LABEL_EDIT, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_BEGIN_LABEL_EDIT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_END_LABEL_EDIT($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_END_LABEL_EDIT, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_END_LABEL_EDIT, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_GET_INFO($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_GET_INFO, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_GET_INFO, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_SET_INFO($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_CLOSE_WINDOW, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_SET_INFO, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_EXPANDED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_EXPANDED, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_EXPANDED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_EXPANDING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_EXPANDING, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_EXPANDING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_COLLAPSED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( -1, -1, &Wx::wxEVT_COMMAND_TREE_ITEM_COLLAPSED, $_[1] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_COLLAPSED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_COLLAPSING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_COLLAPSING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_COLLAPSING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_SEL_CHANGED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_SEL_CHANGING($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGING, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_SEL_CHANGING, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_KEY_DOWN($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_KEY_DOWN, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_KEY_DOWN, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_DELETE_ITEM($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_DELETE_ITEM, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_DELETE_ITEM, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_ACTIVATED($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_ACTIVATED, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_ACTIVATED, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_RIGHT_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_MIDDLE_CLICK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MIDDLE_CLICK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MIDDLE_CLICK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_TREE_ITEM_MENU($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MENU, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_TREE_ITEM_MENU, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# UpdateUIEvent
-#
-sub EVT_UPDATE_UI($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::EVT_UPDATE_UI, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_UPDATE_UI, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-sub EVT_UPDATE_UI_RANGE($$$$) { # FIX ME !!
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], $_[2], &Wx::EVT_UPDATE_UI_RANGE, $_[3] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::EVT_UPDATE_UI_RANGE, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# HyperlinkEvent
-#
-sub EVT_HYPERLINK($$$) {
- if (ref $_[2] eq 'CODE') {
- $_[0]->Connect( $_[1], -1, &Wx::EVT_HYPERLINK, $_[2] );
- }
- else {
- my $parent = $_[0];
- my $control = $_[1];
- my $controller = $_[2];
-
- $_[0]->Connect( $_[1], -1, &Wx::wxEVT_HYPERLINK, sub {
- my( $this, $event ) = @_;
-
- POE::Kernel->post('catalyst-wxperl', 'EVENT_REQUEST', {
- controller => $controller,
- parent => $parent,
- control => $control,
- event => $event,
- });
- });
- }
-}
-
-#
-# Socket
-#
-
-sub EVT_SOCKET($$$) { goto &Wx::Socket::Event::EVT_SOCKET }
-sub EVT_SOCKET_ALL($$$) { goto &Wx::Socket::Event::EVT_SOCKET_ALL }
-sub EVT_SOCKET_INPUT($$$) { goto &Wx::Socket::Event::EVT_SOCKET_INPUT }
-sub EVT_SOCKET_OUTPUT($$$) { goto &Wx::Socket::Event::EVT_SOCKET_OUTPUT }
-sub EVT_SOCKET_CONNECTION($$$) { goto &Wx::Socket::Event::EVT_SOCKET_CONNECTION }
-sub EVT_SOCKET_LOST($$$) { goto &Wx::Socket::Event::EVT_SOCKET_LOST }
-
-#
-# Prototypes
-#
-sub EVT_CALENDAR($$$);
-sub EVT_CALENDAR_SEL_CHANGED($$$);
-sub EVT_CALENDAR_DAY($$$);
-sub EVT_CALENDAR_MONTH($$$);
-sub EVT_CALENDAR_YEAR($$$);
-sub EVT_CALENDAR_WEEKDAY_CLICKED($$$);
-
-sub EVT_STC_CHANGE($$$);
-sub EVT_STC_STYLENEEDED($$$);
-sub EVT_STC_CHARADDED($$$);
-sub EVT_STC_SAVEPOINTREACHED($$$);
-sub EVT_STC_SAVEPOINTLEFT($$$);
-sub EVT_STC_ROMODIFYATTEMPT($$$);
-sub EVT_STC_KEY($$$);
-sub EVT_STC_DOUBLECLICK($$$);
-sub EVT_STC_UPDATEUI($$$);
-sub EVT_STC_MODIFIED($$$);
-sub EVT_STC_MACRORECORD($$$);
-sub EVT_STC_MARGINCLICK($$$);
-sub EVT_STC_NEEDSHOWN($$$);
-sub EVT_STC_POSCHANGED($$$);
-sub EVT_STC_PAINTED($$$);
-sub EVT_STC_USERLISTSELECTION($$$);
-sub EVT_STC_URIDROPPED($$$);
-sub EVT_STC_DWELLSTART($$$);
-sub EVT_STC_DWELLEND($$$);
-sub EVT_STC_START_DRAG($$$);
-sub EVT_STC_DRAG_OVER($$$);
-sub EVT_STC_DO_DROP($$$);
-sub EVT_STC_ZOOM($$$);
-sub EVT_STC_HOTSPOT_CLICK($$$);
-sub EVT_STC_HOTSPOT_DCLICK($$$);
-sub EVT_STC_CALLTIP_CLICK($$$);
-
-push @EXPORT_OK, qw(EVT
-EVT_QUIT
-EVT_ACTIVATE
-EVT_ACTIVATE_APP
-EVT_COMMAND_RANGE
-EVT_BUTTON
-EVT_CHECKBOX
-EVT_CHOICE
-EVT_LISTBOX
-EVT_LISTBOX_DCLICK
-EVT_TEXT
-EVT_TEXT_ENTER
-EVT_TEXT_MAXLEN
-EVT_TEXT_URL
-EVT_MENU
-EVT_MENU_RANGE
-EVT_SLIDER
-EVT_RADIOBOX
-EVT_RADIOBUTTON
-EVT_SCROLLBAR
-EVT_COMBOBOX
-EVT_TOOL
-EVT_TOOL_RANGE
-EVT_TOOL_RCLICKED
-EVT_TOOL_RCLICKED_RANGE
-EVT_TOOL_ENTER
-EVT_COMMAND_LEFT_CLICK
-EVT_COMMAND_LEFT_DCLICK
-EVT_COMMAND_RIGHT_CLICK
-EVT_COMMAND_SET_FOCUS
-EVT_COMMAND_KILL_FOCUS
-EVT_COMMAND_ENTER
-EVT_TOGGLEBUTTON
-EVT_CHECKLISTBOX
-EVT_TEXT_CUT
-EVT_TEXT_COPY
-EVT_TEXT_PASTE
-EVT_CLOSE
-EVT_END_SESSION
-EVT_QUERY_END_SESSION
-EVT_DROP_FILES
-EVT_ERASE_BACKGROUND
-EVT_FIND
-EVT_FIND_NEXT
-EVT_FIND_REPLACE
-EVT_FIND_REPLACE_ALL
-EVT_FIND_CLOSE
-EVT_SET_FOCUS
-EVT_KILL_FOCUS
-EVT_CHAR
-EVT_CHAR_HOOK
-EVT_KEY_DOWN
-EVT_KEY_UP
-EVT_GRID_CELL_LEFT_CLICK
-EVT_GRID_CELL_RIGHT_CLICK
-EVT_GRID_CELL_LEFT_DCLICK
-EVT_GRID_CELL_RIGHT_DCLICK
-EVT_GRID_LABEL_LEFT_CLICK
-EVT_GRID_LABEL_RIGHT_CLICK
-EVT_GRID_LABEL_LEFT_DCLICK
-EVT_GRID_LABEL_RIGHT_DCLICK
-EVT_GRID_ROW_SIZE
-EVT_GRID_COL_SIZE
-EVT_GRID_RANGE_SELECT
-EVT_GRID_CELL_CHANGE
-EVT_GRID_SELECT_CELL
-EVT_GRID_EDITOR_SHOWN
-EVT_GRID_EDITOR_HIDDEN
-EVT_GRID_EDITOR_CREATED
-EVT_HELP
-EVT_HELP_RANGE
-EVT_DETAILED_HELP
-EVT_DETAILED_HELP_RANGE
-EVT_ICONIZE
-EVT_IDLE
-EVT_INIT_DIALOG
-EVT_JOY_BUTTON_DOWN
-EVT_JOY_BUTTON_UP
-EVT_JOY_MOVE
-EVT_JOY_ZMOVE
-EVT_LISTBOOK_PAGE_CHANGING
-EVT_LISTBOOK_PAGE_CHANGED
-EVT_CHOICEBOOK_PAGE_CHANGING
-EVT_CHOICEBOOK_PAGE_CHANGED
-EVT_TOOLBOOK_PAGE_CHANGING
-EVT_TOOLBOOK_PAGE_CHANGED
-EVT_TREEBOOK_PAGE_CHANGING
-EVT_TREEBOOK_PAGE_CHANGED
-EVT_TREEBOOK_NODE_COLLAPSED
-EVT_TREEBOOK_NODE_EXPANDED
-EVT_LIST_BEGIN_DRAG
-EVT_LIST_BEGIN_RDRAG
-EVT_LIST_BEGIN_LABEL_EDIT
-EVT_LIST_CACHE_HINT
-EVT_LIST_END_LABEL_EDIT
-EVT_LIST_DELETE_ITEM
-EVT_LIST_DELETE_ALL_ITEMS
-EVT_LIST_GET_INFO
-EVT_LIST_SET_INFO
-EVT_LIST_ITEM_SELECTED
-EVT_LIST_ITEM_DESELECTED
-EVT_LIST_KEY_DOWN
-EVT_LIST_INSERT_ITEM
-EVT_LIST_COL_CLICK
-EVT_LIST_RIGHT_CLICK
-EVT_LIST_MIDDLE_CLICK
-EVT_LIST_ITEM_ACTIVATED
-EVT_LIST_COL_RIGHT_CLICK
-EVT_LIST_COL_BEGIN_DRAG
-EVT_LIST_COL_DRAGGING
-EVT_LIST_COL_END_DRAG
-EVT_LIST_ITEM_FOCUSED
-EVT_LIST_ITEM_RIGHT_CLICK
-EVT_MENU_CHAR
-EVT_MENU_INIT
-EVT_MENU_HIGHLIGHT
-EVT_POPUP_MENU
-EVT_CONTEXT_MENU
-EVT_MENU_OPEN
-EVT_MENU_CLOSE
-EVT_LEFT_DOWN
-EVT_LEFT_UP
-EVT_LEFT_DCLICK
-EVT_MIDDLE_DOWN
-EVT_MIDDLE_UP
-EVT_MIDDLE_DCLICK
-EVT_RIGHT_DOWN
-EVT_RIGHT_UP
-EVT_RIGHT_DCLICK
-EVT_MOTION
-EVT_ENTER_WINDOW
-EVT_LEAVE_WINDOW
-EVT_MOUSEWHEEL
-EVT_MOUSE_EVENTS
-EVT_MOVE
-EVT_MOVING
-EVT_NOTEBOOK_PAGE_CHANGING
-EVT_NOTEBOOK_PAGE_CHANGED
-EVT_PAINT
-EVT_END_PROCESS
-EVT_SASH_DRAGGED
-EVT_SASH_DRAGGED_RANGE
-EVT_SIZE
-EVT_SIZING
-EVT_SCROLL_TOP
-EVT_SCROLL_BOTTOM
-EVT_SCROLL_LINEUP
-EVT_SCROLL_LINEDOWN
-EVT_SCROLL_PAGEUP
-EVT_SCROLL_PAGEDOWN
-EVT_SCROLL_THUMBTRACK
-EVT_SCROLL_THUMBRELEASE
-EVT_COMMAND_SCROLL_TOP
-EVT_COMMAND_SCROLL_BOTTOM
-EVT_COMMAND_SCROLL_LINEUP
-EVT_COMMAND_SCROLL_LINEDOWN
-EVT_COMMAND_SCROLL_PAGEUP
-EVT_COMMAND_SCROLL_PAGEDOWN
-EVT_COMMAND_SCROLL_THUMBTRACK
-EVT_COMMAND_SCROLL_THUMBRELEASE
-EVT_SCROLLWIN_TOP
-EVT_SCROLLWIN_BOTTOM
-EVT_SCROLLWIN_LINEUP
-EVT_SCROLLWIN_LINEDOWN
-EVT_SCROLLWIN_PAGEUP
-EVT_SCROLLWIN_PAGEDOWN
-EVT_SCROLLWIN_THUMBTRACK
-EVT_SCROLLWIN_THUMBRELEASE
-EVT_SPIN_UP
-EVT_SPIN_DOWN
-EVT_SPIN
-EVT_SPINCTRL
-EVT_SPLITTER_SASH_POS_CHANGING
-EVT_SPLITTER_SASH_POS_CHANGED
-EVT_SPLITTER_UNSPLIT
-EVT_SPLITTER_DOUBLECLICKED
-EVT_SYS_COLOUR_CHANGED
-EVT_TASKBAR_MOVE
-EVT_TASKBAR_LEFT_DOWN
-EVT_TASKBAR_LEFT_UP
-EVT_TASKBAR_RIGHT_DOWN
-EVT_TASKBAR_RIGHT_UP
-EVT_TASKBAR_LEFT_DCLICK
-EVT_TASKBAR_RIGHT_DCLICK
-EVT_TREE_BEGIN_DRAG
-EVT_TREE_BEGIN_RDRAG
-EVT_TREE_END_DRAG
-EVT_TREE_BEGIN_LABEL_EDIT
-EVT_TREE_END_LABEL_EDIT
-EVT_TREE_GET_INFO
-EVT_TREE_SET_INFO
-EVT_TREE_ITEM_EXPANDED
-EVT_TREE_ITEM_EXPANDING
-EVT_TREE_ITEM_COLLAPSED
-EVT_TREE_ITEM_COLLAPSING
-EVT_TREE_SEL_CHANGED
-EVT_TREE_SEL_CHANGING
-EVT_TREE_KEY_DOWN
-EVT_TREE_DELETE_ITEM
-EVT_TREE_ITEM_ACTIVATED
-EVT_TREE_ITEM_RIGHT_CLICK
-EVT_TREE_ITEM_MIDDLE_CLICK
-EVT_TREE_ITEM_MENU
-EVT_UPDATE_UI
-EVT_UPDATE_UI_RANGE
-EVT_HYPERLINK
-EVT_SOCKET
-EVT_SOCKET_ALL
-EVT_SOCKET_INPUT
-EVT_SOCKET_OUTPUT
-EVT_SOCKET_CONNECTION
-EVT_SOCKET_LOST
-EVT_CALENDAR
-EVT_CALENDAR_SEL_CHANGED
-EVT_CALENDAR_DAY
-EVT_CALENDAR_MONTH
-EVT_CALENDAR_YEAR
-EVT_CALENDAR_WEEKDAY_CLICKED
-EVT_STC_CHANGE
-EVT_STC_STYLENEEDED
-EVT_STC_CHARADDED
-EVT_STC_SAVEPOINTREACHED
-EVT_STC_SAVEPOINTLEFT
-EVT_STC_ROMODIFYATTEMPT
-EVT_STC_KEY
-EVT_STC_DOUBLECLICK
-EVT_STC_UPDATEUI
-EVT_STC_MODIFIED
-EVT_STC_MACRORECORD
-EVT_STC_MARGINCLICK
-EVT_STC_NEEDSHOWN
-EVT_STC_POSCHANGED
-EVT_STC_PAINTED
-EVT_STC_USERLISTSELECTION
-EVT_STC_URIDROPPED
-EVT_STC_DWELLSTART
-EVT_STC_DWELLEND
-EVT_STC_START_DRAG
-EVT_STC_DRAG_OVER
-EVT_STC_DO_DROP
-EVT_STC_ZOOM
-EVT_STC_HOTSPOT_CLICK
-EVT_STC_HOTSPOT_DCLICK
-EVT_STC_CALLTIP_CLICK);
-
-1;
-
-__END__
-
-# local variables:
-# mode: cperl
-# end:
+ÿþp a c k a g e C a t a l y s t : : E n g i n e : : W x : : E v e n t ;
+
+ u s e s t r i c t ;
+ u s e v a r s q w ( @ I S A @ E X P O R T _ O K ) ;
+
+ o u r $ V E R S I O N = " 0 . 0 2 _ 0 3 " ;
+
+ u s e E x p o r t e r ;
+
+ @ I S A = q w ( E x p o r t e r ) ;
+
+ # W e h a v e e x c e p t i o n s t o t h e c l a s s i c a l G e t V a l u e
+ # a n d w e d e a l w i t h t h e s e w i t h a h a s h t a b l e
+ # U n t i l n o w m o s t s t u f f s h o u l d b e o k w i t h G e t V a l u e
+ # a n d G e t S t r i n g S e l e c t i o n
+ m y $ g e t V a l u e = { } ;
+
+ # $ g e t V a l u e - > { ' W x : : T e x t C t r l ' } = s u b {
+ # r e t u r n $ _ [ 0 ] - > G e t V a l u e ;
+ # } ;
+
+ s u b _ p o s t _ e v e n t {
+ m y ( $ o p t ) = @ _ ;
+
+ f o r e a c h ( $ o p t - > { p a r e n t } - > G e t C h i l d r e n ) {
+ i f ( $ _ - > c a n ( ' G e t V a l u e ' ) ) {
+ $ o p t - > { $ _ - > G e t N a m e } = $ _ - > G e t V a l u e ;
+ }
+ e l s i f ( $ _ - > c a n ( ' G e t S t r i n g S e l e c t i o n ' ) ) {
+ $ o p t - > { $ _ - > G e t N a m e } = $ _ - > G e t S t r i n g S e l e c t i o n ;
+ }
+ e l s i f ( $ g e t V a l u e - > { r e f ( $ _ ) } ) {
+ $ o p t - > { $ _ - > G e t N a m e } = $ g e t V a l u e - > { r e f ( $ _ ) } ( $ _ ) ;
+ }
+ }
+
+ P O E : : K e r n e l - > p o s t ( ' c a t a l y s t - w x p e r l ' , ' E V E N T _ R E Q U E S T ' , $ o p t ) ;
+ }
+
+
+
+ s u b C A T _ E V T _ Q U I T {
+ P O E : : K e r n e l - > p o s t ( ' c a t a l y s t - w x p e r l ' , ' _ s t o p ' ) ;
+ }
+
+ s u b C A T _ E V T {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+ m y $ p a r a m s = $ _ [ 2 ] | | { } ;
+
+ $ p a r a m s - > { ' c o n t r o l l e r ' } = $ c o n t r o l l e r ;
+ $ p a r a m s - > { ' p a r e n t ' } = $ p a r e n t ;
+
+ _ p o s t _ e v e n t ( $ p a r a m s ) ;
+ }
+
+ #
+ # A c t i v a t e E v e n t
+ #
+
+ s u b C A T _ E V T _ A C T I V A T E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ A C T I V A T E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ A C T I V A T E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ A C T I V A T E _ A P P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ A C T I V A T E _ A P P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ A C T I V A T E _ A P P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # C o m m a n d E v e n t
+ #
+ s u b C A T _ E V T _ C O M M A N D _ R A N G E ( $ $ $ $ $ ) { $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , $ _ [ 2 ] , $ _ [ 3 ] , $ _ [ 4 ] ) } # F I X M E ! !
+
+ s u b C A T _ E V T _ B U T T O N {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ B U T T O N _ C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ B U T T O N _ C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C H E C K B O X ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H E C K B O X _ C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H E C K B O X _ C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C H O I C E ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H O I C E _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H O I C E _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T B O X ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O X _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O X _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T B O X _ D C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O X _ D O U B L E C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O X _ D O U B L E C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T E X T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ U P D A T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ U P D A T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+ s u b C A T _ E V T _ T E X T _ E N T E R ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ E N T E R , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ E N T E R , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T E X T _ M A X L E N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ M A X L E N , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ M A X L E N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T E X T _ U R L ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ U R L , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ U R L , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M E N U ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ M E N U _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ M E N U _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ # N E E D S F I X ! !
+ s u b C A T _ E V T _ M E N U _ R A N G E ( $ $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ M E N U _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ M E N U _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S L I D E R ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S L I D E R _ U P D A T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S L I D E R _ U P D A T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ R A D I O B O X ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ R A D I O B O X _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ R A D I O B O X _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ R A D I O B U T T O N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ R A D I O B U T T O N _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ R A D I O B U T T O N _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L B A R ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S C R O L L B A R _ U P D A T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S C R O L L B A R _ U P D A T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M B O B O X ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C O M B O B O X _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C O M B O B O X _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T O O L ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ # N E E D S F I X ! !
+ s u b C A T _ E V T _ T O O L _ R A N G E ( $ $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T O O L _ R C L I C K E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ R C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ R C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ # N E E D S F I X ! !
+ s u b C A T _ E V T _ T O O L _ R C L I C K E D _ R A N G E ( $ $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ R C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ R C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T O O L _ E N T E R ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ E N T E R , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L _ E N T E R , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ L E F T _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L E F T _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L E F T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ L E F T _ D C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L E F T _ D C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L E F T _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ R I G H T _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ R I G H T _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ R I G H T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S E T _ F O C U S ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S E T _ F O C U S , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S E T _ F O C U S , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ K I L L _ F O C U S ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ K I L L _ F O C U S , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ K I L L _ F O C U S , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ E N T E R ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ E N T E R , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ E N T E R , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T O G G L E B U T T O N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O G G L E B U T T O N _ C L I C K E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O G G L E B U T T O N _ C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C H E C K L I S T B O X ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H E C K L I S T B O X _ T O G G L E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H E C K L I S T B O X _ T O G G L E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T E X T _ C U T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ C U T , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ C U T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T E X T _ C O P Y ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ C O P Y , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ C O P Y , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T E X T _ P A S T E ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ P A S T E , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T E X T _ P A S T E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # C l o s e E v e n t
+ #
+ s u b C A T _ E V T _ C L O S E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C L O S E _ W I N D O W , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C L O S E _ W I N D O W , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ E N D _ S E S S I O N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ E N D _ S E S S I O N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ E N D _ S E S S I O N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ Q U E R Y _ E N D _ S E S S I O N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ Q U E R Y _ E N D _ S E S S I O N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ Q U E R Y _ E N D _ S E S S I O N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # D r o p F i l e s E v e n t
+ #
+
+ s u b C A T _ E V T _ D R O P _ F I L E S ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ D R O P _ F I L E S , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ D R O P _ F I L E S , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # E r a s e E v e n t
+ #
+ s u b C A T _ E V T _ E R A S E _ B A C K G R O U N D ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ E R A S E _ B A C K G R O U N D , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ E R A S E _ B A C K G R O U N D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # F i n d D i a l o g E v e n t
+ #
+ s u b C A T _ E V T _ F I N D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ F I N D _ N E X T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ N E X T , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ N E X T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ F I N D _ R E P L A C E ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ R E P L A C E , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ R E P L A C E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ F I N D _ R E P L A C E _ A L L ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ R E P L A C E _ A L L , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ R E P L A C E _ A L L , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ F I N D _ C L O S E ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ C L O S E , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ F I N D _ C L O S E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # F o c u s E v e n t
+ #
+ s u b C A T _ E V T _ S E T _ F O C U S ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S E T _ F O C U S , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S E T _ F O C U S , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ K I L L _ F O C U S ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ K I L L _ F O C U S , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ K I L L _ F O C U S , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # K e y E v e n t
+ #
+
+ s u b C A T _ E V T _ C H A R ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C H A R , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C H A R , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C H A R _ H O O K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C H A R _ H O O K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C H A R _ H O O K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ K E Y _ D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ K E Y _ D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ K E Y _ D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ K E Y _ U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ K E Y _ U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ K E Y _ U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # G r i d * E v e n t
+ #
+
+ s u b C A T _ E V T _ G R I D _ C E L L _ L E F T _ C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ L E F T _ C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ L E F T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ C E L L _ R I G H T _ C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ R I G H T _ C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ R I G H T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ C E L L _ L E F T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ L E F T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ L E F T _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ C E L L _ R I G H T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ R I G H T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ R I G H T _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ L A B E L _ L E F T _ C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ L E F T _ C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ L E F T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ L A B E L _ R I G H T _ C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ R I G H T _ C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ R I G H T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ L A B E L _ L E F T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ L E F T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ L E F T _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ L A B E L _ R I G H T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ R I G H T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ L A B E L _ R I G H T _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ R O W _ S I Z E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ R O W _ S I Z E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ R O W _ S I Z E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ C O L _ S I Z E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C O L _ S I Z E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C O L _ S I Z E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ R A N G E _ S E L E C T ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ R A N G E _ S E L E C T , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ R A N G E _ S E L E C T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ C E L L _ C H A N G E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ C H A N G E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ C E L L _ C H A N G E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ S E L E C T _ C E L L ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ S E L E C T _ C E L L , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ S E L E C T _ C E L L , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ E D I T O R _ S H O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ E D I T O R _ S H O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ E D I T O R _ S H O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ E D I T O R _ H I D D E N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ E D I T O R _ H I D D E N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ E D I T O R _ H I D D E N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ G R I D _ E D I T O R _ C R E A T E D ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ E D I T O R _ C R E A T E D , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ G R I D _ E D I T O R _ C R E A T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # H e l p E v e n t
+ #
+
+ s u b C A T _ E V T _ H E L P ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ H E L P , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O O K _ P A G E _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ H E L P _ R A N G E ( $ $ $ $ ) { $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , $ _ [ 2 ] , & W x : : w x E V T _ H E L P , $ _ [ 3 ] ) } # F I X M E ! ! ! !
+ s u b C A T _ E V T _ D E T A I L E D _ H E L P ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ D E T A I L E D _ H E L P , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O O K _ P A G E _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ D E T A I L E D _ H E L P _ R A N G E ( $ $ $ $ ) { $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , $ _ [ 2 ] , & W x : : w x E V T _ D E T A I L E D _ H E L P , $ _ [ 3 ] ) } # F I X M E ! ! ! !
+
+ #
+ # I c o n i z e E v e n t
+ #
+
+ s u b C A T _ E V T _ I C O N I Z E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ I C O N I Z E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ I C O N I Z E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # I d l e E v e n t
+ #
+
+ s u b C A T _ E V T _ I D L E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ I D L E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ I D L E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # I n i t D i a l o g E v e n t
+ #
+
+ s u b C A T _ E V T _ I N I T _ D I A L O G ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ I N I T _ D I A L O G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ I N I T _ D I A L O G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # J o y s t i c k E v e n t
+ #
+
+ s u b C A T _ E V T _ J O Y _ B U T T O N _ D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ B U T T O N _ D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ B U T T O N _ D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ J O Y _ B U T T O N _ U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ B U T T O N _ U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ B U T T O N _ U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ J O Y _ M O V E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ M O V E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ M O V E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ J O Y _ Z M O V E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ Z M O V E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ J O Y _ Z M O V E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # L i s t b o o k E v e n t
+ #
+
+ s u b C A T _ E V T _ L I S T B O O K _ P A G E _ C H A N G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O O K _ P A G E _ C H A N G I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O O K _ P A G E _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T B O O K _ P A G E _ C H A N G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O O K _ P A G E _ C H A N G E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T B O O K _ P A G E _ C H A N G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # C h o i c e b o o k E v e n t
+ #
+
+ s u b C A T _ E V T _ C H O I C E B O O K _ P A G E _ C H A N G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H O I C E B O O K _ P A G E _ C H A N G I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H O I C E B O O K _ P A G E _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C H O I C E B O O K _ P A G E _ C H A N G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H O I C E B O O K _ P A G E _ C H A N G E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ C H O I C E B O O K _ P A G E _ C H A N G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # T o o l b o o k E v e n t
+ #
+
+ s u b C A T _ E V T _ T O O L B O O K _ P A G E _ C H A N G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L B O O K _ P A G E _ C H A N G I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L B O O K _ P A G E _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T O O L B O O K _ P A G E _ C H A N G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L B O O K _ P A G E _ C H A N G E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T O O L B O O K _ P A G E _ C H A N G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # T r e e b o o k E v e n t
+ #
+ s u b C A T _ E V T _ T R E E B O O K _ P A G E _ C H A N G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ P A G E _ C H A N G I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ P A G E _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E B O O K _ P A G E _ C H A N G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ P A G E _ C H A N G E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ P A G E _ C H A N G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E B O O K _ N O D E _ C O L L A P S E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ N O D E _ C O L L A P S E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ N O D E _ C O L L A P S E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E B O O K _ N O D E _ E X P A N D E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ N O D E _ E X P A N D E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E B O O K _ N O D E _ E X P A N D E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # L i s t E v e n t
+ #
+ s u b C A T _ E V T _ L I S T _ B E G I N _ D R A G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ B E G I N _ D R A G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ B E G I N _ R D R A G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ B E G I N _ R D R A G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ B E G I N _ R D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ B E G I N _ L A B E L _ E D I T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ B E G I N _ L A B E L _ E D I T , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ B E G I N _ L A B E L _ E D I T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ C A C H E _ H I N T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C A C H E _ H I N T , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C A C H E _ H I N T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ E N D _ L A B E L _ E D I T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ E N D _ L A B E L _ E D I T , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ E N D _ L A B E L _ E D I T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ D E L E T E _ I T E M ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ D E L E T E _ I T E M , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ D E L E T E _ I T E M , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ D E L E T E _ A L L _ I T E M S ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ D E L E T E _ A L L _ I T E M S , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ D E L E T E _ A L L _ I T E M S , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ G E T _ I N F O ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ G E T _ I N F O , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ G E T _ I N F O , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ S E T _ I N F O ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ S E T _ I N F O , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ S E T _ I N F O , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ I T E M _ S E L E C T E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ I T E M _ D E S E L E C T E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ D E S E L E C T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ D E S E L E C T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ K E Y _ D O W N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ K E Y _ D O W N , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ K E Y _ D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ I N S E R T _ I T E M ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I N S E R T _ I T E M , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I N S E R T _ I T E M , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ C O L _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ R I G H T _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ R I G H T _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ R I G H T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ M I D D L E _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ M I D D L E _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ M I D D L E _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ I T E M _ A C T I V A T E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ A C T I V A T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ A C T I V A T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ C O L _ R I G H T _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ R I G H T _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ R I G H T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ C O L _ B E G I N _ D R A G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ B E G I N _ D R A G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ C O L _ D R A G G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ D R A G G I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ D R A G G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ C O L _ E N D _ D R A G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ E N D _ D R A G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ C O L _ E N D _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ I T E M _ F O C U S E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ F O C U S E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ F O C U S E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L I S T _ I T E M _ R I G H T _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ R I G H T _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ L I S T _ I T E M _ R I G H T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # M e n u E v e n t
+ #
+
+ s u b C A T _ E V T _ M E N U _ C H A R ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ C H A R , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ C H A R , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M E N U _ I N I T ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ I N I T , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ I N I T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M E N U _ H I G H L I G H T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ M E N U _ H I G H L I G H T , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ M E N U _ H I G H L I G H T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ P O P U P _ M E N U ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ P O P U P _ M E N U , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ P O P U P _ M E N U , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O N T E X T _ M E N U ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O N T E X T _ M E N U , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O N T E X T _ M E N U , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M E N U _ O P E N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ O P E N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ O P E N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M E N U _ C L O S E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ C L O S E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M E N U _ C L O S E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # M o u s e E v e n t
+ #
+ s u b C A T _ E V T _ L E F T _ D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E F T _ D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E F T _ D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L E F T _ U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E F T _ U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E F T _ U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L E F T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E F T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E F T _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M I D D L E _ D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M I D D L E _ D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M I D D L E _ D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M I D D L E _ U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M I D D L E _ U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M I D D L E _ U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M I D D L E _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M I D D L E _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M I D D L E _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ R I G H T _ D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ R I G H T _ D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ R I G H T _ D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ R I G H T _ U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ R I G H T _ U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ R I G H T _ U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ R I G H T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ R I G H T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ R I G H T _ D C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M O T I O N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O T I O N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O T I O N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ E N T E R _ W I N D O W ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ E N T E R _ W I N D O W , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ E N T E R _ W I N D O W , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ L E A V E _ W I N D O W ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E A V E _ W I N D O W , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ L E A V E _ W I N D O W , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M O U S E W H E E L ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O U S E W H E E L , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O U S E W H E E L , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M O U S E _ E V E N T S ( $ $ ) {
+ m y ( $ x , $ y ) = @ _ ;
+ C A T _ E V T _ L E F T _ D O W N ( $ x , $ y ) ;
+ C A T _ E V T _ L E F T _ U P ( $ x , $ y ) ;
+ C A T _ E V T _ L E F T _ D C L I C K ( $ x , $ y ) ;
+ C A T _ E V T _ M I D D L E _ D O W N ( $ x , $ y ) ;
+ C A T _ E V T _ M I D D L E _ U P ( $ x , $ y ) ;
+ C A T _ E V T _ M I D D L E _ D C L I C K ( $ x , $ y ) ;
+ C A T _ E V T _ R I G H T _ D O W N ( $ x , $ y ) ;
+ C A T _ E V T _ R I G H T _ U P ( $ x , $ y ) ;
+ C A T _ E V T _ R I G H T _ D C L I C K ( $ x , $ y ) ;
+ C A T _ E V T _ M O T I O N ( $ x , $ y ) ;
+ C A T _ E V T _ E N T E R _ W I N D O W ( $ x , $ y ) ;
+ C A T _ E V T _ L E A V E _ W I N D O W ( $ x , $ y ) ;
+ C A T _ E V T _ M O U S E W H E E L ( $ x , $ y ) ;
+ }
+
+ #
+ # M o v e E v e n t
+ #
+
+ s u b C A T _ E V T _ M O V E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O V E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O V E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ M O V I N G ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O V I N G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ M O V I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # N o t e b o o k E v e n t
+ #
+
+ s u b C A T _ E V T _ N O T E B O O K _ P A G E _ C H A N G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ N O T E B O O K _ P A G E _ C H A N G I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ N O T E B O O K _ P A G E _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ N O T E B O O K _ P A G E _ C H A N G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ N O T E B O O K _ P A G E _ C H A N G E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ N O T E B O O K _ P A G E _ C H A N G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # P a i n t E v e n t
+ #
+
+ s u b C A T _ E V T _ P A I N T ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ P A I N T , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ P A I N T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # P r o c e s s E v e n t
+ #
+
+ s u b C A T _ E V T _ E N D _ P R O C E S S ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ E N D _ P R O C E S S , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ E N D _ P R O C E S S , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # S a s h E v e n t
+ #
+ s u b C A T _ E V T _ S A S H _ D R A G G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S A S H _ D R A G G E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S A S H _ D R A G G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S A S H _ D R A G G E D _ R A N G E ( $ $ $ $ ) { $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , $ _ [ 2 ] , & W x : : w x E V T _ S A S H _ D R A G G E D , $ _ [ 3 ] ) }
+
+ #
+ # S i z e E v e n t
+ #
+
+ s u b C A T _ E V T _ S I Z E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S I Z E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S I Z I N G ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S I Z I N G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # S c r o l l E v e n t
+ #
+
+ s u b C A T _ E V T _ S C R O L L _ T O P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L _ B O T T O M ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ B O T T O M , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L _ L I N E U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L _ L I N E D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L _ P A G E U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ P A G E U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L _ P A G E D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ P A G E D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L _ T H U M B T R A C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B T R A C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L _ T H U M B R E L E A S E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B R E L E A S E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ T O P ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T O P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ B O T T O M ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ B O T T O M , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ B O T T O M , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ L I N E U P ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ L I N E D O W N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E D O W N , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ P A G E U P ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ P A G E U P , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ P A G E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ P A G E D O W N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ P A G E D O W N , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ P A G E D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ T H U M B T R A C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B T R A C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B T R A C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ C O M M A N D _ S C R O L L _ T H U M B R E L E A S E ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B R E L E A S E , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B R E L E A S E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # S c r o l l W i n E v e n t
+ #
+ s u b C A T _ E V T _ S C R O L L W I N _ T O P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ T O P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L W I N _ B O T T O M ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ B O T T O M , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L W I N _ L I N E U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ L I N E U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L W I N _ L I N E D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ L I N E D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L W I N _ P A G E U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ P A G E U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ P A G E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L W I N _ P A G E D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ P A G E D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L W I N _ T H U M B T R A C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ T H U M B T R A C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S C R O L L W I N _ T H U M B R E L E A S E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S C R O L L W I N _ T H U M B R E L E A S E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # S p i n E v e n t
+ #
+
+ s u b C A T _ E V T _ S P I N _ U P ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E U P , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S P I N _ D O W N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E D O W N , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ L I N E D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S P I N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B T R A C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ S C R O L L _ T H U M B T R A C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S P I N C T R L ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S P I N C T R L _ U P D A T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S P I N C T R L _ U P D A T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # S p l i t t e r E v e n t
+ #
+ s u b C A T _ E V T _ S P L I T T E R _ S A S H _ P O S _ C H A N G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ S A S H _ P O S _ C H A N G I N G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ S A S H _ P O S _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S P L I T T E R _ S A S H _ P O S _ C H A N G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ S A S H _ P O S _ C H A N G E D , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ S A S H _ P O S _ C H A N G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S P L I T T E R _ U N S P L I T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ U N S P L I T , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ U N S P L I T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ S P L I T T E R _ D O U B L E C L I C K E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ D O U B L E C L I C K E D , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ S P L I T T E R _ D O U B L E C L I C K E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # S y s C o l o u r C h a n g e d E v e n t
+ #
+
+ s u b C A T _ E V T _ S Y S _ C O L O U R _ C H A N G E D ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ S Y S _ C O L O U R _ C H A N G E D , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # T a s k b a r
+ #
+
+ s u b C A T _ E V T _ T A S K B A R _ M O V E ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ T A S K B A R _ M O V E , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T A S K B A R _ L E F T _ D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ T A S K B A R _ L E F T _ D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T A S K B A R _ L E F T _ U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ T A S K B A R _ L E F T _ U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T A S K B A R _ R I G H T _ D O W N ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ T A S K B A R _ R I G H T _ D O W N , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T A S K B A R _ R I G H T _ U P ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ T A S K B A R _ R I G H T _ U P , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T A S K B A R _ L E F T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ T A S K B A R _ L E F T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T A S K B A R _ R I G H T _ D C L I C K ( $ $ ) {
+ i f ( r e f $ _ [ 1 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ T A S K B A R _ R I G H T _ D C L I C K , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 1 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # T r e e E v e n t
+ #
+
+ s u b C A T _ E V T _ T R E E _ B E G I N _ D R A G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ B E G I N _ R D R A G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ R D R A G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ R D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ E N D _ D R A G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ E N D _ D R A G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ E N D _ D R A G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ B E G I N _ L A B E L _ E D I T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ L A B E L _ E D I T , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ B E G I N _ L A B E L _ E D I T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ E N D _ L A B E L _ E D I T ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ E N D _ L A B E L _ E D I T , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ E N D _ L A B E L _ E D I T , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ G E T _ I N F O ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ G E T _ I N F O , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ G E T _ I N F O , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ S E T _ I N F O ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C L O S E _ W I N D O W , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ S E T _ I N F O , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ E X P A N D E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ E X P A N D E D , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ E X P A N D E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ E X P A N D I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ E X P A N D I N G , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ E X P A N D I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ C O L L A P S E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( - 1 , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ C O L L A P S E D , $ _ [ 1 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ C O L L A P S E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ C O L L A P S I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ C O L L A P S I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ C O L L A P S I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ S E L _ C H A N G E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ S E L _ C H A N G E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ S E L _ C H A N G E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ S E L _ C H A N G I N G ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ S E L _ C H A N G I N G , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ S E L _ C H A N G I N G , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ K E Y _ D O W N ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ K E Y _ D O W N , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ K E Y _ D O W N , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ D E L E T E _ I T E M ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ D E L E T E _ I T E M , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ D E L E T E _ I T E M , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ A C T I V A T E D ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ A C T I V A T E D , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ A C T I V A T E D , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ R I G H T _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ R I G H T _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ R I G H T _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ M I D D L E _ C L I C K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ M I D D L E _ C L I C K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ M I D D L E _ C L I C K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ T R E E _ I T E M _ M E N U ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ M E N U , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ C O M M A N D _ T R E E _ I T E M _ M E N U , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # U p d a t e U I E v e n t
+ #
+ s u b C A T _ E V T _ U P D A T E _ U I ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : C A T _ E V T _ U P D A T E _ U I , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ U P D A T E _ U I , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+ s u b C A T _ E V T _ U P D A T E _ U I _ R A N G E ( $ $ $ $ ) { # F I X M E ! !
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , $ _ [ 2 ] , & W x : : C A T _ E V T _ U P D A T E _ U I _ R A N G E , $ _ [ 3 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : C A T _ E V T _ U P D A T E _ U I _ R A N G E , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # H y p e r l i n k E v e n t
+ #
+ s u b C A T _ E V T _ H Y P E R L I N K ( $ $ $ ) {
+ i f ( r e f $ _ [ 2 ] e q ' C O D E ' ) {
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : C A T _ E V T _ H Y P E R L I N K , $ _ [ 2 ] ) ;
+ }
+ e l s e {
+ m y $ p a r e n t = $ _ [ 0 ] ;
+ m y $ c o n t r o l = $ _ [ 1 ] ;
+ m y $ c o n t r o l l e r = $ _ [ 2 ] ;
+
+ $ _ [ 0 ] - > C o n n e c t ( $ _ [ 1 ] , - 1 , & W x : : w x E V T _ H Y P E R L I N K , s u b {
+ m y ( $ t h i s , $ e v e n t ) = @ _ ;
+ _ p o s t _ e v e n t ( {
+ c o n t r o l l e r = > $ c o n t r o l l e r ,
+ p a r e n t = > $ p a r e n t ,
+ c o n t r o l = > $ t h i s ,
+ e v e n t = > $ e v e n t
+ } ) ;
+ } ) ;
+ }
+ }
+
+ #
+ # S o c k e t
+ #
+
+ s u b C A T _ E V T _ S O C K E T ( $ $ $ ) { g o t o & W x : : S o c k e t : : E v e n t : : C A T _ E V T _ S O C K E T }
+ s u b C A T _ E V T _ S O C K E T _ A L L ( $ $ $ ) { g o t o & W x : : S o c k e t : : E v e n t : : C A T _ E V T _ S O C K E T _ A L L }
+ s u b C A T _ E V T _ S O C K E T _ I N P U T ( $ $ $ ) { g o t o & W x : : S o c k e t : : E v e n t : : C A T _ E V T _ S O C K E T _ I N P U T }
+ s u b C A T _ E V T _ S O C K E T _ O U T P U T ( $ $ $ ) { g o t o & W x : : S o c k e t : : E v e n t : : C A T _ E V T _ S O C K E T _ O U T P U T }
+ s u b C A T _ E V T _ S O C K E T _ C O N N E C T I O N ( $ $ $ ) { g o t o & W x : : S o c k e t : : E v e n t : : C A T _ E V T _ S O C K E T _ C O N N E C T I O N }
+ s u b C A T _ E V T _ S O C K E T _ L O S T ( $ $ $ ) { g o t o & W x : : S o c k e t : : E v e n t : : C A T _ E V T _ S O C K E T _ L O S T }
+
+ #
+ # P r o t o t y p e s
+ #
+ s u b C A T _ E V T _ C A L E N D A R ( $ $ $ ) ;
+ s u b C A T _ E V T _ C A L E N D A R _ S E L _ C H A N G E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ C A L E N D A R _ D A Y ( $ $ $ ) ;
+ s u b C A T _ E V T _ C A L E N D A R _ M O N T H ( $ $ $ ) ;
+ s u b C A T _ E V T _ C A L E N D A R _ Y E A R ( $ $ $ ) ;
+ s u b C A T _ E V T _ C A L E N D A R _ W E E K D A Y _ C L I C K E D ( $ $ $ ) ;
+
+ s u b C A T _ E V T _ S T C _ C H A N G E ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ S T Y L E N E E D E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ C H A R A D D E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ S A V E P O I N T R E A C H E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ S A V E P O I N T L E F T ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ R O M O D I F Y A T T E M P T ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ K E Y ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ D O U B L E C L I C K ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ U P D A T E U I ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ M O D I F I E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ M A C R O R E C O R D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ M A R G I N C L I C K ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ N E E D S H O W N ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ P O S C H A N G E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ P A I N T E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ U S E R L I S T S E L E C T I O N ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ U R I D R O P P E D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ D W E L L S T A R T ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ D W E L L E N D ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ S T A R T _ D R A G ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ D R A G _ O V E R ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ D O _ D R O P ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ Z O O M ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ H O T S P O T _ C L I C K ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ H O T S P O T _ D C L I C K ( $ $ $ ) ;
+ s u b C A T _ E V T _ S T C _ C A L L T I P _ C L I C K ( $ $ $ ) ;
+
+ p u s h @ E X P O R T _ O K , q w (
+ C A T _ E V T
+ C A T _ E V T _ Q U I T
+ C A T _ E V T _ A C T I V A T E
+ C A T _ E V T _ A C T I V A T E _ A P P
+ C A T _ E V T _ C O M M A N D _ R A N G E
+ C A T _ E V T _ B U T T O N
+ C A T _ E V T _ C H E C K B O X
+ C A T _ E V T _ C H O I C E
+ C A T _ E V T _ L I S T B O X
+ C A T _ E V T _ L I S T B O X _ D C L I C K
+ C A T _ E V T _ T E X T
+ C A T _ E V T _ T E X T _ E N T E R
+ C A T _ E V T _ T E X T _ M A X L E N
+ C A T _ E V T _ T E X T _ U R L
+ C A T _ E V T _ M E N U
+ C A T _ E V T _ M E N U _ R A N G E
+ C A T _ E V T _ S L I D E R
+ C A T _ E V T _ R A D I O B O X
+ C A T _ E V T _ R A D I O B U T T O N
+ C A T _ E V T _ S C R O L L B A R
+ C A T _ E V T _ C O M B O B O X
+ C A T _ E V T _ T O O L
+ C A T _ E V T _ T O O L _ R A N G E
+ C A T _ E V T _ T O O L _ R C L I C K E D
+ C A T _ E V T _ T O O L _ R C L I C K E D _ R A N G E
+ C A T _ E V T _ T O O L _ E N T E R
+ C A T _ E V T _ C O M M A N D _ L E F T _ C L I C K
+ C A T _ E V T _ C O M M A N D _ L E F T _ D C L I C K
+ C A T _ E V T _ C O M M A N D _ R I G H T _ C L I C K
+ C A T _ E V T _ C O M M A N D _ S E T _ F O C U S
+ C A T _ E V T _ C O M M A N D _ K I L L _ F O C U S
+ C A T _ E V T _ C O M M A N D _ E N T E R
+ C A T _ E V T _ T O G G L E B U T T O N
+ C A T _ E V T _ C H E C K L I S T B O X
+ C A T _ E V T _ T E X T _ C U T
+ C A T _ E V T _ T E X T _ C O P Y
+ C A T _ E V T _ T E X T _ P A S T E
+ C A T _ E V T _ C L O S E
+ C A T _ E V T _ E N D _ S E S S I O N
+ C A T _ E V T _ Q U E R Y _ E N D _ S E S S I O N
+ C A T _ E V T _ D R O P _ F I L E S
+ C A T _ E V T _ E R A S E _ B A C K G R O U N D
+ C A T _ E V T _ F I N D
+ C A T _ E V T _ F I N D _ N E X T
+ C A T _ E V T _ F I N D _ R E P L A C E
+ C A T _ E V T _ F I N D _ R E P L A C E _ A L L
+ C A T _ E V T _ F I N D _ C L O S E
+ C A T _ E V T _ S E T _ F O C U S
+ C A T _ E V T _ K I L L _ F O C U S
+ C A T _ E V T _ C H A R
+ C A T _ E V T _ C H A R _ H O O K
+ C A T _ E V T _ K E Y _ D O W N
+ C A T _ E V T _ K E Y _ U P
+ C A T _ E V T _ G R I D _ C E L L _ L E F T _ C L I C K
+ C A T _ E V T _ G R I D _ C E L L _ R I G H T _ C L I C K
+ C A T _ E V T _ G R I D _ C E L L _ L E F T _ D C L I C K
+ C A T _ E V T _ G R I D _ C E L L _ R I G H T _ D C L I C K
+ C A T _ E V T _ G R I D _ L A B E L _ L E F T _ C L I C K
+ C A T _ E V T _ G R I D _ L A B E L _ R I G H T _ C L I C K
+ C A T _ E V T _ G R I D _ L A B E L _ L E F T _ D C L I C K
+ C A T _ E V T _ G R I D _ L A B E L _ R I G H T _ D C L I C K
+ C A T _ E V T _ G R I D _ R O W _ S I Z E
+ C A T _ E V T _ G R I D _ C O L _ S I Z E
+ C A T _ E V T _ G R I D _ R A N G E _ S E L E C T
+ C A T _ E V T _ G R I D _ C E L L _ C H A N G E
+ C A T _ E V T _ G R I D _ S E L E C T _ C E L L
+ C A T _ E V T _ G R I D _ E D I T O R _ S H O W N
+ C A T _ E V T _ G R I D _ E D I T O R _ H I D D E N
+ C A T _ E V T _ G R I D _ E D I T O R _ C R E A T E D
+ C A T _ E V T _ H E L P
+ C A T _ E V T _ H E L P _ R A N G E
+ C A T _ E V T _ D E T A I L E D _ H E L P
+ C A T _ E V T _ D E T A I L E D _ H E L P _ R A N G E
+ C A T _ E V T _ I C O N I Z E
+ C A T _ E V T _ I D L E
+ C A T _ E V T _ I N I T _ D I A L O G
+ C A T _ E V T _ J O Y _ B U T T O N _ D O W N
+ C A T _ E V T _ J O Y _ B U T T O N _ U P
+ C A T _ E V T _ J O Y _ M O V E
+ C A T _ E V T _ J O Y _ Z M O V E
+ C A T _ E V T _ L I S T B O O K _ P A G E _ C H A N G I N G
+ C A T _ E V T _ L I S T B O O K _ P A G E _ C H A N G E D
+ C A T _ E V T _ C H O I C E B O O K _ P A G E _ C H A N G I N G
+ C A T _ E V T _ C H O I C E B O O K _ P A G E _ C H A N G E D
+ C A T _ E V T _ T O O L B O O K _ P A G E _ C H A N G I N G
+ C A T _ E V T _ T O O L B O O K _ P A G E _ C H A N G E D
+ C A T _ E V T _ T R E E B O O K _ P A G E _ C H A N G I N G
+ C A T _ E V T _ T R E E B O O K _ P A G E _ C H A N G E D
+ C A T _ E V T _ T R E E B O O K _ N O D E _ C O L L A P S E D
+ C A T _ E V T _ T R E E B O O K _ N O D E _ E X P A N D E D
+ C A T _ E V T _ L I S T _ B E G I N _ D R A G
+ C A T _ E V T _ L I S T _ B E G I N _ R D R A G
+ C A T _ E V T _ L I S T _ B E G I N _ L A B E L _ E D I T
+ C A T _ E V T _ L I S T _ C A C H E _ H I N T
+ C A T _ E V T _ L I S T _ E N D _ L A B E L _ E D I T
+ C A T _ E V T _ L I S T _ D E L E T E _ I T E M
+ C A T _ E V T _ L I S T _ D E L E T E _ A L L _ I T E M S
+ C A T _ E V T _ L I S T _ G E T _ I N F O
+ C A T _ E V T _ L I S T _ S E T _ I N F O
+ C A T _ E V T _ L I S T _ I T E M _ S E L E C T E D
+ C A T _ E V T _ L I S T _ I T E M _ D E S E L E C T E D
+ C A T _ E V T _ L I S T _ K E Y _ D O W N
+ C A T _ E V T _ L I S T _ I N S E R T _ I T E M
+ C A T _ E V T _ L I S T _ C O L _ C L I C K
+ C A T _ E V T _ L I S T _ R I G H T _ C L I C K
+ C A T _ E V T _ L I S T _ M I D D L E _ C L I C K
+ C A T _ E V T _ L I S T _ I T E M _ A C T I V A T E D
+ C A T _ E V T _ L I S T _ C O L _ R I G H T _ C L I C K
+ C A T _ E V T _ L I S T _ C O L _ B E G I N _ D R A G
+ C A T _ E V T _ L I S T _ C O L _ D R A G G I N G
+ C A T _ E V T _ L I S T _ C O L _ E N D _ D R A G
+ C A T _ E V T _ L I S T _ I T E M _ F O C U S E D
+ C A T _ E V T _ L I S T _ I T E M _ R I G H T _ C L I C K
+ C A T _ E V T _ M E N U _ C H A R
+ C A T _ E V T _ M E N U _ I N I T
+ C A T _ E V T _ M E N U _ H I G H L I G H T
+ C A T _ E V T _ P O P U P _ M E N U
+ C A T _ E V T _ C O N T E X T _ M E N U
+ C A T _ E V T _ M E N U _ O P E N
+ C A T _ E V T _ M E N U _ C L O S E
+ C A T _ E V T _ L E F T _ D O W N
+ C A T _ E V T _ L E F T _ U P
+ C A T _ E V T _ L E F T _ D C L I C K
+ C A T _ E V T _ M I D D L E _ D O W N
+ C A T _ E V T _ M I D D L E _ U P
+ C A T _ E V T _ M I D D L E _ D C L I C K
+ C A T _ E V T _ R I G H T _ D O W N
+ C A T _ E V T _ R I G H T _ U P
+ C A T _ E V T _ R I G H T _ D C L I C K
+ C A T _ E V T _ M O T I O N
+ C A T _ E V T _ E N T E R _ W I N D O W
+ C A T _ E V T _ L E A V E _ W I N D O W
+ C A T _ E V T _ M O U S E W H E E L
+ C A T _ E V T _ M O U S E _ E V E N T S
+ C A T _ E V T _ M O V E
+ C A T _ E V T _ M O V I N G
+ C A T _ E V T _ N O T E B O O K _ P A G E _ C H A N G I N G
+ C A T _ E V T _ N O T E B O O K _ P A G E _ C H A N G E D
+ C A T _ E V T _ P A I N T
+ C A T _ E V T _ E N D _ P R O C E S S
+ C A T _ E V T _ S A S H _ D R A G G E D
+ C A T _ E V T _ S A S H _ D R A G G E D _ R A N G E
+ C A T _ E V T _ S I Z E
+ C A T _ E V T _ S I Z I N G
+ C A T _ E V T _ S C R O L L _ T O P
+ C A T _ E V T _ S C R O L L _ B O T T O M
+ C A T _ E V T _ S C R O L L _ L I N E U P
+ C A T _ E V T _ S C R O L L _ L I N E D O W N
+ C A T _ E V T _ S C R O L L _ P A G E U P
+ C A T _ E V T _ S C R O L L _ P A G E D O W N
+ C A T _ E V T _ S C R O L L _ T H U M B T R A C K
+ C A T _ E V T _ S C R O L L _ T H U M B R E L E A S E
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ T O P
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ B O T T O M
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ L I N E U P
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ L I N E D O W N
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ P A G E U P
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ P A G E D O W N
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ T H U M B T R A C K
+ C A T _ E V T _ C O M M A N D _ S C R O L L _ T H U M B R E L E A S E
+ C A T _ E V T _ S C R O L L W I N _ T O P
+ C A T _ E V T _ S C R O L L W I N _ B O T T O M
+ C A T _ E V T _ S C R O L L W I N _ L I N E U P
+ C A T _ E V T _ S C R O L L W I N _ L I N E D O W N
+ C A T _ E V T _ S C R O L L W I N _ P A G E U P
+ C A T _ E V T _ S C R O L L W I N _ P A G E D O W N
+ C A T _ E V T _ S C R O L L W I N _ T H U M B T R A C K
+ C A T _ E V T _ S C R O L L W I N _ T H U M B R E L E A S E
+ C A T _ E V T _ S P I N _ U P
+ C A T _ E V T _ S P I N _ D O W N
+ C A T _ E V T _ S P I N
+ C A T _ E V T _ S P I N C T R L
+ C A T _ E V T _ S P L I T T E R _ S A S H _ P O S _ C H A N G I N G
+ C A T _ E V T _ S P L I T T E R _ S A S H _ P O S _ C H A N G E D
+ C A T _ E V T _ S P L I T T E R _ U N S P L I T
+ C A T _ E V T _ S P L I T T E R _ D O U B L E C L I C K E D
+ C A T _ E V T _ S Y S _ C O L O U R _ C H A N G E D
+ C A T _ E V T _ T A S K B A R _ M O V E
+ C A T _ E V T _ T A S K B A R _ L E F T _ D O W N
+ C A T _ E V T _ T A S K B A R _ L E F T _ U P
+ C A T _ E V T _ T A S K B A R _ R I G H T _ D O W N
+ C A T _ E V T _ T A S K B A R _ R I G H T _ U P
+ C A T _ E V T _ T A S K B A R _ L E F T _ D C L I C K
+ C A T _ E V T _ T A S K B A R _ R I G H T _ D C L I C K
+ C A T _ E V T _ T R E E _ B E G I N _ D R A G
+ C A T _ E V T _ T R E E _ B E G I N _ R D R A G
+ C A T _ E V T _ T R E E _ E N D _ D R A G
+ C A T _ E V T _ T R E E _ B E G I N _ L A B E L _ E D I T
+ C A T _ E V T _ T R E E _ E N D _ L A B E L _ E D I T
+ C A T _ E V T _ T R E E _ G E T _ I N F O
+ C A T _ E V T _ T R E E _ S E T _ I N F O
+ C A T _ E V T _ T R E E _ I T E M _ E X P A N D E D
+ C A T _ E V T _ T R E E _ I T E M _ E X P A N D I N G
+ C A T _ E V T _ T R E E _ I T E M _ C O L L A P S E D
+ C A T _ E V T _ T R E E _ I T E M _ C O L L A P S I N G
+ C A T _ E V T _ T R E E _ S E L _ C H A N G E D
+ C A T _ E V T _ T R E E _ S E L _ C H A N G I N G
+ C A T _ E V T _ T R E E _ K E Y _ D O W N
+ C A T _ E V T _ T R E E _ D E L E T E _ I T E M
+ C A T _ E V T _ T R E E _ I T E M _ A C T I V A T E D
+ C A T _ E V T _ T R E E _ I T E M _ R I G H T _ C L I C K
+ C A T _ E V T _ T R E E _ I T E M _ M I D D L E _ C L I C K
+ C A T _ E V T _ T R E E _ I T E M _ M E N U
+ C A T _ E V T _ U P D A T E _ U I
+ C A T _ E V T _ U P D A T E _ U I _ R A N G E
+ C A T _ E V T _ H Y P E R L I N K
+ C A T _ E V T _ S O C K E T
+ C A T _ E V T _ S O C K E T _ A L L
+ C A T _ E V T _ S O C K E T _ I N P U T
+ C A T _ E V T _ S O C K E T _ O U T P U T
+ C A T _ E V T _ S O C K E T _ C O N N E C T I O N
+ C A T _ E V T _ S O C K E T _ L O S T
+ C A T _ E V T _ C A L E N D A R
+ C A T _ E V T _ C A L E N D A R _ S E L _ C H A N G E D
+ C A T _ E V T _ C A L E N D A R _ D A Y
+ C A T _ E V T _ C A L E N D A R _ M O N T H
+ C A T _ E V T _ C A L E N D A R _ Y E A R
+ C A T _ E V T _ C A L E N D A R _ W E E K D A Y _ C L I C K E D
+ C A T _ E V T _ S T C _ C H A N G E
+ C A T _ E V T _ S T C _ S T Y L E N E E D E D
+ C A T _ E V T _ S T C _ C H A R A D D E D
+ C A T _ E V T _ S T C _ S A V E P O I N T R E A C H E D
+ C A T _ E V T _ S T C _ S A V E P O I N T L E F T
+ C A T _ E V T _ S T C _ R O M O D I F Y A T T E M P T
+ C A T _ E V T _ S T C _ K E Y
+ C A T _ E V T _ S T C _ D O U B L E C L I C K
+ C A T _ E V T _ S T C _ U P D A T E U I
+ C A T _ E V T _ S T C _ M O D I F I E D
+ C A T _ E V T _ S T C _ M A C R O R E C O R D
+ C A T _ E V T _ S T C _ M A R G I N C L I C K
+ C A T _ E V T _ S T C _ N E E D S H O W N
+ C A T _ E V T _ S T C _ P O S C H A N G E D
+ C A T _ E V T _ S T C _ P A I N T E D
+ C A T _ E V T _ S T C _ U S E R L I S T S E L E C T I O N
+ C A T _ E V T _ S T C _ U R I D R O P P E D
+ C A T _ E V T _ S T C _ D W E L L S T A R T
+ C A T _ E V T _ S T C _ D W E L L E N D
+ C A T _ E V T _ S T C _ S T A R T _ D R A G
+ C A T _ E V T _ S T C _ D R A G _ O V E R
+ C A T _ E V T _ S T C _ D O _ D R O P
+ C A T _ E V T _ S T C _ Z O O M
+ C A T _ E V T _ S T C _ H O T S P O T _ C L I C K
+ C A T _ E V T _ S T C _ H O T S P O T _ D C L I C K
+ C A T _ E V T _ S T C _ C A L L T I P _ C L I C K ) ;
+
+ 1 ;
+
+ _ _ E N D _ _
+
+
+ = h e a d 1 N A M E
+
+ C a t a l y s t : : E n g i n e : : W x : : E v e n t - C a t a l y s t w x P e r l E n g i n e e v e n t s m a n a g e r
+
+ = h e a d 1 S Y N O P S I S
+
+ I n y o u r w x c l a s s e s y o u c a n a t t a c h e v e n t s t h e t r a d i t i o n n a l w a y a n d t h e n
+ c a l l t h e C a t a l y s t c o n t r o l l e r s b y c a l l i n g C A T A L Y S T _ E V T .
+
+ # A t t a c h e v e n t s
+ E V T _ B U T T O N ( $ s e l f , $ s e l f - > { b u t t o n } , s u b {
+ C A T _ E V T ( $ s e l f , ' R o o t - > h e l l o _ w o r l d ' )
+ } ) ;
+
+ Y o u c a n p a s s p a r a m e t e r s a l o n g w i t h y o u r e v e n t :
+
+ E V T _ B U T T O N ( $ s e l f , $ s e l f - > { b u t t o n } , s u b {
+ C A T _ E V T ( $ s e l f , ' R o o t - > h e l l o _ w o r l d ' , { m e s s a g e = > $ s e l f - > { m e s s a g e } - > G e t V a l u e } )
+ } ) ;
+
+ Y o u c a n a l s o n a m e y o u r c o n t r o l s a n d g e t t h e m a u t o m a t i c a l l y a d d e d t o
+ y o u r r e q u e s t ' s p a r a m e t e r s , t h e n y o u s i m p l y u s e t h e a p p r o p r i a t e e v e n t
+ f o r t h e c o n t r o l
+
+ m y $ c t r l = W x : : T e x t C t r l - > n e w ( $ s e l f , - 1 , " " , w x D e f a u l t P o s i t i o n , w x D e f a u l t S i z e ) ;
+ $ c t r l - > S e t N a m e ( ' m e s s a g e ' ) ;
+
+ C A T _ E V T _ B U T T O N ( $ s e l f , $ s e l f - > { b u t t o n } , ' R o o t - > h e l l o _ w o r l d ' ) ;
+
+ # R o o t - > h e l l o _ w o r l d s h o u l d r e c e i v e a m e s s a g e p a r a m e t e r w i t h t h e v a l u e s t o r e d i n
+ # t h e c o n t r o l
+
+ = h e a d 1 D E S C R I P T I O N
+
+ C a t a l y s t : : E n g i n e : : W x : : E v e n t i s t h e m o d u l e t h a t y o u c a n u s e t o a t t a c h e v e n t s t o
+ y o u r c o n t r o l s a n d t o t r i g g e r C a t a l y s t c o n t r o l l e r s .
+
+ = h e a d 2 C A T _ E V T
+
+ C a l l s a C a t a l y s t c o n t r o l l e r e i t h e r b y i t s p a t h o r b y i t s r e p r e s e n t a t i o n .
+ W h e r e R o o t - > h e l l o _ w o r l d i s t h e r e p r e s e n t a t i o n o f t h e h e l l o _ w o r l d s u b i n t h e
+ R o o t m o d u l e .
+
+ Y o u c a n a l s o c a l l i t w i t h ' / h e l l o _ w o r l d ' .
+
+ T h e f o l l o w i n g i s e q u i v a l e n t t o l o a d i n g t h e a p p l i c a t i o n i f y o u h a v e n o t d e f i n e d
+ a b o o t s t r a p o p t i o n .
+
+ C A T _ E V T ( u n d e f , ' R o o t - > d e f a u l t ' ) ;
+
+
+ = h e a d 2 C A T _ Q U I T
+
+ T h i s e v e n t q u i t s t h e l o o p a n d e x i t s t h e a p p l i c a t i o n s .
+
+ F o r e x e m p l e t h i s e x i t s t h e a p p l i c a t i o n w h e n y o u c l o s e t h e w i n d o w .
+
+ E V T _ C L O S E ( $ w i n d o w , s u b { C A T _ E V T _ Q U I T ; } ) ;
+
+ = h e a d 1 A U T H O R S
+
+ E r i a m S c h a f f t e r , C < e r i a m @ c p a n . o r g > a n d t h e C a t a l y s t a n d w x P e r l t e a m .
+
+ = h e a d 1 C O P Y R I G H T
+
+ T h i s p r o g r a m i s f r e e s o f t w a r e , y o u c a n r e d i s t r i b u t e i t a n d / o r m o d i f y i t
+ u n d e r t h e s a m e t e r m s a s P e r l i t s e l f .
+
+ = c u t
\ No newline at end of file
More information about the Catalyst-commits
mailing list