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.