RE: how do I do attributes(-toolwindow=>1) in perlTk?

On Sun, 16 Jan 2005, Jack D. wrote:

> This likely has something to do with how Windows reparents the window into a
> new wrapper (seemingly at will).
> 
> See this old post I wrote for more windows weirdness:
> 
> http://groups.google.ca/groups?selm=pMFc8.72383%24A44.4272341%40news2.calgar
> y.shaw.ca
> 
> Anyways - if you delay the call until after the MainLoop it works OK.
> 
> use Tk;
> $mw=tkinit;
> $tl=$mw->Toplevel;
> print hex($tl->id);
> $tl->Button(-text=>'Ok')->pack;
> #$tl->attributes(-toolwindow=>1);
> $mw->after(1000,sub {$tl->attributes(-toolwindow=>1)});
> MainLoop;
> 


:(  Tk804.027, perl 5.8.5, suse linux 9.2

$ perl test.pl
41943044XS_Tk__Callback_Call error:wrong # args: should be "wm attributes 
window" at Tk804/Tk/Submethods.pm line 37.

Tk::Error: wrong # args: should be "wm attributes window" at 
Tk804/Tk/Submethods.pm line 37.
 Tk callback for wm
 Tk::After::once at Tk804/Tk/After.pm line 89
 [once,[{},after#2,1000,once,[\&main::__ANON__]]]
 ("after" script)


regards
--
Ondrej Koala Vacha
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to [email protected]