Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv7901

Modified Files: composites.lisp run.lisp tk-interp.lisp Log Message:

--- /project/cells/cvsroot/Celtk/composites.lisp 2008/03/23 23:47:42 1.27 +++ /project/cells/cvsroot/Celtk/composites.lisp 2008/04/11 09:23:51 1.28 @@ -123,12 +123,16 @@ (loop for task in *app-idle-tasks* do (funcall task self task)))

-(defmd window (toplevel composite-widget decoration-mixin) +(export! resources ^resources) + +(defmd window (toplevel composite-widget) (title$ (c? (string-capitalize (class-name (class-of self))))) (dictionary (make-hash-table :test 'equalp)) (tkwins (make-hash-table)) (xwins (make-hash-table)) (cursor :arrow :cell nil) + (resources (c-in nil) + :documentation "A-list of anything useful to be used consistently, such as ((paper . "paper038edgeless")(metal . "metal033"))") (keyboard-modifiers (c-in nil)) (callbacks (make-hash-table :test #'eq)) (edit-style (c-in nil)) @@ -144,6 +148,7 @@ Actually holds last event code, :focusin or :focusout") on-key-down on-key-up + (show-tool-tips? (c-in t)) :width (c?n 800) :height (c?n 600))

@@ -155,7 +160,7 @@ (trc nil "configure cursor" self new-value) (tk-format-now ". configure -cursor ~a" (string-downcase (symbol-name new-value)))))

-(export! .control-key-p .alt-key-p .shift-key-p focus-state ^focus-state) +(export! .control-key-p .alt-key-p .shift-key-p focus-state ^focus-state show-tool-tips? ^show-tool-tips?) (define-symbol-macro .control-key-p (find :control (keyboard-modifiers .tkw))) (define-symbol-macro .alt-key-p (find :alt (keyboard-modifiers .tkw))) (define-symbol-macro .shift-key-p (find :shift (keyboard-modifiers .tkw))) --- /project/cells/cvsroot/Celtk/run.lisp 2008/03/23 23:47:42 1.28 +++ /project/cells/cvsroot/Celtk/run.lisp 2008/04/11 09:23:51 1.29 @@ -18,6 +18,7 @@

(in-package :Celtk)

+ ;;; --- running a Celtk (window class, actually) --------------------------------------

(eval-now! --- /project/cells/cvsroot/Celtk/tk-interp.lisp 2008/01/03 20:23:30 1.20 +++ /project/cells/cvsroot/Celtk/tk-interp.lisp 2008/04/11 09:23:51 1.21 @@ -214,6 +214,12 @@ (tcl-find-executable (argv0)) (set-initialized)))

+#+test +(load-foreign-library 'Togl) + +#+test +(load "togl17.dll" :verbose t) + ;; Send a script to a given Tcl/Tk interpreter

(defun eval-script (interp script)