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! -- WBR, Yaroslav Kavenchuk.