Added Root Device widgets to ARS.

gBootRoot

@@ -7,6 +7,12 @@
 #    Developer
 #    Cristian Ionescu-Idbohrn <cii@axis.com>
 #
+#    Tester
+#    Magnus Holmberg <pucko@lysator.liu.se>
+#
+#    Helper
+#    Yahshua Mashiyach
+#
 #    http://the.netpedia.net/gBootRoot.html
 
 #    This program is free software; you can redistribute it and/or modify
@@ -127,8 +133,10 @@ my $separator_advanced;
 my @entry_advanced;
 my $entry_advanced;
 my ($ea1,$ea2,$ea3);  
+my ($ear1,$ear2,$ear3,$ear4); # entry advanced root
 my $table_advanced;
 my $table_advanced_root;
+my $spinner_advanced;
 my $button_count = 0;
 my $button_count_root = 0;
 my $obj_count = 0;
@@ -347,6 +355,7 @@ $entry5->set_usize(15,20);
 $box2->pack_start( $entry5, $true, $true, 0 );
 $entry5->show();
 
+###########################
 # The ADVANCED BOOT SECTION 
 ###########################
 # Separator
@@ -367,26 +376,18 @@ $button_advanced->signal_connect("clicked",\&advanced_boot_section );
 $hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
 $button_advanced->show();
 ###########################
-
 # The ADVANCED ROOT SECTION 
 ###########################
-# Separator
-$separator = new Gtk::HSeparator();
-$vbox_advanced->pack_start( $separator, $false, $true, 0 );
-$separator->show();
-
 my $vbox_advanced_root = new Gtk::VBox($false,0);
 $box1->add($vbox_advanced_root);
 $vbox_advanced_root->show();
 
 hbox_advanced($vbox_advanced_root);
 $button_advanced = new Gtk::Button("Advanced Root Section");
-$tooltips->set_tip( $button_advanced, "Change settings for the bootdisk.", "" );
+$tooltips->set_tip( $button_advanced, "Generate a root system and/or use a different root device.", "" );
 $button_advanced->signal_connect("clicked",\&advanced_root_section );
 $hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
 $button_advanced->show();
-
-
 ###########################
 
 # Separator
@@ -591,11 +592,35 @@ sub advanced_root_section {
     if ($button_count_root == 0) {  
 	my $boolean; 
 
-       # The strip section
+
-       $table_advanced_root = new Gtk::Table( 4, 3, $true );
+       $table_advanced_root = new Gtk::Table( 7, 3, $true );
+       # temp solution?
+       $table_advanced_root->set_row_spacings( 3 );
        $vbox_advanced_root->pack_start( $table_advanced_root, $true, $true, 0 );
+
+
+
+       # Root Device selection
+       label_advanced("Root Device:",0,1,0,1,$table_advanced_root);
+       $ear1 = entry_advanced(1,2,0,1,0,$table_advanced_root);
+       $ear1->set_text($container[3]) if defined $container[3];
+       $tooltips->set_tip( $ear1, 
+                          "Type in the location of the Root Device to use.",
+                          "" );
+       button_advanced(2,3,0,1,"Selection",$ear1,"Selection",4,"/dev/fd0");
+
+       # Root Device Size
+       label_advanced("Root Device Size:",0,1,1,2,$table_advanced_root);
+       $spinner_advanced = new Gtk::SpinButton( $adj, 0, 0 );
+       $table_advanced_root->attach($spinner_advanced,1,2,1,2,
+                            ['shrink','fill','expand'],['fill','shrink'],0,0);
+       $tooltips->set_tip( $spinner_advanced, "Choose the Root Device Size.", "" );
+       $spinner_advanced->set_wrap( $true );
+       $spinner_advanced->set_numeric( $true );
+       $spinner_advanced->set_shadow_type( 'in' );
+       $spinner_advanced->show();
+
        $table_advanced_root->show();
-       label_advanced("Hi there!",0,1,1,2,$table_advanced_root);
        $button_count_root++;
 
     }
@@ -607,6 +632,33 @@ sub advanced_root_section {
 
 } # end sub advanced_root_section
 
+sub button_advanced {
+
+    # cretzu should like this
+    my ($left_attach,$right_attach,$top_attach,$bottom_attach,$text,$ent,
+        $name,$order,$device) = @_;
+
+    my $button = new Gtk::Button($text);
+    $table_advanced_root->attach($button,$left_attach,$right_attach,
+                                 $top_attach,$bottom_attach, 
+                            ['shrink','fill','expand'],['fill','shrink'],0,0);
+
+    # example
+    if ($order == 1) {
+      $tooltips->set_tip( $button, "Select the Kernel.", "" );
+    }
+    elsif ($order == 2) {
+      $tooltips->set_tip( $button, "Select the Compressed Filesystem.", "" );
+    }
+    else {
+      $tooltips->set_tip( $button, "Select the Root Device.", "" );
+    }
+    $button->signal_connect( "clicked",\&fileselect,$ent,$name,$order,$device);
+    $button->show();
+
+
+}
+
 
 sub entry_advanced {
 
@@ -830,9 +882,13 @@ sub entry {
     else {
          $entry->signal_connect( "changed", sub {
                  $container[$num] = $entry->get_text();
+                 # here's where types in entry3, types other places
                  if (defined $ea1 and $num == 3) { 
                      $ea1->set_text($container[$num]); 
                  } 
+                 if (defined $ear1 and $num == 3) { 
+                     $ear1->set_text($container[$num]); 
+                 }                  
      
                  # auto-detect compression if system has file
                  if ($num == 2) {