 |  |
15.17. Removing the DOS Shell Window with Windows Perl/Tk
15.17.1. Problem
You have written a Perl program for the Windows port of Perl and Tk, but you get a DOS shell window every time you start your program.
15.17.2. Solution
Add this to the start of your program:
BEGIN {
if ($^O eq 'MSWin32') {
require Win32::Console;
Win32::Console::Free( );
}
}15.17.3. Description
The Win32::Console module lets you control the terminal window that launched your program. All you need to do is close that window (or Free it in, in the peculiar parlance of the Windows API) and voilà—no pesky DOS shell window.
15.17.4. See Also
The documentation for the Win32::Console module, which is included with distributions of Perl destined for Microsoft systems
|  | |
| 15.16. Responding to Tk Resize Events |  | 15.18. Graphing Data |
Copyright © 2003 O'Reilly & Associates. All rights reserved.