Re: use Tkx & busy/unbusy ( $mw->g_tk

unbusy

Hello, I am waka waka , lets see if I can waka waka answer thatthis question

Nope http://search.cpan.org/grep?cpanid=GAAS&release=Tkx-1.09&string=unbusy&i=1&n=1&C=0

Nope, wrong module :) http://search.cpan.org/grep?cpanid=VKON&release=Tcl-Tk-1.04&string=busy&i=1&n=1&C=0

Nope http://www.tkdocs.com/tutorial/onepage.html

Target ackquired http://www.tcl.tk/man/tcl8.6/TkCmd/busy.htm

Translator loaded http://search.cpan.org/perldoc/Tkx#Calling_Tcl_and_Tk_Commands

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::busy() "
Tkx-1-0.0s--e-1: busy
invalid command name "busy" at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::tk_busy() "
Tkx-1-0.0s--e-1: tk busy
wrong # args: should be "tk busy options ?arg arg ...?" at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::tk_busy(q(.)) "
Tkx-1-0.0s--e-1: tk busy .

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->busy() "
Tkx-1-0.0s--e-1: . busy
bad option "busy": must be cget or configure at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->tk_busy()
+ "
Tkx-1-0.0s--e-1: . tk busy
bad option "tk": must be cget or configure at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->m_tk_busy
+() "
Tkx-1-0.0s--e-1: . tk busy
bad option "tk": must be cget or configure at -e line 1.

$ perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->g_tk_busy
+() "
Tkx-1-0.0s--e-1: tk busy .
[download]

So there you go, its $mw->g_tk_busy

In Tk, it's simply...

knots rally vans that fall :D

Comment on Re: use Tkx & busy/unbusy ( $mw->g_tk_busy ) Download Code

Replies are listed 'Best First'.
Re^2: use Tkx & busy/unbusy ( $mw->g_tk_busy ) by dallen16 (Sexton) on Jun 09, 2013 at 00:32 UTC
Well Waka Waka... thanks for the reply but $mw->g_tk_busy, which I think should work, doesn't on AS Perl 5.14 on Win7. It also produces an error message shown below. Or did you run this in 5.16? And/or do you have Tcl 8.6 installed on what may be a linux system? `C:\asdf\>perl -e " $Tkx::TRACE=64; use Tkx; Tkx::widget->new(q(.))->g_ +tk_busy()" Tkx-1-0.0s--e-1: tk busy . bad option "busy": must be appname, caret, scaling, useinputmethods, w +indowingsystem, or inactive at -e line 1.` [download] Or maybe I should look at getting Tcl 8.6 on Win7? Thanks for your time and thoughts. D D	[reply] [d/l]
Re^3: use Tkx & busy/unbusy ( $mw->g_tk_busy ) by Anonymous Monk on Jun 09, 2013 at 04:17 UTC
doesn't on AS Perl 5.14 on Win7. Really? Go figure :) http://docs.activestate.com/activeperl/5.14/lib/Tkx.html ->http://docs.activestate.com/activeperl/5.14/lib/Tcl/tkkit.html ->http://docs.activestate.com/activetcl/8.5/tcl/tk_contents.htm Or did you run this in 5.16? And/or do you have Tcl 8.6 installed on what may be a linux system? I'm on windows, using a perl 5.14, compiled with mingw -- like http://strawberryperl.com/ and ActiveTcl8.6 still Tk 8.5 http://docs.activestate.com/activeperl/5.16/lib/Tcl/tkkit.html Or maybe I should look at getting Tcl 8.6 on Win7? It should be as easy as installing ActivePerl , just get ActiveTcl, and then recompile Tcl/Tcl::Tk, and maybe even switch to Tcl::pTk :)	[reply]
Re^4: use Tkx & busy/unbusy ( $mw->g_tk_busy ) by Keystroke (Scribe) on May 09, 2017 at 16:47 UTC
For anyone else on linux looking for this documentation that doesn't exist. `$main_window->configure( -cursor => 'watch' ); Tkx::update(); long_routine(); $main_window->configure( -cursor => 'top_left_arrow' ); Tkx::update();` [download]	[reply] [d/l]