(tile-test) would sometimes hang on the first command without this
debian sid sbcl 1.0.16.3 wish 8.5
added ttk:: namespace to tcl style commands
diff --git a/ltk-tile.lisp b/ltk-tile.lisp index d33bceb..024d118 100644 --- a/ltk-tile.lisp +++ b/ltk-tile.lisp @@ -43,18 +43,18 @@ (setf (widget-class-name w) (concatenate 'string "ttk::" (widget-class-name w)))))))
(defun theme-names () - (send-wish "senddatastrings [style theme names]") + (send-wish "senddatastrings [ttk::style theme names]") (ltk::read-data))
(defun use-theme(name) - (format-wish "style theme use ~a" name)) + (format-wish "ttk::style theme use ~a" name))
(defun style-element-names () - (send-wish "senddatastrings [style element names]") + (send-wish "senddatastrings [ttk::style element names]") (ltk::read-data))
(defun style-default (style &rest params) - (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params)) + (format-wish "ttk::style default ~A ~{ -~(~a~) {~a}~}" style params))
(defun tile-test () (with-ltk () @@ -71,7 +71,3 @@ (make-menubutton mtheme theme (lambda () (use-theme theme))))) ))) - - - - \ No newline at end of file johan@sodd:~/prg/ltk$