[ltk-user] bug?

[Yaroslav Kavenchuk]

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.