From dac5b05c88e07716314b626a7da379260ea3738b Mon Sep 17 00:00:00 2001 From: freesource Date: Sun, 20 Jan 2002 17:17:01 +0000 Subject: [PATCH] Added a button to open up the Filesystem Box from the ARS, this is on the same line as Filesystem Size. --- BootRoot/BootRoot.pm | 5 +++++ BootRoot/YardBox.pm | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/BootRoot/BootRoot.pm b/BootRoot/BootRoot.pm index 99b7832..deda04c 100644 --- a/BootRoot/BootRoot.pm +++ b/BootRoot/BootRoot.pm @@ -1085,6 +1085,11 @@ sub advanced_root_section { }); $spinner_size->set_value($filesystem_size) if $filesystem_size; + my $filesystem_box_b = button_advanced(2,3,3,4,"Filesystem Box",$table_advanced_root); + $filesystem_box_b->signal_connect("clicked",\&file_system); + $tooltips->set_tip( $filesystem_box_b, "Open Filesystem Box.", "" ); + + #_______________________________________ # Compression # gBootRoot methods diff --git a/BootRoot/YardBox.pm b/BootRoot/YardBox.pm index 7891660..1b6dc14 100644 --- a/BootRoot/YardBox.pm +++ b/BootRoot/YardBox.pm @@ -25,7 +25,7 @@ package BootRoot::YardBox; use vars qw(@ISA @EXPORT %EXPORT_TAGS); use Exporter; @ISA = qw(Exporter); -@EXPORT = qw(yard ars filesystem_size); +@EXPORT = qw(yard ars filesystem_size file_system); use strict; use BootRoot::BootRoot; @@ -68,12 +68,13 @@ $template = $ars->{template}; $tmp = $ars->{tmp}; $mnt = $ars->{mnt}; -# Freshmeat comes here so the rest of the program needs -# to be warned when the template is coming from here. + $changed_text = "$template_dir$template" if defined $template; } +# Freshmeat comes here so the rest of the program needs +# to be warned when the template is coming from here. my @menu_items = ( { path => '/File', type => '' },