10 |
my ($class, $default, $ref_value, $data_mapping, @widget_options) = @_; |
my ($class, $default, $ref_value, $data_mapping, @widget_options) = @_; |
11 |
|
|
12 |
#call the constructor of the parent class. |
#call the constructor of the parent class. |
13 |
my $self = Gtk2::Entry::new(@widget_options); #UGLY! better is : $class->SUPER::new(@widget_options); |
my $self = Gtk2::Entry->new(@widget_options); #UGLY! better is : $class->SUPER::new(@widget_options); |
14 |
$self->{'default_value'} = $default; |
$self->{'default_value'} = $default; |
15 |
$self->{'data_mapping'} = $data_mapping; |
$self->{'data_mapping'} = $data_mapping; |
16 |
$self->{ref_value} = $ref_value; |
$self->{ref_value} = $ref_value; |