bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53:23 -05:00
Code Issues Projects Releases Wiki Activity

Improved Replacements Box GUI.

Browse Source
This commit is contained in:
freesource 2002-01-22 21:21:20 +00:00
parent 91e0dee4d6
commit 5f7d6c8941
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
BootRoot/YardBox.pm
View File

@ -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()

5
Changes
View File

@ -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
------------------