See the attached file.  The "X" icon is about 50% smaller than normal on my 
Win2k system (not tested elsewhere) using GUI .668 and Perl 5.0.1.

use Win32::GUI;
use strict;
use warnings;

package main;


my $Window = new Win32::GUI::Window (
        -name   => "Window",
        -topmost => 1,
        -left   => 300,
        -dialogui => 1,
        -top    => 400,
        -width  => 258,
        -height => 280, #235,
        -maxsize  => [258,280],#[258,235],
        -minsize  => [258,280],#[258,235],
        -text   => "No Tool Window",
        -maximizebox => 0,
        -minimizebox =>1,
        -helpbutton => 0,
        -resizable =>0,
);

my $Window2 = new Win32::GUI::Window (
        -name   => "Window2",
        -topmost => 1,
        -toolwindow => 1
        -left   => 600,
        -dialogui => 1,
        -top    => 400,
        -width  => 258,
        -height => 280, #235,
        -maxsize  => [258,280],#[258,235],
        -minsize  => [258,280],#[258,235],
        -text   => "With the ToolWindow",
        -maximizebox => 0,
        -minimizebox =>1,
        -helpbutton => 0,
        -resizable =>0,
);

sub Window_Terminate
{
   return -1;
}
sub Window2_Terminate
{
        return -1;
}
$Window2->Enable();
$Window2->Show();
$Window->Enable();
$Window->Show();

Win32::GUI::Dialog();

Note that as of yet, I have not played with the various settings for 
-minimizebox, etc.  It does look kind of cool with the small button, but I 
would just like to know why....

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:[EMAIL PROTECTED]


> -----Original Message-----
> From: Frazier, Joe Jr 
> Sent: Wednesday, June 25, 2003 4:09 PM
> To: Glenn Linderman; Win32 GUI
> Subject: RE: [perl-win32-gui-users] no taskbar entry for a Win32::GUI
> program
> 
> 
> I will take a screen shot in .bmp format tomorrow of both to 
> show the difference and send to the list.
> 
> Joe Frazier, Jr.
> Technical Support Engineer
> Peopleclick Service Support
> 
> Tel:  +1-800-841-2365
> E-Mail: mailto:[EMAIL PROTECTED]
> 
> 
> > -----Original Message-----
> > From: Glenn Linderman [mailto:[EMAIL PROTECTED]
> > Sent: Wednesday, June 25, 2003 3:48 PM
> > To: Frazier, Joe Jr; Win32 GUI
> > Subject: Re: [perl-win32-gui-users] no taskbar entry for a 
> Win32::GUI
> > program
> > 
> > 
> > On approximately 6/25/2003 10:39 AM, came the following 
> > characters from
> > the keyboard of Frazier, Joe Jr:
> >  >> -----Original Message----- From: Glenn Linderman
> >  >> [mailto:[EMAIL PROTECTED]
> >  >>
> >  >> On approximately 6/25/2003 7:04 AM, came the following 
> characters
> >  >> from the keyboard of Frazier, Joe Jr:
> >  >>
> >  >>>> -----Original Message----- From: Glenn Linderman
> >  >>>> [mailto:[EMAIL PROTECTED] Sent: Tuesday, June 24, 2003 10:07 PM
> >  >>>>
> >  >>>> From time to time the question has been asked on this list
> >  >>>> about how to have a Win32::GUI program running, but have no
> >  >>>> entry in the taskbar.
> >  >>>>
> >  >>>> When hidden and disabled, no entry will appear, but when shown
> >  >>>> or enabled, it will come back.
> >  >>>
> >  >
> >  > This bit here, in combination with the first sentance was what
> >  > confused me.  My solution ( I assume someone on the list 
> > presented it
> >  > to me over 2 years ago when I created this app) does show 
> > the icon on
> >  > the task bar when the app is viewable on the screen, but 
> not on the
> >  > task bar when minimized.  I was just unclear that you mean 
> > no taskbar
> >  > icon "ever".  Question?  is it the disable or the hide 
> that removes
> >  > from the taskbar?  I have never really played with various
> >  > combinations to find out what does what in such a 
> > situation and what
> >  > happens to the main window compaired to the task bar 
> > icon..... Do not
> >  > have time to check right now, but would make for more bulk in the
> >  > documentation being written....
> > 
> > It takes both "hidden" and "disabled" to remove a window's 
> entry from 
> > the taskbar using this technique.  And when you "show" or 
> > "enable", the 
> > taskbar entry comes back.
> > 
> >  >>>> Unless, when you create the window, you use:
> >  >>>>
> >  >>>> -toolwindow => 1,
> >  >>>>
> >  >>>> There is a more complicated solution, involving creating a
> >  >>>
> >  >> fake main
> >  >>
> >  >>>> window, making a real main window with the fake main window as
> >  >>>> a parent, and then deleting the fake main window.  This
> >  >>>> technique also works, but is much more complex than the option
> >  >>>> above.
> >  >>>
> >  >
> >  > I just knowticed that this option also seems to get rid of my
> >  > Minimize button??
> > 
> > Hmm.  So it does.  And it gets rid of the Maximize button 
> > too.  Except I 
> > see you didn't have a Maximize button already.  Looks like 
> > -toolwindow 
> > overrides -maximizebox, -minimizebox, and -helpbutton, 
> > eliminating them 
> > all, as well as getting rid of the taskbar entry.
> > 
> >  > It also makes the "X" to close the
> >  > window like real small (1/3-1/2 normal size).  This is on Win 2k.
> >  > Perl 5.6.1, GUI .668.
> > 
> > I'm using Perl 5.8, GUI 0.0.668, for reference.
> > 
> > I don't notice an appreciable difference is the size of my 
> > close box "X" 
> > by adding the -toolwindow, for my window definitions.  I 
> > didn't try your 
> > window definition, though.  However, maybe that was due to 
> > the fact that 
> >   I specified the same -font parameter for both cases.  
> With a -font 
> > parameter, you may be picking up different sized system 
> fonts for the 
> > two cases.
> > 
> > -- 
> > Glenn -- http://nevcal.com/
> > ===========================
> > Like almost everyone, I receive a lot of spam every day, much of it
> > offering to help me get out of debt or get rich quick.  It's 
> > ridiculous.
> > -- Bill Gates
> > 
> > 
> > 
> 
> 
> -------------------------------------------------------
> This SF.Net email is sponsored by: INetU
> Attention Web Developers & Consultants: Become An INetU 
> Hosting Partner.
> Refer Dedicated Servers. We Manage Them. You Get 10% Monthly 
> Commission!
> INetU Dedicated Managed Hosting http://www.inetu.net/partner/index.php
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> 

<<attachment: ToolMenu.jpg>>

Reply via email to