Re: [perl-win32-gui-users] Launch Window without "Minimize/Maximize/Close" buttons

[Johan Lindstrom]

Morbus wrote:
I'm assuming that -minimizebox would do the same for the "Minimize" one. 
I've not hidden the Close box before, so I can't help you with that one.

-menubox => 0

This will remove the entire contents of the menu bar, including the system 
menu.


The other menubar flags are:
-maximizebox
-minimizebox
-helpbox

(there are synonyms)


Concerning your exit code, you can use your Window name and then 
_Terminate. For example:

   $window = new Win32::GUI::Window( -name    => '_Window' }

   sub _Window_Terminate {
      &note("Quitting due to window termination.");
      &exit_program;
   }

To clarify: returning 0 from an event handler will stop the "normal thing 
that happens" from happening. Returning -1 will exit the main event loop. 
Normal procedure is to return 1.

So, to prevent the window from closing, return 0.

Example:

=head2 winDesign_Terminate()

Block the close operation.

=cut
sub ::winDesign_Terminate {
        return(0);
        }


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     [EMAIL PROTECTED]
                 http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail