Hi!
clisp-2.36, ltk-0.876, Active Tcl 8.4.11.2, win2k
All tests - (ltktest) and (ltk::ltk-eyes) - run without errors.
But example from ltkdoc:
[3]> (defun hello-1() (with-ltk () (let ((b (make-instance button :master nil :text "Press Me" :command (lambda () (format t "Hello World!~&"))))) (pack b)))) HELLO-1 [4]> (hello-1) 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 $keyco de $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]")"}
*** - EVAL: variable BUTTON has no value The following restarts are available: USE-VALUE :R1 You may input a value to be used instead of BUTTON. STORE-VALUE :R2 You may input a new value for BUTTON. ABORT :R3 ABORT Break 1 [5]>
Thansk!