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

* Oh yeah! Now logging to a Gtk::Text window with scrolling.

Browse Source 
* Will have to give privacy when using create_text().
This commit is contained in:
freesource 2000-11-29 06:25:00 +00:00
parent 3965fae37d
commit 6391236fd7
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gBootRoot
View File

@ -35,7 +35,7 @@ use strict;
use Yard; use Yard;
use File::Basename; use File::Basename;
init Gtk; init Gtk;
set_locale Gtk;
# Perhaps you are wondering where to learn how to program with Gtk-Perl? # Perhaps you are wondering where to learn how to program with Gtk-Perl?
# There is an excellent tutorial by Stephen Wilhelm at # There is an excellent tutorial by Stephen Wilhelm at
@ -1027,7 +1027,6 @@ sub Generate {
} }
if ($method eq "yard") { if ($method eq "yard") {
#create_text("yard");
yard(); yard();
} }
@ -1043,6 +1042,7 @@ sub yard {
# Error handling in Yard will take some strategy # Error handling in Yard will take some strategy
if (!-d $container[1] && -f $container[1]) { if (!-d $container[1] && -f $container[1]) {
create_text("yard");
kernel_version_check($container[1]); # Yard: kernel,kernel version kernel_version_check($container[1]); # Yard: kernel,kernel version
# Becomes $ENV{'RELEASE'} # Becomes $ENV{'RELEASE'}
} }
@ -1051,18 +1051,19 @@ sub yard {
return; return;
} }
read_contents_file("$template_dir$template"); read_contents_file("$template_dir$template");
extra_links("$template_dir$template"); ##extra_links("$template_dir$template");
library_dependencies("$template_dir$template"); ##library_dependencies("$template_dir$template");
hard_links(); ##hard_links();
space_check($filesystem_size, $lib_strip_check_root->get_active(), ##space_check($filesystem_size, $lib_strip_check_root->get_active(),
$bin_strip_check_root->get_active(), ## $bin_strip_check_root->get_active(),
$module_strip_check_root->get_active(), ## $module_strip_check_root->get_active(),
$obj_count_root, $tmp); ## $obj_count_root, $tmp);
} # end sub yard } # end sub yard
@ -1180,20 +1181,23 @@ sub create_text {
[ 'expand', 'shrink', 'fill' ], [ 'expand', 'shrink', 'fill' ],
0, 0 ); 0, 0 );
$text->show(); $text->show();
text_insert($text); # yard thing
# Add a vertical scrollbar to the GtkText widget # Add a vertical scrollbar to the GtkText widget
my $vscrollbar = new Gtk::VScrollbar( $text->vadj ); my $vscrollbar = new Gtk::VScrollbar( $text->vadj );
$table->attach( $vscrollbar, 1, 2, 0, 1, 'fill', $table->attach( $vscrollbar, 1, 2, 0, 1, 'fill',
[ 'expand', 'shrink', 'fill' ], 0, 0 ); [ 'expand', 'shrink', 'fill' ], 0, 0 );
my $logadj = $vscrollbar->get_adjustment();
logadj($logadj);
$vscrollbar->show(); $vscrollbar->show();
$text->freeze(); $text->freeze();
if ($text_type eq "help") { if ($text_type eq "help") {
$text->insert( undef, undef, undef, help() ); $text->insert( undef, undef, undef, help() );
} }
elsif ($text_type eq "yard") { #elsif ($text_type eq "yard") {
$text->insert( undef, undef, undef, "Stuff coming soon" ); # $text->insert( undef, undef, undef, "Stuff coming soon" );
} #}
$text->thaw(); $text->thaw();
my $separator = new Gtk::HSeparator(); my $separator = new Gtk::HSeparator();