/[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.3 by dams, Tue Oct 21 20:33:18 2003 UTC revision 1.4 by dams, Sat Oct 25 14:30:14 2003 UTC
# Line 1  Line 1 
1  package Libconf::GUI::Gtk2::Entry;  package Libconf::GUI::Gtk2::Entry;
2    
3  use ugtk2 qw(:helpers :wrappers :create);  use ugtk2 qw(:helpers :wrappers :create);
4    use Libconf::GUI::Gtk2::Widget;
5    
6  our @ISA = qw(Gtk2::Entry);  # multiple inheritance, yaaaaaaaaaaaaaaa
7    our @ISA = qw(Gtk2::Entry Libconf::GUI::Gtk2::Widget);
8    
9  #constructor  #constructor
10  #@widget_options is optional  #@widget_options is optional
11  sub new {  sub new {
12      my ($class, $default, $ref_value, $data_mapping, @widget_options) = @_;      my ($class, $default, $ref_value, $data_mapping, @widget_options) = @_;
13        my $self = $class->SUPER::new(@widget_options);
14      #call the constructor of the parent class.      $self->{default_value} = $default;
15      my $self = Gtk2::Entry->new(@widget_options); #UGLY! better is : $class->SUPER::new(@widget_options);      $self->{data_mapping} = $data_mapping;
     $self->{'default_value'} = $default;  
     $self->{'data_mapping'} = $data_mapping;  
16      $self->{ref_value} = $ref_value;      $self->{ref_value} = $ref_value;
17      bless $self, $class;      bless $self, $class;
18        gtksignal_connect($self, changed => sub {
19                              my ($widget) = @_;
20                              my $value = $widget->get_text();
21                              print " setting : -- " . $value . "\n";
22                              $self->set_value($value);
23                              print " getvalue : -- " . $self->get_value() . "\n";
24                          });
25      return $self;      return $self;
26  }  }
27    
 #### TO BE REWORKED : data mapping is badly implemented  
 sub set_default {  
     my ($self) = @_;  
     my $default_value = $self->{default_value};  
     $self->set_text($default_value);  
     $self->{value} = $default_value;  
 #    defined $self->{'data_mapping'} and $default_value = $self->{'data_mapping'}->($default_value);  
 #    $self->set_data('value', $default_value);  
 }  
   
28  sub set_value {  sub set_value {
29      my ($self, $value) = @_;      my $self = shift;
30      print " --------- SETTING $value \n";      $self->set_text($self->SUPER::set_value(@_));
     $self->{'value'} = $value;  
     ${$self->{ref_value}} = $value;  
     $self->set_text($value);  
 }  
   
 sub get_value {  
     my ($self) = @_;  
     my $value = $self->{'value'};  
     $value;  
31  }  }
32    
33  1;  1;

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

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