/usr/lib/perl5/Wx/Grid.pm is in libwx-perl 1:0.9922-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | #############################################################################
## Name: ext/grid/lib/Wx/Grid.pm
## Purpose: Wx::Grid (pulls in all Wx::Grid* stuff)
## Author: Mattia Barbon
## Modified by:
## Created: 04/12/2001
## RCS-ID: $Id: Grid.pm 3316 2012-07-14 02:05:19Z mdootson $
## Copyright: (c) 2001-2002, 2004-2007 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
package Wx::Grid;
use Wx;
use strict;
use vars qw($VERSION);
$VERSION = '0.01';
Wx::load_dll( 'adv' );
Wx::wx_boot( 'Wx::Grid', $VERSION );
SetEvents();
#
# properly setup inheritance tree
#
no strict;
package Wx::Grid; @ISA = qw(Wx::ScrolledWindow);
package Wx::GridWindow; @ISA = qw(Wx::Grid);
package Wx::GridEvent; @ISA = qw(Wx::NotifyEvent);
package Wx::GridSizeEvent; @ISA = qw(Wx::NotifyEvent);
package Wx::GridRangeSelectEvent; @ISA = qw(Wx::NotifyEvent);
package Wx::GridEditorCreatedEvent; @ISA = qw(Wx::CommandEvent);
package Wx::GridCellRenderer;
package Wx::GridCellStringRenderer; @ISA = qw(Wx::GridCellRenderer);
package Wx::GridCellNumberRenderer; @ISA = qw(Wx::GridCellRenderer);
package Wx::GridCellFloatRenderer; @ISA = qw(Wx::GridCellRenderer);
package Wx::GridCellBoolRenderer; @ISA = qw(Wx::GridCellRenderer);
package Wx::GridCellAutoWrapStringRenderer; @ISA = qw(Wx::GridCellStringRenderer);
package Wx::GridCellEnumRenderer; @ISA = qw(Wx::GridCellStringRenderer);
package Wx::GridCellDateTimeRenderer; @ISA = qw(Wx::GridCellStringRenderer);
package Wx::PlGridCellRenderer; @ISA = qw(Wx::GridCellRenderer);
package Wx::GridCellEditor;
package Wx::GridCellEditorEvtHandler; @ISA = qw(Wx::EvtHandler);
package Wx::GridCellBoolEditor; @ISA = qw(Wx::GridCellEditor);
package Wx::GridCellTextEditor; @ISA = qw(Wx::GridCellEditor);
package Wx::GridCellFloatEditor; @ISA = qw(Wx::GridCellEditor);
package Wx::GridCellNumberEditor; @ISA = qw(Wx::GridCellEditor);
package Wx::GridCellChoiceEditor; @ISA = qw(Wx::GridCellEditor);
package Wx::GridCellAutoWrapStringEditor; @ISA = qw(Wx::GridCellTextEditor);
package Wx::GridCellEnumEditor; @ISA = qw(Wx::GridCellChoiceEditor);
package Wx::PlGridCellEditor; @ISA = qw(Wx::GridCellEditor);
package Wx::GridTableBase;
package Wx::PlGridTable; @ISA = qw(Wx::GridTableBase);
package Wx::Event;
# allow 2.8 / 2.9 event name changes compatibility
if(defined(&Wx::Event::EVT_GRID_CELL_CHANGED)) {
*Wx::Event::EVT_GRID_CELL_CHANGE = \&Wx::Event::EVT_GRID_CELL_CHANGED;
*Wx::Event::EVT_GRID_CMD_CELL_CHANGE = \&Wx::Event::EVT_GRID_CMD_CELL_CHANGED;
} else {
*Wx::Event::EVT_GRID_CELL_CHANGED = \&Wx::Event::EVT_GRID_CELL_CHANGE;
*Wx::Event::EVT_GRID_CMD_CELL_CHANGED = \&Wx::Event::EVT_GRID_CMD_CELL_CHANGE;
}
package Wx::Grid;
use strict;
# this is for make_ovl_list to find constants
sub CellToRect {
my $this = shift;
Wx::_match( @_, $Wx::_wgco, 1 ) && return $this->CellToRectCo( @_ );
Wx::_match( @_, $Wx::_n_n, 2 ) && return $this->CellToRectXY( @_ );
Wx::_croak Wx::_ovl_error;
}
sub _create_ovls {
my $name = shift;
no strict;
die $name unless defined &{$name . 'XY'} && defined &{$name . 'Co'};
use strict;
eval <<EOT;
sub ${name} {
my \$this = shift;
Wx::_match( \@_, \$Wx::_wgco, 1 ) && return \$this->${name}Co( \@_ );
Wx::_match( \@_, \$Wx::_n_n, 2 ) && return \$this->${name}XY( \@_ );
Wx::_croak Wx::_ovl_error;
}
EOT
die $@ if $@;
}
# for copytex.pl
#!sub GetCellValue
#!sub IsInSelection
#!sub IsVisible
#!sub MakeCellVisible
#!sub GetDefaultEditorForCell
foreach my $i ( qw(GetCellValue IsInSelection IsVisible MakeCellVisible
GetDefaultEditorForCell) )
{ _create_ovls( $i ); }
sub SelectBlock {
my $this = shift;
Wx::_match( @_, $Wx::_wgco_wgco_b, 3 ) && return $this->SelectBlockPP( @_ );
Wx::_match( @_, $Wx::_n_n_n_n_b, 5 ) && return $this->SelectBlockXYWH( @_ );
Wx::_croak Wx::_ovl_error;
}
sub SetCellValue {
my $this = shift;
Wx::_match( @_, $Wx::_wgco_s, 2 ) && return $this->SetCellValueCo( @_ );
Wx::_match( @_, $Wx::_n_n_s, 3 ) && return $this->SetCellValueXY( @_ );
Wx::_croak Wx::_ovl_error;
}
1;
# Local variables: #
# mode: cperl #
# End: #
|