Re: cursor manipulation
Jeff Hobbs <[email protected]> Sun, 15 Feb 2015 12:39:17 -0800
| Newsgroups | gmane.comp.lang.perl.active-perl |
|---|---|
| Message-ID | <CAAWZ=J_ruKzD9X5JBr5ab-SDixcF9TFkO0BZ5GMjge5t0eM2wA@mail.gmail.com> |
--===============1072782692== Content-Type: multipart/alternative; boundary=047d7bb04cdcae4ee4050f267660 --047d7bb04cdcae4ee4050f267660 Content-Type: text/plain; charset=UTF-8 It's possible the lack of an update() is what is needed, but note that setting the cursor on the toplevel (I'm assuming that's what type $wDB is) only applies the cursor to descendants that do not have their own cursor type set. Widgets like entry and text have their own cursor type, so you'd need a utility procedure to manage a full widget tree. Jeff On Sun, Feb 15, 2015 at 12:01 PM, Mike Ignatoski <[email protected]> wrote: > I have a Tkx perl app and I'd like to change the cursor during a lengthy > operation. > > Here is my code, but it doesn't work (although it doesn't generate any > errors): > > $wDB_window->configure ( -cursor=>'watch'); > perform_lengthy_operation(); > $wDB_window->configure ( -cursor=>'left_ptr' ); > > Any advice is appreciated. > > Thanks, > > -- > Mike > > _______________________________________________ > ActivePerl mailing list > [email protected] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > --047d7bb04cdcae4ee4050f267660 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable <div dir=3D"ltr"><div class=3D"gmail_default" style=3D"font-family:arial,he= lvetica,sans-serif">It's possible the lack of an update() is what is ne= eded, but note that setting the cursor on the toplevel (I'm assuming th= at's what type $wDB is) only applies the cursor to descendants that do = not have their own cursor type set. Widgets like entry and text have their = own cursor type, so you'd need a utility procedure to manage a full wid= get tree.</div><div class=3D"gmail_default" style=3D"font-family:arial,helv= etica,sans-serif"><br></div><div class=3D"gmail_default" style=3D"font-fami= ly:arial,helvetica,sans-serif">Jeff</div></div><div class=3D"gmail_extra"><= br><div class=3D"gmail_quote">On Sun, Feb 15, 2015 at 12:01 PM, Mike Ignato= ski <span dir=3D"ltr"><<a href=3D"mailto:[email protected]" target= =3D"_blank">[email protected]</a>></span> wrote:<br><blockquote cl= ass=3D"gmail_quote" style=3D"margin:0 0 0 .8ex;border-left:1px #ccc solid;p= adding-left:1ex">I have a Tkx perl app and I'd like to change the curso= r during a lengthy<br> operation.<br> <br> Here is my code, but it doesn't work (although it doesn't generate = any<br> errors):<br> <br> =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0$wDB_window->configure ( -cursor=3D>= ;'watch');<br> =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0perform_lengthy_operation();<br> =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0$wDB_window->configure ( -cursor=3D>= ;'left_ptr' );<br> <br> Any advice is appreciated.<br> <br> Thanks,<br> <span class=3D"HOEnZb"><font color=3D"#888888"><br> --<br> Mike<br> <br> _______________________________________________<br> ActivePerl mailing list<br> <a href=3D"mailto:[email protected]">ActivePerl@listserv.= ActiveState.com</a><br> To unsubscribe: <a href=3D"http://listserv.ActiveState.com/mailman/mysubs" = target=3D"_blank">http://listserv.ActiveState.com/mailman/mysubs</a><br> </font></span></blockquote></div><br></div> --047d7bb04cdcae4ee4050f267660-- --===============1072782692== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs --===============1072782692==--