[GRASS5] NVIZ Compiling Error

[Jeshua Lacock]

On Friday, October 11, 2002, at 11:42 AM, Glynn Clements wrote:

>> Otto Dassau wrote:
>>    invalid command name "tkCancelRepeat"
>>    invalid command name "tkCancelRepeat"
>>         while executing
>>    "tkCancelRepeat"
>>         (command bound to event)
>>
>> Does anybody has a solution for this ?
>
> tkCancelRepeat is a built-in command in Tcl/Tk 8.0 (and presumably up
> to 8.3, as no-one else has reported this).
>
> Unless we can determine that 8.4 has a replacement, we should define a
> stub, e.g.
>
> 	if {[string length [info commands tkCancelRepeat]]} {} {
> 	proc tkCancelRepeat {} {}
> 	}

Greetings,

I have created a patch which fixes the problem. The screen is now 
automatically redrawn.

The solution "restores the existence of the Tk private command(s)". I 
came across it at:
  < http://www.tcl.tk/cgi-bin/tct/tip/44.html

*** old/widgets.tcl     Mon Oct 14 23:51:42 2002
--- new/widgets.tcl     Mon Oct 14 23:50:47 2002
***************
*** 248,255 ****
--- 248,264 ----

   #Bind For Re-Draw Surface
       bind $S.scale <Any-ButtonRelease> {+
+ if {![llength [info commands tkCancelRepeat]]} {
+      tk::unsupported::ExposePrivateCommand tkCancelRepeat
+ }
   tkCancelRepeat
+ if {![llength [info commands tkScaleEndDrag]]} {
+      tk::unsupported::ExposePrivateCommand tkScaleEndDrag
+ }
   tkScaleEndDrag %W
+ if {![llength [info commands tkScaleActivate]]} {
+      tk::unsupported::ExposePrivateCommand tkScaleActivate
+ }
   tkScaleActivate %W %x %y
   if {[Nauto_draw] == 1} {Ndraw_all} }

***************
*** 298,305 ****
--- 307,323 ----

   #Bind For Re-Draw Surface
   bind $S.scale <Any-ButtonRelease> {+
+ if {![llength [info commands tkCancelRepeat]]} {
+     tk::unsupported::ExposePrivateCommand tkCancelRepeat
+ }
   tkCancelRepeat
+ if {![llength [info commands tkScaleEndDrag]]} {
+      tk::unsupported::ExposePrivateCommand tkScaleEndDrag
+ }
   tkScaleEndDrag %W
+ if {![llength [info commands tkScaleActivate]]} {
+      tk::unsupported::ExposePrivateCommand tkScaleActivate
+ }
   tkScaleActivate %W %x %y
   if {[Nauto_draw] == 1} {Ndraw_all} }


Cheers,

Jeshua Lacock __________________________
Programmer/Owner            Phone:   760.935.4736
http://OpenOSX.com           Fax:        760.935.4845
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_