… | |
… | |
112 | $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; }); |
112 | $mainwin->signal_connect (delete_event => sub { $mainwin->hide; 1; }); |
113 | |
113 | |
114 | $vbox->add ($schnauzer); |
114 | $vbox->add ($schnauzer); |
115 | $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); |
115 | $vbox->pack_end (my $frame = new Gtk2::Frame, 0, 0, 0); |
116 | $frame->add (my $hbox = new Gtk2::HBox 0, 0); |
116 | $frame->add (my $hbox = new Gtk2::HBox 0, 0); |
117 | $hbox->pack_start ((new Gtk2::Label "Info"), 0, 0, 0); |
117 | $hbox->pack_start ((new Gtk2::Label "Info: "), 0, 0, 0); |
118 | $hbox->pack_start (($info = new Gtk2::Label), 1, 1, 0); |
118 | $hbox->pack_end (my $labelwindow = new Gtk2::EventBox, 1, 1, 0); |
119 | $info->set (wrap => 1); |
119 | $labelwindow->add ($info = new Gtk2::Label); |
|
|
120 | $labelwindow->signal_connect_after (size_request => sub { $_[1]->width (0); 0 }); |
|
|
121 | $info->set (selectable => 1, xalign => 0, justify => "left"); |
120 | |
122 | |
121 | $schnauzer->set_geometry_hints; |
123 | $schnauzer->set_geometry_hints; |
122 | } |
124 | } |
123 | |
125 | |
124 | if (@ARGV) { |
126 | if (@ARGV) { |