bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

This adds a Replacements box, so the Replacements directory can easily be 

reached and files edited with an editor of choice via $main::editor.
master
freesource 24 years ago
parent
9927d950c9
commit
cf1dc75e27
1 changed files with 214 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 215
      BootRoot/YardBox.pm

215
BootRoot/YardBox.pm
View File

@ -40,6 +40,9 @@ my($check,$dep,$space,$create,$test);
my($filename,$filesystem_size,$kernel,$template_dir,$template,$tmp,$mnt);
my ($text, $changed_text, $changed_text_from_template);
my $save_as;
my $replacements_window;
my @entry;
my $file_dialog;
my $filesystem_type = "ext2";
my $inode_size = 8192;
@ -138,7 +141,8 @@ my @menu_items = ( { path => '/File',
callback => \&stages_user_defined },
{ path => '/Edit/File System',
callback => \&file_system },
{ path => '/Edit/Replacements' },
{ path => '/Edit/Replacements',
callback => \&Replacements },
{ path => '/_Create',
type => '<Branch>' },
@ -1127,6 +1131,215 @@ sub save_as {
}
sub Replacements {
if (not defined $replacements_window) {
$replacements_window = Gtk::Window->new("toplevel");
$replacements_window->signal_connect("destroy", \&destroy_window,
\$replacements_window);
$replacements_window->signal_connect("delete_event", \&destroy_window,
\$replacements_window);
$replacements_window->set_policy( $true, $true, $false );
$replacements_window->set_title( "Replacements Box" );
$replacements_window->border_width(1);
my $main_vbox = Gtk::VBox->new( $false, 0 );
$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 );
$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);
$repl1->set_text($main::editor);
#my $tooltips = Gtk::Tooltips->new();
# $tooltips->set_tip( $repl1,
# "Choose an editory with " .
# "its executable option switch.",
# "" );
#_______________________________________
# 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,
$table_replacements,
"$main::global_yard/Replacements/");
$repl2->set_text("$main::global_yard/Replacements/")
if -e "$main::global_yard/Replacements/";
$table_replacements->set_row_spacing( 1, 3);
#_______________________________________
# Submit button
my $submit_b = button(0,1,2,3,"Submit",$table_replacements);
$submit_b->signal_connect( "clicked", sub {
if ($entry[0] && $entry[1]) {
# Check to see if it actually exists
my $executable = (split(/\s+/,$entry[0]))[0];
if (!find_file_in_path(basename($executable))) {
error_window("gBootRoot Error: " .
"Enter a valid xterm, and " .
"executable option.");
return;
}
if ($executable =~ m,/,) {
if (! -e $executable) {
error_window("gBootRoot Error: " .
"Enter a valid path for the xterm.");
return;
}
}
my $pid;
unless ($pid = fork) {
unless (fork) {
if ($pid == 0) {
sys("$entry[0] $entry[1]");
Gtk->_exit($pid);
}
}
}
waitpid($pid,0);
}
} );
#_______________________________________
# Close button
my $close_b = button(2,3,2,3,"Close",$table_replacements);
$close_b->signal_connect("clicked",
sub {
$replacements_window->destroy()
if $replacements_window;
} );
}
if (!visible $replacements_window) {
$replacements_window->show();
} else {
$replacements_window->destroy;
}
}
# Just label_advanced
sub label {
my($text) = @_;
my $label = Gtk::Label->new( $text );
$label->set_justify( "fill" );
$_[5]->attach($label,$_[1],$_[2],$_[3],$_[4], ['expand'],['fill','shrink'],0,0);
$label->show();
}
# Just entry_advanced
sub entry {
my $numa = $_[4];
my $entry = Gtk::Entry->new();
$entry->set_editable( $true );
$entry->signal_connect( "changed", sub {
$entry[$numa] = $entry->get_text();
# if ($numa == 4) {
# $ars->{filename} = $entry[$numa];
# ars($ars);
# }
} );
$entry->set_usize(100,20);
$_[5]->attach($entry,$_[0],$_[1],$_[2],$_[3],
['shrink','fill','expand'],['fill','shrink'],0,0);
show $entry;
return $entry;
}
sub button {
# cretzu should like this
my ($left_attach,$right_attach,$top_attach,
$bottom_attach,$text,$widget) = @_;
my $button = Gtk::Button->new($text);
$widget->attach($button,$left_attach,$right_attach,
$top_attach,$bottom_attach,
['shrink','fill','expand'],['fill','shrink'],2,2);
show $button;
return $button;
}
sub button_fileselect {
# cretzu should like this
# $order does matter because it fills in $container[$order].
my ($left_attach,$right_attach,$top_attach,$bottom_attach,$text,$ent,
$name,$order,$widget,$device) = @_;
my $button = Gtk::Button->new($text);
$widget->attach($button,$left_attach,$right_attach,
$top_attach,$bottom_attach,
['shrink','fill','expand'],['fill','shrink'],2,2);
$button->signal_connect( "clicked",\&fileselect,$ent,$name,$order,$device);
$button->show();
} # end sub button_fileselect
sub fileselect {
my ($widget,$ent,$name,$order,$device) = @_;
if (not defined $file_dialog) {
# Create a new file selection widget
$file_dialog = Gtk::FileSelection->new( "$name" );
$file_dialog->signal_connect( "destroy",
\&destroy_window, \$file_dialog);
$file_dialog->signal_connect( "delete_event",
\&destroy_window, \$file_dialog);
# Connect the ok_button to file_ok_sel function
$file_dialog->ok_button->signal_connect( "clicked",
\&file_ok_sel,
$file_dialog,$ent,$order);
# Connect the cancel_button to destroy the widget
$file_dialog->cancel_button->signal_connect( "clicked",
sub { destroy $file_dialog } );
$file_dialog->set_filename( $device ) if defined $device;
$file_dialog->set_position('mouse');
}
if (!visible $file_dialog) {
show $file_dialog;
}
else {
destroy $file_dialog;
}
} # end sub fileselect
sub file_ok_sel {
my( $widget, $file_selection,$entry,$order) = @_;
my $file = $file_selection->get_filename();
$entry->set_text($file);
destroy $file_dialog;
}
1;

Write Preview
Loading…
Cancel
Save