[cells-cvs] CVS Celtk

[ktilton]

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)