[ltk-user] PATCH: added ttk:: namespace to tcl style commands

[Johan Ur Riise]

(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 at sodd:~/prg/ltk$