sø., 27.04.2008 kl. 13.23 +0200, skrev 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
Seems like this is not the end solution. It seems that 1) tcl/tk version 8.4 needs the command 'package require tile' but 8.5 does not 2) moving of (activate-tile) to the inside of (with-ltk) in (defun tile-test) was ok for 8.5, as that version does not require require..., and the "package require tile"-command is executed in the *init-wish-hook*. 3) both 8.4 and 8.5 is fine with qualifying the commands with the ttk namespace.
So I get it to work with 8.5, but in 8.4 i still have either a missing "package require" or the error message from the first mail. Have to think of something else.