From b52c3d436676ec6cb7aa7f988d0fef7e70ae3c59 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Tue, 19 Dec 2000 18:55:22 +0000
Subject: [PATCH] * Now create is working! * There are still some variables
 missing.  Dynamic %$ars and the   variables passed to space_check are missing
 in copy_strip_file.

---
 YardBox.pm | 48 ++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 38 insertions(+), 10 deletions(-)

diff --git a/YardBox.pm b/YardBox.pm
index 7218644..79d4235 100644
--- a/YardBox.pm
+++ b/YardBox.pm
@@ -36,8 +36,10 @@ my $false = 0;
 my $error;
 my ($continue_button,$close_button,$save_button);
 my($check,$dep,$space,$create,$test);
-my($device,$device_size,$filename,$filesystem_size,$kernel,$template_dir,
-   $template,$tmp,$mnt);
+my($filename,$filesystem_size,$kernel,$template_dir,$template,$tmp,$mnt);
+
+my $filesystem_type = "ext2";
+my $inode_size = 8192;
 my $TEXT_CHANGED = "no";
 my $lib_bool =            1;
 my $bin_bool =            1;
@@ -110,7 +112,8 @@ my @menu_items = ( { path        => '/File',
 		     action      => 15,
 		     type        => '<RadioItem>',
 		     callback    => \&stages_user_defined },
-		   { path        => '/Edit/File System' },
+		   { path        => '/Edit/File System',
+		     callback    => \&file_system },
 		   { path        => '/Edit/Replacements' },
 
                    { path        => '/_Create',
@@ -181,8 +184,6 @@ sub yard {
     
     my ($ars) = @_;
 
-    $device           = $ars->{device};
-    $device_size      = $ars->{device_size};
     $filename         = $ars->{filename};
     $filesystem_size  = $ars->{filesystem_size};
     $kernel           = $ars->{kernel};
@@ -215,6 +216,18 @@ sub yard {
 
 } # end sub yard
 
+###############
+# File System #
+###############
+# This allows the user to choose a different filesystem besides ext2.
+# The space_check inode percentage formula can be altered.  Default 2%.
+sub file_system {
+
+    $filesystem_type = "ext2";
+    $inode_size = 8192;
+
+}
+
 
 ###########
 # OBJCOPY #
@@ -419,6 +432,19 @@ sub continue {
 	    $continue->{space} = 1;
 	    return;
 	}
+        if ( $continue->{create} == 0 ) {
+	    create();
+	    foreach $thing (@check_boxes) {
+		$thing->hide();
+		$thing->active($false);
+		$thing->show();
+	    }   
+	    $test->hide();
+	    $test->active($true);
+	    $test->show();
+	    $continue->{create} = 1;
+	    return;
+	}
 
     }
 
@@ -429,8 +455,6 @@ sub check {
     $error = read_contents_file("$template_dir$template");
     return if $error && $error eq "ERROR";
 
-    $continue->{check} = 1;
-
 }
 
 sub links_deps {
@@ -444,8 +468,6 @@ sub links_deps {
     $error = library_dependencies("$template_dir$template");
     return if $error && $error eq "ERROR";
 
-    $continue->{links_deps} = 1;
-
 }
 
 sub space_left {
@@ -464,6 +486,9 @@ sub space_left {
 
 sub create {
 
+    $error = create_filesystem($filename,$filesystem_size,$filesystem_type,
+			       $inode_size,$mnt);
+    return if $error && $error eq "ERROR";
 
 }
 
@@ -827,7 +852,6 @@ sub yard_box {
        $vbox->show();
 
        $check = new Gtk::CheckButton("Check");
-       $check->active($true);
        $check->signal_connect("clicked", \&which_stage, "check"); 
        $vbox->pack_start( $check, $true, $true, 10 );
        show $check;       
@@ -852,6 +876,10 @@ sub yard_box {
        $vbox->pack_start( $test, $true, $true, 0 );
        show $test;       
 
+       # sets up default radiobutton behavior
+       which_stage("check","check");
+       $check->active($true);
+
        #_______________________________________ 
        # Separator
        $separator = new Gtk::HSeparator();