- Timestamp:
- Jan 21, 2010, 11:36:13 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxPropertyGridPanel.pm
r4322 r4718 25 25 /; 26 26 use Wx::Locale qw/:default/; 27 use base qw/Wx:: GridUploader::Object2/;27 use base qw/Wx::Dialog Uploader::Object2/; 28 28 29 29 use Wx::Event qw/ … … 36 36 editor 37 37 properties 38 grid 38 39 / 39 40 ); … … 47 48 48 49 49 my $self = $class->SUPER::new( $params->{parentwnd}, -1, wxDefaultPosition, wxDefaultSize ); 50 my $self = $class->SUPER::new( undef, -1, "PropertyGrid", wxDefaultPosition, wxDefaultSize ); 51 $self->grid( 52 Wx::Grid->new($self, -1, wxDefaultPosition, wxDefaultSize) 53 ); 50 54 51 55 $self->renderer( … … 75 79 $self->Initialize; 76 80 77 EVT_GRID_CMD_CELL_CHANGE( $self, $self , \&OnCellChanged );81 EVT_GRID_CMD_CELL_CHANGE( $self, $self->grid, \&OnCellChanged ); 78 82 $self; 79 83 } … … 83 87 84 88 85 $self-> CreateGrid( scalar @{$self->properties}, 2 );89 $self->grid->CreateGrid( scalar @{$self->properties}, 2 ); 86 90 87 91 88 $self-> SetRowLabelSize(0);89 $self-> SetColLabelSize(0);90 $self-> SetColSize( 0, 200 );91 $self-> SetColSize( 1, 200 );92 $self->grid->SetRowLabelSize(0); 93 $self->grid->SetColLabelSize(0); 94 $self->grid->SetColSize( 0, 200 ); 95 $self->grid->SetColSize( 1, 200 ); 92 96 93 97 $self->_init_property_grid(); … … 98 102 my ( $self ) = @_; 99 103 100 $self-> ClearGrid;104 $self->grid->ClearGrid; 101 105 102 106 my $row = 0; … … 104 108 eval { 105 109 106 $self-> SetCellValue(110 $self->grid->SetCellValue( 107 111 $row, 108 112 0, … … 111 115 112 116 113 $self-> SetCellValue(117 $self->grid->SetCellValue( 114 118 $row, 115 119 1, … … 132 136 map { 133 137 eval { 134 $self-> SetCellEditor(138 $self->grid->SetCellEditor( 135 139 $row, 136 140 1, … … 142 146 ) if $self->editor->{$_->{type}}; 143 147 144 $self-> SetCellRenderer(148 $self->grid->SetCellRenderer( 145 149 $row, 146 150 1, … … 152 156 ) if $self->renderer->{$_->{type}}; 153 157 154 $self-> SetReadOnly(158 $self->grid->SetReadOnly( 155 159 $row, 156 160 0, 157 161 ); 158 162 159 $self-> SetCellValue(163 $self->grid->SetCellValue( 160 164 $row, 161 165 0, … … 163 167 ); 164 168 165 $self-> SetCellValue(169 $self->grid->SetCellValue( 166 170 $row, 167 171 1, … … 169 173 ); 170 174 171 $self-> SetReadOnly(175 $self->grid->SetReadOnly( 172 176 $row, 173 177 1, … … 189 193 ); 190 194 191 my $value = $self-> GetCellValue(195 my $value = $self->grid->GetCellValue( 192 196 $row, 193 197 $col,
Note: See TracChangeset
for help on using the changeset viewer.