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

* Minor edit.

Browse Source
This commit is contained in:
freesource 2000-12-10 18:06:57 +00:00
parent f41f464389
commit 4771d74403
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yard.pm
View File

@ -43,6 +43,7 @@ use FileHandle;
use Cwd; # I am not even sure if this is being used here now use Cwd; # I am not even sure if this is being used here now
use English; # I think this can be ditched for portability use English; # I think this can be ditched for portability
use File::Find; # used by check_root_fs use File::Find; # used by check_root_fs
# use Error; # missing temporarily
my (%Included, %replaced_by, %links_to, %is_module, %hardlinked, my (%Included, %replaced_by, %links_to, %is_module, %hardlinked,
%strippable, %lib_needed_by, @Libs); %strippable, %lib_needed_by, @Libs);
@ -77,9 +78,6 @@ sub warning {
sub verbosity { $verbosity = $_[0]; } sub verbosity { $verbosity = $_[0]; }
sub text_insert { $text_insert = $_[0]; $red = $_[1]; $blue = $_[2]; } sub text_insert { $text_insert = $_[0]; $red = $_[1]; $blue = $_[2]; }
sub logadj { $logadj = $_[0]; } sub logadj { $logadj = $_[0]; }
# This is because verbosity_box is in start_logging_output
#sub verbosity_window { $verbosity_window = $_[0]; }
## REQUIRES $kernel opt. $kernel_version ## REQUIRES $kernel opt. $kernel_version
sub kernel_version_check { sub kernel_version_check {

8
gBootRoot
View File

@ -264,9 +264,9 @@ start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name"
# "verbosity level" # "verbosity level"
# Gtk::check_version expects different arguments .7004 so will have # Gtk::check_version expects different arguments than .7004 so will have
# to check for the version instead. # to check for the version instead.
# Right now >= 0.7000 is o.k. # Right now >= 0.7002 is o.k.
#if (Gtk::check_version(undef,"1","0","7") =~ /too old/) { #if (Gtk::check_version(undef,"1","0","7") =~ /too old/) {
if (Gtk->major_version < 1) { if (Gtk->major_version < 1) {
@ -314,8 +314,8 @@ my ($circles,$mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($window->window,
@xpm_data); @xpm_data);
$window->window->set_icon(undef, $circles, $mask); $window->window->set_icon(undef, $circles, $mask);
$window->window->set_icon_name("gBootRoot"); $window->window->set_icon_name("gBootRoot");
#$window->window->set_decorations(['all', 'menu']); # Zas ## $window->window->set_decorations(['all', 'menu']); # Zas
#$window->window->set_functions(['all', 'resize']); # Zas ## $window->window->set_functions(['all', 'resize']); # Zas
my $tooltips = new Gtk::Tooltips(); my $tooltips = new Gtk::Tooltips();