| … | |
… | |
| 2 | |
2 | |
| 3 | use Carp; |
3 | use Carp; |
| 4 | use File::Temp; |
4 | use File::Temp; |
| 5 | use Gtk2; |
5 | use Gtk2; |
| 6 | |
6 | |
| 7 | # I have not yte found a way to simply default style properties |
7 | # I have not yet found a way to simply default style properties |
| 8 | Gtk2::Rc->parse_string(<<EOF); |
8 | Gtk2::Rc->parse_string(<<EOF); |
| 9 | |
9 | |
| 10 | style "base" { |
10 | style "base" { |
| 11 | GtkTreeView::vertical_separator = 0 |
11 | GtkTreeView::vertical_separator = 0 |
| 12 | } |
12 | } |
| … | |
… | |
| 59 | if defined $instance |
59 | if defined $instance |
| 60 | && exists $state->{$class}{$instance} && exists $state->{$class}{$instance}{$get}; |
60 | && exists $state->{$class}{$instance} && exists $state->{$class}{$instance}{$get}; |
| 61 | |
61 | |
| 62 | $set{$get} ? $set{$get}->($widget, $v) : $widget->set($set => $v); |
62 | $set{$get} ? $set{$get}->($widget, $v) : $widget->set($set => $v); |
| 63 | |
63 | |
| 64 | my $vx = KGS::Listener::Debug::dumpval $v; $vx =~ s/\s+/ /g; warn "set $class ($instance) $set => $vx\n";#d# |
64 | #my $vx = KGS::Listener::Debug::dumpval $v; $vx =~ s/\s+/ /g; warn "set $class ($instance) $set => $vx\n";#d# |
| 65 | } |
65 | } |
| 66 | |
66 | |
| 67 | #$widget->signal_connect(destroy => sub { delete $widget{$widget}; 0 }); |
67 | #$widget->signal_connect(destroy => sub { delete $widget{$widget}; 0 }); |
| 68 | |
68 | |
| 69 | $widget{$widget} = [$widget, $class, $instance, \%attr]; |
69 | $widget{$widget} = [$widget, $class, $instance, \%attr]; |
| … | |
… | |
| 83 | $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get); |
83 | $v = $get{$get} ? $get{$get}->($widget) : $widget->get($get); |
| 84 | |
84 | |
| 85 | $state->{$class}{"*"}{$get} = $v; |
85 | $state->{$class}{"*"}{$get} = $v; |
| 86 | $state->{$class}{$instance}{$get} = $v if defined $instance; |
86 | $state->{$class}{$instance}{$get} = $v if defined $instance; |
| 87 | |
87 | |
| 88 | my $vx = KGS::Listener::Debug::dumpval $v; $vx =~ s/\s+/ /g; warn "get $class ($instance) $get => $vx\n";#d# |
88 | #my $vx = KGS::Listener::Debug::dumpval $v; $vx =~ s/\s+/ /g; warn "get $class ($instance) $get => $vx\n";#d# |
| 89 | } |
89 | } |
| 90 | } |
90 | } |
| 91 | } |
91 | } |
| 92 | |
92 | |
| 93 | # string => Gtk2::Image |
93 | # string => Gtk2::Image |
