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@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.