- Timestamp:
- Oct 29, 2009, 8:23:43 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxPropertyGridPanel.pm
r4134 r4152 24 24 wxDefaultPosition 25 25 /; 26 26 use Wx::Locale qw/:default/; 27 27 use base qw/Wx::Grid Uploader::Object2/; 28 28 … … 31 31 /; 32 32 use Data::Dumper; 33 34 33 __PACKAGE__->mk_accessors( 35 34 qw/ 36 frame_callbacks37 35 renderer 38 36 editor … … 75 73 ); 76 74 77 # a frame callback for each property78 $self->frame_callbacks(79 $params->{frame_callbacks}80 );81 82 75 $self->Initialize; 83 76 … … 121 114 $row, 122 115 1, 123 $_->{value}->(),116 exists $_->{choice} ? gettext($_->{value}->()) : $_->{value}->(), 124 117 ); 125 118 … … 173 166 $row, 174 167 1, 175 $_->{value}->(),168 exists $_->{choice} ? gettext($_->{value}->()) : $_->{value}->(), 176 169 ); 177 170 … … 201 194 ); 202 195 196 # if we need to preprocess the value 197 $value = $self->properties->[$row]->{pre_process}->($value) if exists 198 $self->properties->[$row]->{pre_process}; 199 203 200 # set property 204 201 $self->properties->[$row]->{value}->($value); 205 202 printf("property value %s\n", $self->properties->[$row]->{value}->()); 206 203 207 204 # execute the corresponding frame callback 208 $self->frame_callbacks->[$row]->() if defined $self->frame_callbacks->[$row]; 205 $self->properties->[$row]->{frame_callback}->() if exists 206 $self->properties->[$row]->{frame_callback}; 209 207 } 210 208
Note: See TracChangeset
for help on using the changeset viewer.