From 5f7d6c8941de6d7813df8fd3a820af8941dbd314 Mon Sep 17 00:00:00 2001 From: freesource Date: Tue, 22 Jan 2002 21:21:20 +0000 Subject: [PATCH] Improved Replacements Box GUI. --- BootRoot/YardBox.pm | 17 ++++++++++------- Changes | 5 +++++ 2 files changed, 15 insertions(+), 7 deletions(-) diff --git a/BootRoot/YardBox.pm b/BootRoot/YardBox.pm index 1b6dc14..521c9cc 100644 --- a/BootRoot/YardBox.pm +++ b/BootRoot/YardBox.pm @@ -2271,6 +2271,7 @@ sub Replacements { $replacements_window->signal_connect("delete_event", \&destroy_window, \$replacements_window); $replacements_window->set_policy( $true, $true, $false ); + $replacements_window->set_default_size( 525, 90 ); $replacements_window->set_title( "Replacements Box" ); $replacements_window->border_width(1); @@ -2278,14 +2279,16 @@ sub Replacements { $replacements_window->add( $main_vbox ); $main_vbox->show(); - my $table_replacements = Gtk::Table->new( 3, 3, $true ); - $main_vbox->pack_start( $table_replacements, $true, $true, 0 ); + #my $table_replacements = Gtk::Table->new( 3, 3, $true ); + my $table_replacements = Gtk::Table->new( 5, 3, $false ); + #$main_vbox->pack_start( $table_replacements, $true, $true, 0 ); + $main_vbox->pack_start( $table_replacements, $true, $false, 0 ); $table_replacements->show(); #_______________________________________ # Editor and execute options label("Editor:",0,1,0,1,$table_replacements); - my $repl1 = entry(1,3,0,1,0,$table_replacements); + my $repl1 = entry(1,5,0,1,0,$table_replacements); $repl1->set_text($main::editor); #my $tooltips = Gtk::Tooltips->new(); @@ -2297,8 +2300,8 @@ sub Replacements { #_______________________________________ # Replacement file label("Replacement:",0,1,1,2,$table_replacements); - my $repl2 = entry(1,2,1,2,1,$table_replacements); - button_fileselect(2,3,1,2,"Selection",$repl2,"Selection",0, + my $repl2 = entry(1,4,1,2,1,$table_replacements); + button_fileselect(4,5,1,2,"Selection",$repl2,"Selection",0, $table_replacements, "$main::global_yard/Replacements/"); $repl2->set_text("$main::global_yard/Replacements/") @@ -2309,7 +2312,7 @@ sub Replacements { #_______________________________________ # Submit button - my $submit_b = button(0,1,2,3,"Submit",$table_replacements); + my $submit_b = button(0,2,2,3,"Submit",$table_replacements); $submit_b->can_default($true); $submit_b->grab_default(); $submit_b->signal_connect( "clicked", sub { @@ -2345,7 +2348,7 @@ sub Replacements { #_______________________________________ # Close button - my $close_b = button(2,3,2,3,"Close",$table_replacements); + my $close_b = button(3,5,2,3,"Close",$table_replacements); $close_b->signal_connect("clicked", sub { $replacements_window->destroy() diff --git a/Changes b/Changes index af48a13..de575e3 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,8 @@ +Improved Replacements Box GUI. + +Added a button to open up the Filesystem Box from the ARS, this is on the same +line as Filesystem Size. + 1.3.3 - 01/15/2002 ------------------