… | |
… | |
118 | $vbox->add ($schnauzer); |
118 | $vbox->add ($schnauzer); |
119 | $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); |
119 | $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); |
120 | $frame->add (my $hbox = new Gtk2::HBox 0, 0); |
120 | $frame->add (my $hbox = new Gtk2::HBox 0, 0); |
121 | $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); |
121 | $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); |
122 | $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); |
122 | $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); |
|
|
123 | $info->set (wrap => 1); |
123 | |
124 | |
124 | $schnauzer->set_geometry_hints; |
125 | $schnauzer->set_geometry_hints; |
125 | } |
126 | } |
126 | |
127 | |
127 | if (@ARGV) { |
128 | if (@ARGV) { |