It's possible to add menu items to the Win32 System menubutton (the button at the top-left of a Perl/Tk window, labeled with the red Tk letters in script). Based on the operating system identifier, $^O, this code conditionally adds a command menu item that executes a DOS pipeline.
if ($^O eq 'MSWin32') { my $syst = $menubar->cascade(-label => '~System'); my $dir = 'dir | sort | more'; $syst->command( -label => $dir, -command => sub {system $dir}, ); }
Figure 12-3 illustrates.
Figure 12-4 shows a DOS window and the contents of a particular directory. Then a Perl/Tk program is started and the "dir | sort | more" button is clicked; note the unsolicited, sorted directory listing.
The special menu item labeled "Tearoff" is really a tearoff menu item that, when clicked, tears off only the Tk portion of the System menu.
Copyright © 2002 O'Reilly & Associates. All rights reserved.