diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-24 22:30:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-24 22:30:06 +0000 |
| commit | a246914b7f2bad675b0a2fe937aa55c34293c2c2 (patch) | |
| tree | 2cc16b97910b6676b66cad8ee1ab76a0de5baa0a | |
| parent | 6076115257066be7f2d4b0727dc966758bcab98c (diff) | |
| download | drakx-backup-do-not-use-a246914b7f2bad675b0a2fe937aa55c34293c2c2.tar drakx-backup-do-not-use-a246914b7f2bad675b0a2fe937aa55c34293c2c2.tar.gz drakx-backup-do-not-use-a246914b7f2bad675b0a2fe937aa55c34293c2c2.tar.bz2 drakx-backup-do-not-use-a246914b7f2bad675b0a2fe937aa55c34293c2c2.tar.xz drakx-backup-do-not-use-a246914b7f2bad675b0a2fe937aa55c34293c2c2.zip | |
(ask_browse_tree_info): better look when embedded in a smaller window
| -rw-r--r-- | perl-install/ugtk2.pm | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index dbfdb1747..bc4919123 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1020,28 +1020,29 @@ sub ask_browse_tree_info { 0, $common->{message}, 1, gtkpack(Gtk2::HBox->new(0,0), create_scrolled_window($tree), - gtkadd(gtkset_size_request(Gtk2::Frame->new(N("Info")), $::windowwidth - 490, 0), + gtkadd(Gtk2::Frame->new(N("Info")), create_scrolled_window(my $info = Gtk2::TextView->new), )), - 0, my $l = Gtk2::HBox->new(0,15), - 0, gtkpack(Gtk2::HBox->new(0,10), - my $go = gtksignal_connect(Gtk2::Button->new($common->{ok}), clicked => sub { - $w->{retval} = 1; - Gtk2->main_quit }), - $common->{cancel} ? gtksignal_connect(Gtk2::Button->new($common->{cancel}), clicked => sub { - $w->{retval} = 0; - Gtk2->main_quit }) - : (), - ))); - gtkpack__($l, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons')); + 0, my $box1 = Gtk2::HBox->new(0,15), + 0, my $box2 = Gtk2::HBox->new(0,10), + )); + gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons')); + + $box2->pack_end(gtksignal_connect(Gtk2::Button->new($common->{cancel}), clicked => sub { + $w->{retval} = 0; + Gtk2->main_quit }), 0, 1, 20) if $common->{cancel}; + + $box2->pack_end(my $go = gtksignal_connect(Gtk2::Button->new($common->{ok}), clicked => sub { + $w->{retval} = 1; + Gtk2->main_quit }), 0, 1, 20); if ($common->{auto_deps}) { - gtkpack__($l, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new($common->{auto_deps}), $common->{state}{auto_deps}), + gtkpack__($box1, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new($common->{auto_deps}), $common->{state}{auto_deps}), clicked => sub { invbool \$common->{state}{auto_deps} })); } - $l->pack_end(my $status = Gtk2::Label->new, 0, 1, 20); + $box1->pack_end(my $status = Gtk2::Label->new, 0, 1, 20); - $w->{window}->set_size_request(map { $_ - 2 * $border - 4 } $::windowwidth, $::windowheight); + $w->{window}->set_size_request(map { $_ - 2 * $border - 4 } $::windowwidth, $::windowheight) if !$::isInstall; $go->grab_focus; $w->{rwindow}->show_all; |