… | |
… | |
11 | GtkTreeView::vertical_separator = 0 |
11 | GtkTreeView::vertical_separator = 0 |
12 | } |
12 | } |
13 | widget_class "*" style "base" |
13 | widget_class "*" style "base" |
14 | |
14 | |
15 | EOF |
15 | EOF |
|
|
16 | |
|
|
17 | sub flush { |
|
|
18 | do { |
|
|
19 | flush Gtk2::Gdk; |
|
|
20 | Glib::MainContext->default->iteration (0); |
|
|
21 | } while Gtk2::Gdk->events_pending; |
|
|
22 | } |
|
|
23 | |
|
|
24 | sub for_all($) { |
|
|
25 | ( |
|
|
26 | $_[0], |
|
|
27 | $_[0]->isa (Gtk2::Container) |
|
|
28 | ? map for_all ($_), $_[0]->get_children |
|
|
29 | : () |
|
|
30 | ) |
|
|
31 | } |
|
|
32 | |
|
|
33 | sub double_buffered { |
|
|
34 | return;#d# |
|
|
35 | my ($widget, $state) = @_; |
|
|
36 | |
|
|
37 | for (for_all $widget) { |
|
|
38 | $_->set_double_buffered ($state); |
|
|
39 | print "$_\n";#d# |
|
|
40 | } |
|
|
41 | print "<<<\n";#d# |
|
|
42 | } |
16 | |
43 | |
17 | our $text_renderer = new Gtk2::CellRendererText; |
44 | our $text_renderer = new Gtk2::CellRendererText; |
18 | our $int_renderer = new Gtk2::CellRendererText; |
45 | our $int_renderer = new Gtk2::CellRendererText; |
19 | $int_renderer->set (xalign => 1); |
46 | $int_renderer->set (xalign => 1); |
20 | |
47 | |