summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-09 17:33:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-09 17:33:12 +0000
commit4cd590133835c6070396f5c05d26c663d31edf10 (patch)
tree50dc00ef6a964a9fdce27bc8ee96c13cc7c9d91c /perl-install
parentd8ac7baab24e48621dd8524321f3cccbbcb5395f (diff)
downloaddrakx-4cd590133835c6070396f5c05d26c663d31edf10.tar
drakx-4cd590133835c6070396f5c05d26c663d31edf10.tar.gz
drakx-4cd590133835c6070396f5c05d26c663d31edf10.tar.bz2
drakx-4cd590133835c6070396f5c05d26c663d31edf10.tar.xz
drakx-4cd590133835c6070396f5c05d26c663d31edf10.zip
(ask_from_entries_refW): advanced window is below ok/cancel and not shown
then hidden so that window size is smaller.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm27
1 files changed, 17 insertions, 10 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index dc021d3e0..31c7dc420 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -234,6 +234,7 @@ sub ask_from_entries_refW {
my $set_all = sub {
$ignore = 1;
$_->{set}->(${$_->{e}{val}}) foreach @widgets_always, @widgets_advanced;
+ $_->{w}->set_sensitive(!$_->{e}{disabled}()) foreach @widgets_always, @widgets_advanced;
$ignore = 0;
};
my $get_all = sub {
@@ -261,7 +262,7 @@ sub ask_from_entries_refW {
};
my ($w, $real_w, $set, $get);
- if ($e->{type} eq "iconlist") {
+ if ($e->{type} eq 'iconlist') {
$w = new Gtk::Button;
$set = sub {
gtkdestroy($e->{icon});
@@ -277,12 +278,12 @@ sub ask_from_entries_refW {
$changed->();
});
$real_w = gtkpack_(new Gtk::HBox(0,10), 1, new Gtk::HBox(0,0), 0, $w, 1, new Gtk::HBox(0,0), );
- } elsif ($e->{type} eq "bool") {
+ } elsif ($e->{type} eq 'bool') {
$w = Gtk::CheckButton->new($e->{text});
$w->signal_connect(clicked => $changed);
$set = sub { $w->set_active($_[0]) };
$get = sub { $w->get_active };
- } elsif ($e->{type} eq "range") {
+ } elsif ($e->{type} eq 'range') {
my $adj = create_adjustment(${$e->{val}}, $e->{min}, $e->{max});
$adj->signal_connect(value_changed => $changed);
$w = new Gtk::HScale($adj);
@@ -299,7 +300,7 @@ sub ask_from_entries_refW {
} else {
($w, $set) = create_clist($e, $may_go_to_next);
}
- $real_w = may_createScrolledWindow(@{$e->{list}} > 15, $w, 200, min(350, $::windowheight - 60));
+ $real_w = may_createScrolledWindow(@{$e->{list}} > 15, $w, 200, min(250, $::windowheight - 60));
} else {
if ($e->{type} eq "combo") {
$w = new Gtk::Combo;
@@ -339,12 +340,18 @@ sub ask_from_entries_refW {
};
my $advanced_button = [ _("Advanced"), sub { $set_advanced->(!$advanced) } ];
- gtkadd($mainw->{window},
- gtkpack(create_box_with_title($mainw, @{$common->{messages}}),
- may_createScrolledWindow(@widgets_always > 8, create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @widgets_always), 200, min(350, $::windowheight - 60)),
- new Gtk::HSeparator,
- $advanced_pack = create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @widgets_advanced),
- $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @$l2 ? $advanced_button : ())));
+ my $pack = gtkpack(create_box_with_title($mainw, @{$common->{messages}}),
+ may_createScrolledWindow(@widgets_always > 8, create_packtable({ no_expand => 1 }, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @widgets_always), 200, min(350, $::windowheight - 60)),
+ $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @$l2 ? $advanced_button : ()));
+ $advanced_pack =
+ gtkpack_(new Gtk::VBox(0,0),
+ 0, '',
+ (map {; 0, new Gtk::Label($_) } map { warp_text($_) } @{$common->{advanced_messages}}),
+ 0, new Gtk::HSeparator,
+ 1, create_packtable({ no_expand => 1 }, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @widgets_advanced));
+
+ $pack->pack_start($advanced_pack, 1, 0, 1);
+ gtkadd($mainw->{window}, $pack);
$mainw->sync; #- for $set_all below (mainly for the set of clist)
$set_all->();
$set_advanced->(0);