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

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

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

revision 1.1 by dams, Tue Oct 21 20:22:32 2003 UTC revision 1.2 by dams, Tue Oct 21 20:29:28 2003 UTC
# Line 7  our @ISA = qw(Gtk2::SpinButton); Line 7  our @ISA = qw(Gtk2::SpinButton);
7  sub new {  sub new {
8      my ($class, $default, $ref_value, $data_mapping, @widget_options) = @_;      my ($class, $default, $ref_value, $data_mapping, @widget_options) = @_;
9      my $adj = create_adjustment(0, 0, 65535);      my $adj = create_adjustment(0, 0, 65535);
10      my $self = $class->SUPER::new($adj, 1, 0, @widget_options);      my $self = Gtk2::SpinButton::new($adj, 1, 0, @widget_options); #UGLY! better is $class->SUPER::new($adj, 1, 0, @widget_options);
11      $self->{default_value} = $default;      $self->{default_value} = $default;
12      $self->{data_mapping} = $data_mapping;      $self->{data_mapping} = $data_mapping;
13      $self->{ref_value} = $ref_value;      $self->{ref_value} = $ref_value;

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

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