summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-24 22:30:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-24 22:30:06 +0000
commita246914b7f2bad675b0a2fe937aa55c34293c2c2 (patch)
tree2cc16b97910b6676b66cad8ee1ab76a0de5baa0a /perl-install/ugtk2.pm
parent6076115257066be7f2d4b0727dc966758bcab98c (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm31
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;