amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 09:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Option to hide console menubar

Browse source 
Add option in the config file to hide the menu (Github issue #69)
This commit is contained in:
Duncan Ferguson 2016-09-07 09:25:44 +01:00
parent 7822d337f7
commit 7974687cfb
5 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/App/ClusterSSH.pm
View file

@ -1325,6 +1325,9 @@ sub re_add_closed_sessions() {
sub build_hosts_menu() {
my ($self) = @_;
return if ( $self->config->{hide_menu} );
$self->debug( 2, "Building hosts menu" );
# first, empty the hosts menu from the last static entry + 1 on
@ -1800,7 +1803,9 @@ sub create_menubar() {
my ($self) = @_;
$self->debug( 2, "create_menubar: started" );
$menus{bar} = $windows{main_window}->Menu();
$windows{main_window}->configure( -menu => $menus{bar}, );
$windows{main_window}->configure( -menu => $menus{bar}, )
unless $self->config->{hide_menu};
$menus{file} = $menus{bar}->cascade(
-label => 'File',