From aac58339dbf1ed65048e365ff4e3609bee892af5 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Mon, 30 Jul 2001 17:29:11 +0000
Subject: [PATCH] This remembers uml options which is a nice thing.

---
 gBootRoot | 43 +++++++++++++++++++++++++++++++++++++++----
 1 file changed, 39 insertions(+), 4 deletions(-)

diff --git a/gBootRoot b/gBootRoot
index b2235dc..0963988 100644
--- a/gBootRoot
+++ b/gBootRoot
@@ -246,6 +246,12 @@ home_builder($home_rootfs);
 
 # $HOME/.gbootroot/uml_kernel
 home_builder($home_uml_kernel);
+if (!-e "$home_uml_kernel/.options") {
+    open(OPTIONS,">$home_uml_kernel/.options") 
+	or die "Couldn't write $home_uml_kernel/.options at $?\n";
+    print OPTIONS "root=/dev/ubd0\n";
+    close(OPTIONS);
+}
 
 sub home_builder {
 
@@ -969,8 +975,8 @@ sub advanced_root_section {
        $combo->entry->signal_connect("changed", sub {
 	   $entry_advanced[7] = $combo->entry->get_text(); 
 	   $ars->{template} = $entry_advanced[7];
-	   ars($ars);
-       } );
+	   ars($ars);	  
+      } );
        $table_advanced_root->attach($combo,1,3,7,8, 
                                ['expand','fill'],['fill','shrink'],0,0);
        show $combo;
@@ -1048,8 +1054,30 @@ sub uml_box {
 	#_______________________________________
 	# UML options
 	label_advanced("Options:",0,1,1,2,$table_uml);
-	$eab2 = entry_advanced(1,3,1,2,9,$table_uml);
-	$eab2->set_text("root=/dev/ubd0");
+	#$eab2 = entry_advanced(1,3,1,2,9,$table_uml);
+	#$eab2->set_text("root=/dev/ubd0");
+        $eab2 = Gtk::Combo->new();
+        $table_uml->attach($eab2,1,3,1,2, 
+			  ['expand','fill'],['fill','shrink'],0,0);
+	open(OPTIONS,"$home_uml_kernel/.options");
+	my @initial_options = <OPTIONS>;
+	close(OPTIONS); chomp @initial_options;
+	$eab2->entry->set_text($initial_options[0]);
+	$entry_advanced[9] = $eab2->entry->get_text();
+	$eab2->set_popdown_strings( @initial_options ) ;
+	$eab2->entry->signal_connect("changed", sub {
+	    $entry_advanced[9] = $eab2->entry->get_text();
+	    open(OPTIONS,">$home_uml_kernel/.options");
+	    $entry_advanced[9] =~ s/\n/ /g;
+	    print OPTIONS "$entry_advanced[9]\n";
+	    foreach (@initial_options) {
+		if ($_ ne "$entry_advanced[9]") {
+		    print OPTIONS "$_\n";
+		}
+	    }
+	    close(OPTIONS);
+	} );
+	$eab2->show();
 
 	#_______________________________________
 	# Root Filesystem defaults to generated one if found.
@@ -1070,6 +1098,11 @@ sub uml_box {
 				      # UML kernel = $entry_advanced[5]
 				      # xterm -e linux ubd#=root_fs 
                                       # root=/dev/ubd# 
+				      open(OPTIONS,"$home_uml_kernel/.options");
+				      @initial_options = <OPTIONS>;
+				      close(OPTIONS); chomp @initial_options;
+				      $eab2->set_popdown_strings( @initial_options ) ;
+
 				      my $pid; 
 				      if ($entry_advanced[8] && 
 					  $entry_advanced[10]) {
@@ -1100,6 +1133,7 @@ sub uml_box {
 
 				      }
 				      waitpid($pid,0);
+
 				      }
 				      else {
 					  if (!$entry_advanced[8]) {
@@ -1116,6 +1150,7 @@ sub uml_box {
 					  }
 
 				      }
+
 				  } );