summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-wizard.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-07-02 09:23:24 +0000
committerNorbert Preining <preining@logic.at>2009-07-02 09:23:24 +0000
commit311ebb01b559c419ed2e4133d25d507af781e613 (patch)
tree3f5f8f88e7788dfa8ddaff8709462e337520ad2b /Master/tlpkg/installer/install-menu-wizard.pl
parent26fc6689f0b86c8bba55fa329c7ee308fb1c37d5 (diff)
- start wizard support for options
- use 2009 in image for perltk and wizard installer - add supported options overview document - add tl2009 image git-svn-id: svn://tug.org/texlive/trunk@14064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl84
1 files changed, 73 insertions, 11 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index bcfbe93599c..2313bf356ab 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -117,7 +117,7 @@ sub run_menu_wizard {
$dest = $vars{'TEXDIR'};
- my $img = $mw->Photo(-format => 'png', -file => "$::installerdir/tlpkg/installer/texlive2008-wizard.png");
+ my $img = $mw->Photo(-format => 'png', -file => "$::installerdir/tlpkg/installer/texlive2009-wizard.png");
$mw->Label(-image => $img, -background => "#0078b8")->place(-x => 0, -y => 0);
$ftitle = $mw->Frame(-height => $TITLEHEIGHT, -width => $INNERWIDTH);
@@ -131,7 +131,7 @@ sub run_menu_wizard {
$tit->place(-x => 0, -y => 0);
- $counter = $ftitle->Label(-text => "1/4");
+ $counter = $ftitle->Label(-text => "1/5");
$counter->place(-x => $INNERWIDTH, -y => 0, -anchor => "ne");
$fmain = $mw->Frame(-height => $INNERHEIGHT, -width => $INNERWIDTH);
@@ -160,7 +160,7 @@ sub reset_start {
for ($fmain->children) {
$_->destroy;
}
- $counter->configure(-text => "1/4");
+ $counter->configure(-text => "1/5");
$prv->placeForget;
my $inf = $fmain->Label(-text => $text{'wizhello'}, -justify => "left");
@@ -176,7 +176,7 @@ sub ask_path {
for ($fmain->children) {
$_->destroy;
}
- $counter->configure(-text => "2/4");
+ $counter->configure(-text => "2/5");
my $lab = $fmain->Label(-text => $text{'destfolder'});
my $val = $fmain->Label(-textvar => \$dest);
my $but = $fmain->Button(-text => $text{'change'}, -command => \&change_path,
@@ -184,8 +184,9 @@ sub ask_path {
my $pa = $fmain->Checkbutton(-text => $labels{'optletter'},
-variable => \$vars{"option_letter"});
- my $but_tw = $fmain->Checkbutton(-text => $labels{'addon_editor'},
- -variable => \$vars{"addon_editor"});
+ # texworks will be anyway installed in scheme-full
+ #my $but_tw = $fmain->Checkbutton(-text => $labels{'addon_editor'},
+ # -variable => \$vars{"addon_editor"});
#
# disable the "Advanced Configuration" button switching to the
@@ -219,9 +220,9 @@ sub ask_path {
$pa->place(-x => 0, -y => $ytmp + 30);
- if (win32()) {
- $but_tw->place(-x => 0, -y => $ytmp + 60);
- }
+ #if (win32()) {
+ # $but_tw->place(-x => 0, -y => $ytmp + 60);
+ #}
#$cb->place(-x => $INNERWIDTH, -y => $INNERHEIGHT, -anchor => "se");
@@ -230,7 +231,7 @@ sub ask_path {
)->place(-x => 0, -y => $fmain->height, -anchor => "sw");
$prv->configure(-text => $text{'prev'}, -command => \&reset_start );
- $nxt->configure(-text => $text{'next'}, -command => \&ask_go );
+ $nxt->configure(-text => $text{'next'}, -command => \&ask_options );
my $rb = $MWIDTH - $RIGHT;
$rb -= $nxt->width;
@@ -299,13 +300,74 @@ sub callback_change_texdir {
check_show_warning();
}
+################## OPTIONS SCREEN ################################
+
+sub ask_options {
+ for ($fmain->children) {
+ $_->destroy;
+ }
+ $counter->configure(-text => "3/5");
+ my $lab = $fmain->Label(-text => $text{'destfolder'});
+ my $val = $fmain->Label(-textvar => \$dest);
+ my $but = $fmain->Button(-text => $text{'change'}, -command => \&change_path,
+ -relief => "ridge", -width => 10);
+
+ my $bdesk = $fmain->Checkbutton(-text => $labels{'desktop_integration'},
+ -variable => \$vars{"option_desktop_integration"});
+
+ my $pa = $fmain->Checkbutton(-text => $labels{'optletter'},
+ -variable => \$vars{"option_letter"});
+ #my $but_tw = $fmain->Checkbutton(-text => $labels{'addon_editor'},
+ # -variable => \$vars{"addon_editor"});
+
+ calc_depends();
+
+
+ $fmain->Label(-text => $text{'pathinfo'},
+ -justify => "left")->place(-x => 0, -y => 30);
+
+ my $ytmp = 100;
+ $lab->place(-x => 0, -y => $ytmp, -anchor => "w");
+ $ytmp += ($lineskip + 10);
+ $val->place(-x => 0, -y => $ytmp, -anchor => "w");
+
+ $but->place(-x => $INNERWIDTH, -y => $ytmp, -anchor => "e");
+
+ $warning = $fmain->Label(-foreground => "red");
+ check_show_warning();
+ $ytmp += ($lineskip + 10);
+ $warning->place(-x => 0, -y => $ytmp, -anchor => "w");
+
+
+ $pa->place(-x => 0, -y => $ytmp + 30);
+ #if (win32()) {
+ # $but_tw->place(-x => 0, -y => $ytmp + 60);
+ #}
+
+ #$cb->place(-x => $INNERWIDTH, -y => $INNERHEIGHT, -anchor => "se");
+
+ $fmain->Label(-text => "$text{'diskreq'}: $vars{'total_size'} MB",
+ -justify => "left"
+ )->place(-x => 0, -y => $fmain->height, -anchor => "sw");
+
+ $prv->configure(-text => $text{'prev'}, -command => \&ask_path );
+ $nxt->configure(-text => $text{'next'}, -command => \&ask_go );
+
+ my $rb = $MWIDTH - $RIGHT;
+ $rb -= $nxt->width;
+ $rb -= 30;
+
+ $prv->place(-x => $rb, -y => ($MHEIGHT - $BOTTOM), -anchor => "se");
+}
+
+
################## INSTALL SCREEN #############################
sub ask_go {
for ($fmain->children) {
$_->destroy;
}
- $counter->configure(-text => "3/4");
+ $counter->configure(-text => "4/5");
my $inf = $fmain->Label(-justify => "left", -text => $text{'readyinst'} . "\n\n" . $text{'destfolder'} . ": $dest");
$inf->place(-x => 0, -y => 100);