From ff4cc37795cb21c219ce360f48f208f45356f03d Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Fri, 14 Feb 2003 14:47:28 +0000 Subject: honour 9.1 theme title of windows: no icon, text to the left --- perl-install/install2.pm | 1 - perl-install/pixmaps/X.png | Bin 2517 -> 0 bytes perl-install/pixmaps/bootdisk.png | Bin 1586 -> 0 bytes perl-install/pixmaps/bootloader.png | Bin 2965 -> 0 bytes perl-install/pixmaps/exit.png | Bin 2117 -> 0 bytes perl-install/pixmaps/harddrive.png | Bin 3341 -> 0 bytes perl-install/pixmaps/keyboard.png | Bin 3657 -> 0 bytes perl-install/pixmaps/language.png | Bin 3275 -> 0 bytes perl-install/pixmaps/mouse.png | Bin 2875 -> 0 bytes perl-install/pixmaps/network.png | Bin 4076 -> 0 bytes perl-install/pixmaps/partition.png | Bin 3387 -> 0 bytes perl-install/pixmaps/rootpasswd.png | Bin 2980 -> 0 bytes perl-install/pixmaps/security.png | Bin 2799 -> 0 bytes perl-install/pixmaps/services.png | Bin 3004 -> 0 bytes perl-install/pixmaps/summary.png | Bin 2560 -> 0 bytes perl-install/pixmaps/user.png | Bin 1954 -> 0 bytes perl-install/steps.pm | 42 ++++++++++++++++++------------------ perl-install/ugtk2.pm | 5 ++++- 18 files changed, 25 insertions(+), 23 deletions(-) delete mode 100644 perl-install/pixmaps/X.png delete mode 100644 perl-install/pixmaps/bootdisk.png delete mode 100644 perl-install/pixmaps/bootloader.png delete mode 100644 perl-install/pixmaps/exit.png delete mode 100644 perl-install/pixmaps/harddrive.png delete mode 100644 perl-install/pixmaps/keyboard.png delete mode 100644 perl-install/pixmaps/language.png delete mode 100644 perl-install/pixmaps/mouse.png delete mode 100644 perl-install/pixmaps/network.png delete mode 100644 perl-install/pixmaps/partition.png delete mode 100644 perl-install/pixmaps/rootpasswd.png delete mode 100644 perl-install/pixmaps/security.png delete mode 100644 perl-install/pixmaps/services.png delete mode 100644 perl-install/pixmaps/summary.png delete mode 100644 perl-install/pixmaps/user.png (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 6e1b3c288..c568e59f0 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -584,7 +584,6 @@ sub main { MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep()) { $o->{steps}{$o->{step}}{entered}++; $o->enteringStep($o->{step}); - if ($o->{steps}{$o->{step}}{icon}) { $o->{icon} = $o->{steps}{$o->{step}}{icon} } else { undef $o->{icon} } eval { &{$install2::{$o->{step}}}($clicked || $o->{steps}{$o->{step}}{noauto}, $o->{steps}{$o->{step}}{entered}, diff --git a/perl-install/pixmaps/X.png b/perl-install/pixmaps/X.png deleted file mode 100644 index 251e6d29a..000000000 Binary files a/perl-install/pixmaps/X.png and /dev/null differ diff --git a/perl-install/pixmaps/bootdisk.png b/perl-install/pixmaps/bootdisk.png deleted file mode 100644 index 834afea20..000000000 Binary files a/perl-install/pixmaps/bootdisk.png and /dev/null differ diff --git a/perl-install/pixmaps/bootloader.png b/perl-install/pixmaps/bootloader.png deleted file mode 100644 index 3bfc15724..000000000 Binary files a/perl-install/pixmaps/bootloader.png and /dev/null differ diff --git a/perl-install/pixmaps/exit.png b/perl-install/pixmaps/exit.png deleted file mode 100644 index 7e4e1e1d5..000000000 Binary files a/perl-install/pixmaps/exit.png and /dev/null differ diff --git a/perl-install/pixmaps/harddrive.png b/perl-install/pixmaps/harddrive.png deleted file mode 100644 index f674eec9f..000000000 Binary files a/perl-install/pixmaps/harddrive.png and /dev/null differ diff --git a/perl-install/pixmaps/keyboard.png b/perl-install/pixmaps/keyboard.png deleted file mode 100644 index 0f21371e7..000000000 Binary files a/perl-install/pixmaps/keyboard.png and /dev/null differ diff --git a/perl-install/pixmaps/language.png b/perl-install/pixmaps/language.png deleted file mode 100644 index 4cf17a1f7..000000000 Binary files a/perl-install/pixmaps/language.png and /dev/null differ diff --git a/perl-install/pixmaps/mouse.png b/perl-install/pixmaps/mouse.png deleted file mode 100644 index 9a5913f91..000000000 Binary files a/perl-install/pixmaps/mouse.png and /dev/null differ diff --git a/perl-install/pixmaps/network.png b/perl-install/pixmaps/network.png deleted file mode 100644 index 75e4ab19f..000000000 Binary files a/perl-install/pixmaps/network.png and /dev/null differ diff --git a/perl-install/pixmaps/partition.png b/perl-install/pixmaps/partition.png deleted file mode 100644 index bf0b2bc58..000000000 Binary files a/perl-install/pixmaps/partition.png and /dev/null differ diff --git a/perl-install/pixmaps/rootpasswd.png b/perl-install/pixmaps/rootpasswd.png deleted file mode 100644 index 07041c48e..000000000 Binary files a/perl-install/pixmaps/rootpasswd.png and /dev/null differ diff --git a/perl-install/pixmaps/security.png b/perl-install/pixmaps/security.png deleted file mode 100644 index 8e982fb40..000000000 Binary files a/perl-install/pixmaps/security.png and /dev/null differ diff --git a/perl-install/pixmaps/services.png b/perl-install/pixmaps/services.png deleted file mode 100644 index 70138507b..000000000 Binary files a/perl-install/pixmaps/services.png and /dev/null differ diff --git a/perl-install/pixmaps/summary.png b/perl-install/pixmaps/summary.png deleted file mode 100644 index d055bf654..000000000 Binary files a/perl-install/pixmaps/summary.png and /dev/null differ diff --git a/perl-install/pixmaps/user.png b/perl-install/pixmaps/user.png deleted file mode 100644 index f7b1631b0..000000000 Binary files a/perl-install/pixmaps/user.png and /dev/null differ diff --git a/perl-install/steps.pm b/perl-install/steps.pm index 87f937f21..e33df20a9 100644 --- a/perl-install/steps.pm +++ b/perl-install/steps.pm @@ -8,29 +8,29 @@ use common; #- Steps table #-###################################################################################### { - my @installStepsFields = qw(text redoable onError hidden needs icon); + my @installStepsFields = qw(text redoable onError hidden needs); #entered reachable toBeDone next done; my @installSteps = ( - selectLanguage => [ N_("Choose your language"), 1, 1, '', '', 'language' ], - acceptLicense => [ N_("License"), 1, -1, '', '', '' ], - selectMouse => [ N_("Configure mouse"), 1, 1, '1', '', 'mouse' ], - setupSCSI => [ N_("Hard drive detection"), 1, 0, '1', '', 'harddrive' ], - selectInstallClass => [ N_("Select installation class"), 1, 1, '1', '', '' ], - selectKeyboard => [ N_("Choose your keyboard"), 1, 1, '1', "selectInstallClass", 'keyboard' ], - miscellaneous => [ N_("Security"), 1, 1, '', '', 'security' ], - doPartitionDisks => [ N_("Partitioning"), 1, 0, '', "selectInstallClass", 'partition' ], - formatPartitions => [ N_("Format partitions"), 1, -1, '1', "doPartitionDisks", 'partition' ], - choosePackages => [ N_("Choose packages to install"), 1, -2, '!$::expert', "formatPartitions", 'partition' ], - installPackages => [ N_("Install system"), 1, -1, '', ["formatPartitions", "selectInstallClass"], '' ], - setRootPassword => [ N_("Set root password"), 1, 1, '', "installPackages", 'rootpasswd' ], - addUser => [ N_("Add a user"), 1, 1, '', "installPackages", 'user' ], - configureNetwork => [ N_("Configure networking"), 1, 1, '1', "formatPartitions", 'network' ], - setupBootloader => [ N_("Install bootloader"), 1, 0, '', "installPackages", 'bootloader' ], - configureX => [ N_("Configure X"), 1, 1, '1', ["formatPartitions", "setupBootloader"], 'X' ], - summary => [ N_("Summary"), 1, 0, '', "installPackages", 'summary' ], - configureServices => [ N_("Configure services"), 1, 1, '!$::expert', "installPackages", 'services' ], - installUpdates => [ N_("Install system updates"), 1, 1, '', ["installPackages", "configureNetwork", "summary"], '' ], - exitInstall => [ N_("Exit install"), 0, 0, '', '', 'exit' ], + selectLanguage => [ N_("Choose your language"), 1, 1, '', '' ], + acceptLicense => [ N_("License"), 1, -1, '', '' ], + selectMouse => [ N_("Configure mouse"), 1, 1, '1', '' ], + setupSCSI => [ N_("Hard drive detection"), 1, 0, '1', '' ], + selectInstallClass => [ N_("Select installation class"), 1, 1, '1', '' ], + selectKeyboard => [ N_("Choose your keyboard"), 1, 1, '1' ], + miscellaneous => [ N_("Security"), 1, 1, '', '' ], + doPartitionDisks => [ N_("Partitioning"), 1, 0, '', "selectInstallClass" ], + formatPartitions => [ N_("Format partitions"), 1, -1, '1', "doPartitionDisks" ], + choosePackages => [ N_("Choose packages to install"), 1, -2, '!$::expert', "formatPartitions" ], + installPackages => [ N_("Install system"), 1, -1, '', ["formatPartitions", "selectInstallClass"] ], + setRootPassword => [ N_("Set root password"), 1, 1, '', "installPackages" ], + addUser => [ N_("Add a user"), 1, 1, '', "installPackages" ], + configureNetwork => [ N_("Configure networking"), 1, 1, '1', "formatPartitions" ], + setupBootloader => [ N_("Install bootloader"), 1, 0, '', "installPackages" ], + configureX => [ N_("Configure X"), 1, 1, '1', ["formatPartitions", "setupBootloader"] ], + summary => [ N_("Summary"), 1, 0, '', "installPackages" ], + configureServices => [ N_("Configure services"), 1, 1, '!$::expert', "installPackages" ], + installUpdates => [ N_("Install system updates"), 1, 1, '', ["installPackages", "configureNetwork", "summary"] ], + exitInstall => [ N_("Exit install"), 0, 0, '', '' ], ); for (my $i = 0; $i < @installSteps; $i += 2) { my %h; @h{@installStepsFields} = @{ $installSteps[$i + 1] }; diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 9f969ccb6..2c30c213d 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -347,11 +347,14 @@ sub create_box_with_title { ) } else { gtkpack__($box, + if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 10)), (map { my $w = ref($_) ? $_ : Gtk2::Label->new($_); - $::isWizard and $w->set_justify("left"); gtkset_name($w, "Title"); + $::isWizard ? (gtkpack__(Gtk2::HBox->new(0,0), gtkset_size_request(Gtk2::Label->new, 20, 0), $w)) + : $w } map { ref($_) ? $_ : warp_text($_) } @_), + if_($::isWizard, gtkset_size_request(Gtk2::Label->new, 0, 15)), if_($a, Gtk2::HSeparator->new) ) } -- cgit v1.2.1