/[libconf]/libconf/perl-Libconf/GUI/Gtk2/Entry.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/GUI/Gtk2/Entry.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dams, Tue Oct 21 20:29:28 2003 UTC revision 1.3 by dams, Tue Oct 21 20:33:18 2003 UTC
# Line 10  sub new { Line 10  sub new {
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;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26