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; |