From 383ebb07754a61e56dd6a4e3ae45b4ce0c694b9e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 12 Mar 2003 18:13:07 +0000 Subject: - let diskdrake fit when embedded in mcc - let action box be larger so that there's no horizontal scrollbar in standalone mode --- perl-install/diskdrake/hd_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 6348b3f02..5a3c2ea3a 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -135,7 +135,7 @@ sub add_kind2notebook { die if $kind->{main_box}; $kind->{display_box} = gtkset_size_request(Gtk2::HBox->new(0,0), $width, $height); - $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(0,0), 150, 180); + $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(0,0), $::isStandalone ? 165 : 150, $::isEmbedded ? 150 : 180); $kind->{info_box} = Gtk2::VBox->new(0,0); $kind->{main_box} = gtkpack_(Gtk2::VBox->new(0,7), -- cgit v1.2.1