[ltk-user] ensure-ltk ?

Hi,

What's the proper idiom when writing a function that might start wish or might be called inside another with-ltk?

For example, (defun some-window () (ensure-ltk () ...))

Where some-window could be called from a REPL or from a tk callback? Is there already a way to do this in ltk, or should I define a macro something like the following seemingly broken code?

(defmacro ensure-ltk ((&rest options) &body body) (let ((fname (gensym))) `(labels ((,fname () ,@body)) (if (wish-stream *wish*) (,fname) (with-ltk ,options (,fname))))))

Thanks, Daniel