[ltk-user] Windows problem again

[Hitman]

Thomas F. Burdick wrote:
> This sounds different from any Windows-related problem I remember
> being reported before. Unfortunately, you haven't given enough
> details for us to be able to determine what's going wrong; although if
> you're seeing the Wish window, you have no problems with asdf nor with
> wish being started.
>
> After loading ltk, before running any tests, could you do (setf
> ltk:*debug-tk* t) and send us the complete transcript of the session.
> Hopefully Peter and I will spot something in that output.
>
> Also, to rule out any character encoding issues, try to verify that
> Emacs, CLISP, and Tk are all running in Latin-1 locales.
>
> -Thomas
> _______________________________________________
> ltk-user site list
> ltk-user at common-lisp.net
> http://common-lisp.net/mailman/listinfo/ltk-user
Hi Thomas,
I did, what u wrote me - (setf *debug-tk* t) and when I ran (ltktest) it 
was functional :-O, (ltk::ltk-eyes) wasn't functional - LTK window shows 
up and ranging and transcript was:

package require Tk
proc escape {s} {regsub -all {\\} $s {\\\\} s1;regsub -all {"} $s1 {\"} 
s2;return $s2}
proc senddata {s} {puts "(:data [escape $s])";flush stdout}
proc senddatastring {s} {puts "(:data \"[escape $s]\")";flush stdout}
proc senddatastrings {strings} {
puts "(:data ("
foreach s $strings {
puts "\"[escape $s]\""
}
puts "))";flush stdout}
proc sendevent {s x y keycode char width height root_x root_y 
mouse_button} {puts "(:event \"$s\" $x $y $keycode $char $width $height 
$root_x $root_y $mouse_button)"}
proc callback {s} {puts "(:callback \"$s\")";flush stdout}
proc callbackval {s val} {puts "(:callback \"$s\" $val)"}
proc callbackstring {s val} {puts "(:callback \"$s\" \"[escape $val]\")"}

and now it's ranging.
When i tried the simple example from ltkdoc.pdf

*(with-ltk ()
(let ((b (make-instance ’button
:master nil
:text "Press Me"
:command (lambda ()
(format t "Hello World!~&")))))
(pack b)))*

the transcript was:

package require Tk
proc escape {s} {regsub -all {\\} $s {\\\\} s1;regsub -all {"} $s1 {\"} 
s2;return $s2}
proc senddata {s} {puts "(:data [escape $s])";flush stdout}
proc senddatastring {s} {puts "(:data \"[escape $s]\")";flush stdout}
proc senddatastrings {strings} {
puts "(:data ("
foreach s $strings {
puts "\"[escape $s]\""
}
puts "))";flush stdout}
proc sendevent {s x y keycode char width height root_x root_y 
mouse_button} {puts "(:event \"$s\" $x $y $keycode $char $width $height 
$root_x $root_y $mouse_button)"}
proc callback {s} {puts "(:callback \"$s\")";flush stdout}
proc callbackval {s val} {puts "(:callback \"$s\" $val)"}
proc callbackstring {s val} {puts "(:callback \"$s\" \"[escape $val]\")"}
senddatastring [tk_messageBox -message {
EVAL: variable 222BUTTON has no value


Do you wish to invoke the debugger?} -title {Error} -type yesno -icon 
question]
read-data: (:DATA "no")
exit

Best regards. Honza.