summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-09-12 23:22:35 +0000
committerdamien <damien@mandriva.com>2000-09-12 23:22:35 +0000
commita450d108d283c4af396920c0646010ec7b992325 (patch)
tree41ef750f16d85d04375d2ba7a71af94595f065e8 /perl-install/interactive_gtk.pm
parent32a2e8da9e14337df3c797a07ba16e1d232bb9ad (diff)
downloaddrakx-backup-do-not-use-a450d108d283c4af396920c0646010ec7b992325.tar
drakx-backup-do-not-use-a450d108d283c4af396920c0646010ec7b992325.tar.gz
drakx-backup-do-not-use-a450d108d283c4af396920c0646010ec7b992325.tar.bz2
drakx-backup-do-not-use-a450d108d283c4af396920c0646010ec7b992325.tar.xz
drakx-backup-do-not-use-a450d108d283c4af396920c0646010ec7b992325.zip
updated
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm67
1 files changed, 33 insertions, 34 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 0dcd560b2..610bbfb20 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -41,48 +41,47 @@ sub ask_from_list_with_helpW {
if (@$l < 5 or $::isWizard) {
my $defW;
my $tips = new Gtk::Tooltips;
- my $f = sub { $w->{retval} = $_[1]; Gtk->main_quit };
my $g = sub { $w->{retval} = $_[1]; };
+ my $f = sub { $w->{retval} = $_[1]; Gtk->main_quit };
my $b;
- if ($::isWizard) {
- $w->sync;
- my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, $::wizard_xpm)) or goto nowizard;
- gtkset_usize($w->{rwindow},500, 400);
- gtkadd($w->{window},
- gtkpack2_(create_box_with_title($w, @$messages),
- 1,
- gtkpack2_(new Gtk::HBox(0,0),
- 0, $pixmap,
- 0, gtkset_usize(new Gtk::VBox(0,0),30, 0),
- 0, gtkpack2__( new Gtk::VBox(0,0 ),
- gtkset_usize(new Gtk::VBox(0,0), 0, 30),
+ $w->sync;
+ printf "wiz" . $::isWizard . "\n";
+ $::isWizard and my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, $::wizard_xpm)); # or goto nowizard;
+ $::isWizard and gtkset_usize($w->{rwindow}, 500, 400);
+ gtkadd($w->{window},
+ gtkpack2_(create_box_with_title($w, @$messages),
+ 1,
+ gtkpack3( $::isWizard,
+ new Gtk::HBox(0,0),
+ $::isWizard ? ($pixmap, gtkset_usize(new Gtk::VBox(0,0),30, 0)) : (),
+ gtkpack2__( $::isWizard ? new Gtk::VBox(0,0): ( @$l < 3 && sum(map { length $_ } @$l) < 60 ? create_hbox() : create_vbox()),
+ $::isWizard ? gtkset_usize(new Gtk::VBox(0,0), 0, 30) : (),
map {
- $b = new Gtk::RadioButton($b ? ($_, $b) : $_);
+ $::isWizard ? $b = new Gtk::RadioButton($b ? ($_, $b) : $_) : ($b = new Gtk::Button($_));
$tips->set_tip($b, $help->{$_}) if $help && $help->{$_};
$_ eq $def and $defW = $b;
$b->signal_connect(clicked => [ $g, $_ ]);
$b;
} @$l, )),
- 0, new Gtk::HSeparator,
- 0, $w->create_okcancel(),
- ),
- );
- }
- else {
- nowizard:
- gtkadd($w->{window},
- gtkpack(create_box_with_title($w, @$messages),
- gtkadd(@$l < 3 && sum(map { length $_ } @$l) < 60 ? create_hbox() : create_vbox(),
- map {
- $b = new Gtk::Button($_);
- $b->signal_connect(clicked => [ $f, $_ ]);
- $tips->set_tip($b, $help->{$_}) if $help && $help->{$_};
- $_ eq $def and $defW = $b;
- $b;
- } @$l, ),
- ),
- );
- }
+ 0, new Gtk::HSeparator,
+ 0, $w->create_okcancel(),
+ ),
+ );
+# {
+# nowizard:
+# gtkadd($w->{window},
+# gtkpack(create_box_with_title($w, @$messages),
+# gtkadd(@$l < 3 && sum(map { length $_ } @$l) < 60 ? create_hbox() : create_vbox(),
+# map {
+# $b = new Gtk::Button($_);
+# $b->signal_connect(clicked => [ $f, $_ ]);
+# $tips->set_tip($b, $help->{$_}) if $help && $help->{$_};
+# $_ eq $def and $defW = $b;
+# $b;
+# } @$l, ),
+# ),
+# );
+# }
$defW->grab_focus if $defW;
$r = $w->main;