use Tkx & busy/unbusy

[dallen16]

So... yesterday I thought I'd write a simple script (AS Perl v5.14 on Win7) using Tkx... instead of Tk. All seems good and even got Tktable to work reasonably well. Though I still haven't figured out the right stuff to set a tag, like -wrap, on an individual cell.

But... I just can't figure out how to invoke busy / unbusy -- or if they even exist in Tkx.

In Tk, it's simply...

$mw->Busy(-recurse => 1);
$mw->Unbusy();

But these don't work in Tkx and I can't find the equivalent. In the Tk v8.6 doc's, there's a reference to the tk busy command... but nothing in the v8.5 doc's.

Or what am I missing?

And should I be investing time in some other multi-platform user interface package with Perl?

Many thanks in advance...

[Anonymous Monk]

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 .

So there you go, its $mw->g_tk_busy

In Tk, it's simply...

knots rally vans that fall :D

[dallen16]

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.

Or maybe I should look at getting Tcl 8.6 on Win7?

Thanks for your time and thoughts.

D D

[Anonymous Monk]

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 :)