Browse Source

* the beginning of linking

master
freesource 24 years ago
parent
commit
368d67a65f
  1. 189
      YardBox.pm

189
YardBox.pm

@ -34,7 +34,11 @@ my $yard_window;
my $item_factory;
my $true = 1;
my $false = 0;
my $error;
my ($continue_button,$close_button,$save_button);
my($check,$dep,$space,$create,$test);
my($device,$device_size,$filename,$filename_size,$kernel,$template_dir,
$template,$tmp,$mnt);
my @menu_items = ( { path => '/File',
type => '<Branch>' },
@ -174,18 +178,18 @@ sub yard {
my ($ars) = @_;
my $error;
my $device = $ars->{device};
my $device_size = $ars->{device_size};
my $filename = $ars->{filename};
my $filename_size = $ars->{filename_size};
my $kernel = $ars->{kernel};
my $template_dir = $ars->{template_directory};
my $template = $ars->{template};
my $tmp = $ars->{tmp};
my $mnt = $ars->{mnt};
# Error handling in Yard will take some strategy
$device = $ars->{device};
$device_size = $ars->{device_size};
$filename = $ars->{filename};
$filename_size = $ars->{filename_size};
$kernel = $ars->{kernel};
$template_dir = $ars->{template_directory};
$template = $ars->{template};
$tmp = $ars->{tmp};
$mnt = $ars->{mnt};
# Error handling in Yard will take some strategy
if (!-d $kernel && -f $kernel) {
$error = kernel_version_check($kernel);
# Yard: kernel,kernel version
@ -205,24 +209,6 @@ sub yard {
return;
}
$error = read_contents_file("$template_dir$template");
return if $error && $error eq "ERROR";
## $error = extra_links("$template_dir$template");
## return if $error && $error eq "ERROR";
## $error = hard_links();
## return if $error && $error eq "ERROR";
## $error = library_dependencies("$template_dir$template");
## return if $error && $error eq "ERROR";
## $error = space_check($filesystem_size,
## $lib_strip_check_root->get_active(),
## $bin_strip_check_root->get_active(),
## $module_strip_check_root->get_active(),
## $obj_count_root, $tmp);
## return if $error && $error eq "ERROR";
} # end sub yard
@ -269,6 +255,7 @@ sub stages_one_by_one {
$stages_bool = "one-by-one";
print "$stages_bool\n";
}
sub stages_continuous {
@ -289,6 +276,112 @@ sub stages_user_defined {
}
my $continue;
#reset_continue();
#sub reset_continue {
$continue = {
check => 0,
links_deps => 0,
space_left => 0,
create => 0,
test => 0
};
#}
# Makes main checkbuttons act like radiobuttons
# Applies to both one_by_one & continuous
my %which_stage = qw(check 1 dep 0 space 0 create 0 test 0);
sub which_stage {
my($widget,$name) = @_;
my @check_boxes = ($check, $dep, $space, $create, $test);
my ($thing);
if ($stages_bool eq "one-by-one" or $stages_bool eq "continuous") {
=pod
foreach $thing (@check_boxes) {
if ($thing ne $widget) {
print "$thing $widget\n";
$thing->set_active($false);
}
}
=cut
}
}
sub continue {
# This has to go sequentially, but backwards is o.k.
if ($stages_bool eq "one-by-one") {
if ( $continue->{check} == 0 ) {
check();
$check->set_active($false);
$dep->set_active($true);
$continue->{check} = 1;
return;
}
if ( $continue->{links_deps} == 0 ) {
links_deps();
$dep->set_active($false);
$space->set_active($true);
$continue->{link_deps} = 1;
return;
}
}
}
sub check {
$error = read_contents_file("$template_dir$template");
return if $error && $error eq "ERROR";
$continue->{check} = 1;
}
sub links_deps {
$error = extra_links("$template_dir$template");
return if $error && $error eq "ERROR";
$error = hard_links();
return if $error && $error eq "ERROR";
$error = library_dependencies("$template_dir$template");
return if $error && $error eq "ERROR";
$continue->{links_deps} = 1;
}
sub space_left {
## $error = space_check($filesystem_size,
## $lib_strip_check_root->get_active(),
## $bin_strip_check_root->get_active(),
## $module_strip_check_root->get_active(),
## $obj_count_root, $tmp);
## return if $error && $error eq "ERROR";
}
sub create {
}
sub test {
}
#########
# TESTS #
#########
@ -387,6 +480,7 @@ my $bin_bool = 1;
my $mod_bool = 1;
my $replacement_bool = 1;
my $module_bool = 1;
my $start_length;
sub yard_box {
$yard_window = new Gtk::Window "toplevel";
@ -599,15 +693,16 @@ sub yard_box {
#_______________________________________
# Create the GtkText widget
my $length;
my $text = new Gtk::Text( undef, undef );
$text->set_editable($true);
my $start_length = $text->get_length();
my $beginning_text = $text->get_chars(0,$length);
my $beginning_text = $text->get_chars(0,$start_length);
$text->signal_connect("changed", sub {
$length = $text->get_length();
#my $changed_text = $text->get_chars(0,$length);
print "$length\n"; } );
my $new_length = $text->get_length();
my $changed_text = $text->get_chars(0,$new_length);
if ( $start_length != $new_length ) {
print "Text has changed $start_length $new_length\n";
}
} );
$table->attach( $text, 0, 1, 0, 1,
[ 'expand', 'shrink', 'fill' ],
[ 'expand', 'shrink', 'fill' ],
@ -619,6 +714,8 @@ sub yard_box {
$text->insert( undef, undef, undef, $_[0]);
$text->thaw();
$start_length = $text->get_length();
# Add a vertical scrollbar to the GtkText widget
my $vscrollbar = new Gtk::VScrollbar( $text->vadj );
$table->attach( $vscrollbar, 1, 2, 0, 1, 'fill',
@ -639,24 +736,29 @@ sub yard_box {
$main_vbox->pack_start( $vbox, $false, $true, 0 );
$vbox->show();
my $check = new Gtk::CheckButton("Check");
$check->set_active($true);
$check = new Gtk::CheckButton("Check");
$check->active($true);
$check->signal_connect("clicked", \&which_stage, "check");
$vbox->pack_start( $check, $true, $true, 10 );
show $check;
my $dep = new Gtk::CheckButton("Links & Deps");
$dep = new Gtk::CheckButton("Links & Deps");
$dep->signal_connect("clicked", \&which_stage, "dep");
$vbox->pack_start( $dep, $true, $true, 0 );
show $dep;
my $space = new Gtk::CheckButton("Space Left");
$space = new Gtk::CheckButton("Space Left");
$space->signal_connect("clicked", \&which_stage, "space");
$vbox->pack_start( $space, $true, $true, 0 );
show $space;
my $create = new Gtk::CheckButton("Create");
$create = new Gtk::CheckButton("Create");
$create->signal_connect("clicked", \&which_stage, "create");
$vbox->pack_start( $create, $true, $true, 0 );
show $create;
my $test = new Gtk::CheckButton("Test");
$test = new Gtk::CheckButton("Test");
$test->signal_connect("clicked", \&which_stage, "test");
$vbox->pack_start( $test, $true, $true, 0 );
show $test;
@ -674,8 +776,7 @@ sub yard_box {
$vbox->show();
$continue_button = new Gtk::Button( "Continue" );
$continue_button->signal_connect( 'clicked',
sub { destroy $yard_window; } );
$continue_button->signal_connect( 'clicked', \&continue);
$vbox->pack_start( $continue_button, $true, $true, 0 );
$continue_button->show();

Loading…
Cancel
Save