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

Allow tearoff in xml at top level

Browse source 
Allow for 'detach' on the send menu itself within the xml config file, rather than just sub menus
This commit is contained in:
Duncan Ferguson 2009-09-17 19:07:29 +01:00
parent aec796247e
commit df2584b6d2
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/cssh.pl
View file

@ -2045,10 +2045,8 @@ sub populate_send_menu_entries_from_xml {
if ( $menu_ref->{menu} ) { if ( $menu_ref->{menu} ) {
$menus{ $menu_ref->{title} } $menus{ $menu_ref->{title} }
= $menu->cascade( -label => $menu_ref->{title}, ); = $menu->cascade( -label => $menu_ref->{title}, );
populate_send_menu_entries_from_xml( populate_send_menu_entries_from_xml( $menus{ $menu_ref->{title} },
$menus{ $menu_ref->{title} }, $menu_ref, );
$menu_ref,
);
if ( $menu_ref->{detach} && $menu_ref->{detach} =~ m/y/i ) { if ( $menu_ref->{detach} && $menu_ref->{detach} =~ m/y/i ) {
$menus{ $menu_ref->{title} }->menu->tearOffMenu()->raise; $menus{ $menu_ref->{title} }->menu->tearOffMenu()->raise;
} }
@ -2098,11 +2096,15 @@ sub populate_send_menu {
die 'Cannot load XML::Simple - has it been installed? ', $@ if ($@); die 'Cannot load XML::Simple - has it been installed? ', $@ if ($@);
my $xml = XML::Simple->new( ForceArray => 1, ); my $xml = XML::Simple->new( ForceArray => 1, );
my $xml_data = $xml->XMLin( $config{send_menu_xml_file} ); my $menu_xml = $xml->XMLin( $config{send_menu_xml_file} );
logmsg( 3, 'xml send menu: ', $/, $xml->XMLout($xml_data) ); logmsg( 3, 'xml send menu: ', $/, $xml->XMLout($menu_xml) );
populate_send_menu_entries_from_xml( $menus{send}, $xml_data ); if ( $menu_xml->{detach} && $menu_xml->{detach} =~ m/y/i ) {
$menus{send}->menu->tearOffMenu()->raise;
}
populate_send_menu_entries_from_xml( $menus{send}, $menu_xml );
} }
return; return;