Option to hide console menubar

Add option in the config file to hide the menu (Github issue #69)

Changes

@@ -3,6 +3,7 @@
 - Fix building and testing on perl-5.8.9
 - Improve testing on systems that do not have xterm installed
 - Take into account WM decorations when tiling (Github pull request #66) (thanks to Andrew Stevenson)
+- Add option in the config file to hide the menu (Github issue #69)
 
 4.07 2016-04-30 Duncan Ferguson <duncan_ferguson@user.sf.net>
 - Fixed tests on systems where bash is not installed in /bin/bash (Github issue #60)

lib/App/ClusterSSH.pm

@@ -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',

lib/App/ClusterSSH/Config.pm

@@ -85,6 +85,7 @@ my %default_config = (
     history_height => 10,
 
     command             => q{},
+    hide_menu           => 0,
     max_host_menu_items => 30,
 
     macros_enabled   => 'yes',

lib/App/ClusterSSH/Getopt.pm

@@ -668,6 +668,11 @@ If the external command is given a C<-L> option it should output a list of tags
         'L<KEY SHORTCUTS>'
     );
 
+    output '=item hide_menu = 0';
+    output $self->loc(
+        q{If set to 1, hide the menu bar (File, Hosts, Send, Help) in the console.},
+    );
+
     output '=item key_clientname = Alt-n';
     output $self->loc(
         q{Default key sequence to send cssh client names to client.  See [_1] for more information.},

t/15config.t

@@ -98,6 +98,7 @@ Readonly::Hash my %default_config => {
     command             => q{},
     title               => q{15CONFIG.T},
     comms               => q{ssh},
+    hide_menu           => 0,
     max_host_menu_items => 30,
 
     macros_enabled   => 'yes',
@@ -541,6 +542,7 @@ debug=0
 external_cluster_command=
 extra_cluster_file=
 extra_tag_file=
+hide_menu=0
 history_height=10
 history_width=40
 key_addhost=Control-Shift-plus