From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
Daniel Burgaud
Sent: 01 September 2009 11:08
To: Perl-Win32-Users
Subject: need help: TK windows - no task bar icon pls
> Hi
>
> I have a perl script with a main TK:
>
> my $MW = MainWindow->new();
>
>
> Within, I have routines that requires a popup.
>
> sub POPUP {
> my $popup = $MW->TopLevel();
> .
> .
> .
> while(1) {
> usleep 5000;
> $popup->focus;
> .
> .
> .
> }
> }
>
> I do not like to use dialog or dialogbox because i need a popup that
> performs complex task, dialog or dialogbox is not up to task.
>
> My problem is, this popup creates "another" task bar icon separate
from
> the mainwindow. how do I make it not create another task bar icon?
> Dialog/DialogBox does not have this taskbar icon...
As DialogBox derives directly from TopLevel, I expect that the answer
lies somewhere in DialogBox.pm, probably in its Populate and Show
methods. My first guess would be that it is something to do with the
calls to transient, withdraw and Popup, although I can see no
documentation for Popup in TopLevel or its obvious base classes.
Unless somebody comes up with a better answer, try copying DialogBox.pm,
make mods to it and see what happens. If you discover the answer from
that, don't forget to let us know what it is.
HTH
--
Brian Raven
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediately by reply e-mail and delete this message and any
attachments without retaining a copy.
Any unauthorised copying, disclosure or distribution of the material in this
e-mail is strictly forbidden.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
