[ltk-user] Stumper

Kenny Tilton ktilton at nyc.rr.com
Mon Feb 6 22:50:37 UTC 2006


Peter Herth wrote:

>So, here my change which should perform the wished feature:
>
>;; the generic function to specialize on
>(defmethod handle-output (key params))
>
>(defun process-one-event (event)
>  (when event
>    (when *debug-tk*
>      (format *trace-output* "l:~s<=~%" event)
>      (finish-output *trace-output*))
>    (cond
>     ((and (not (listp event))
>           *trace-tk*)
>      (princ event *trace-output*)
>      (finish-output *trace-output*))
>     ((not (listp event)) nil)
>     ((eq (first event) :callback)
>      (let ((params (rest event)))
>        (callback (first params) (rest params))))
>     ((eq (first event) :event)
>      (let* ((params (rest event))
>             (callback (first params))
>             (evp (rest params))
>             (event (construct-tk-event evp)))
>        (callback callback (list event))))
>     (t
>      (handle-output
>       (first event) (rest event))))))
>_______________________________________________
>  
>
Thanks. I am going to soldier on for a while with LTk and continue 
digesting all this. To a certain extent I am starting to think the best 
way out for a power user is custom procs -- maybe that is my problem. It 
certainly helped with a Tcl TRACE I wantet to do.

kenny



More information about the ltk-user mailing list