4 Jun
2012
4 Jun
'12
6:30 p.m.
On 2 June 2012 21:04, Vitaŭt Bajaryn vitaut.bayaryn@gmail.com wrote:
How can I set :xscrollcommand configure option to a lisp function?
I figured I can do something like that: ;;;; (in-package #:ltk)
(defun (setf x-scroll-command) (fun widget) (let ((name (create-name))) (add-callback name fun) (format-wish "~a configure -xscrollcommand {callback ~a}" (widget-path widget) name))) (export 'x-scroll-command) ;;;; But callback needs additional parameters and I don't know how to call a function in tcl.