|
@ -50,9 +50,10 @@ my $uml_xterm = "xterm -e"; |
|
|
|
|
|
|
|
|
# I need to remember to edit this |
|
|
# I need to remember to edit this |
|
|
# and to update scripts/Debian.yard if |
|
|
# and to update scripts/Debian.yard if |
|
|
# make_debian has been changed. |
|
|
# make_debian has been changed, |
|
|
my $version = "1.3.1"; |
|
|
# and to install -s linux. |
|
|
my $date = "12.25.2001"; |
|
|
my $version = "1.3.2"; |
|
|
|
|
|
my $date = "01.11.2002"; |
|
|
my $gtk_perl_version = "0.7002"; |
|
|
my $gtk_perl_version = "0.7002"; |
|
|
my $pwd = `pwd`; chomp $pwd; |
|
|
my $pwd = `pwd`; chomp $pwd; |
|
|
my $home_rootfs = "$home/root_filesystem/"; |
|
|
my $home_rootfs = "$home/root_filesystem/"; |
|
@ -91,6 +92,8 @@ my $separator; |
|
|
my $order; |
|
|
my $order; |
|
|
my $text_window; |
|
|
my $text_window; |
|
|
my $verbosity_window; |
|
|
my $verbosity_window; |
|
|
|
|
|
#my $colormap; |
|
|
|
|
|
#my $window; |
|
|
|
|
|
|
|
|
# Make @container verbose, also look in generate() |
|
|
# Make @container verbose, also look in generate() |
|
|
my @container; |
|
|
my @container; |
|
@ -696,6 +699,7 @@ $box2->show(); |
|
|
|
|
|
|
|
|
$window->show(); |
|
|
$window->show(); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} # end start |
|
|
} # end start |
|
|
|
|
|
|
|
|
#---------------------------- |
|
|
#---------------------------- |
|
@ -1768,8 +1772,10 @@ sub accept_button { |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
info(0,"Done compressing $entry_advanced[4] with $compress\n"); |
|
|
info(0,"Done compressing $entry_advanced[4] with $compress\n"); |
|
|
$entry_advanced[4] = "$entry_advanced[4].gz"; |
|
|
|
|
|
$entry3->set_text("$tmp/$entry_advanced[4]"); |
|
|
# Actually, keeping the original value is much nicer. |
|
|
|
|
|
#$entry_advanced[4] = "$entry_advanced[4].gz"; |
|
|
|
|
|
$entry3->set_text("$tmp/$entry_advanced[4].gz"); |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
@ -1826,8 +1832,12 @@ sub accept_button { |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
info(0,"Done compressing $entry_advanced[4] with $compress\n"); |
|
|
info(0,"Done compressing $entry_advanced[4] with $compress\n"); |
|
|
$entry_advanced[4] = "$entry_advanced[4].bz2"; |
|
|
|
|
|
$entry3->set_text("$tmp/$entry_advanced[4]"); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Actually, keeping the original value is much nicer. |
|
|
|
|
|
#$entry_advanced[4] = "$entry_advanced[4].gz"; |
|
|
|
|
|
$entry3->set_text("$tmp/$entry_advanced[4].gz"); |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|