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

Modified Files: CELTK.lpr ltktest-ci.lisp run.lisp togl.lisp Log Message:

--- /project/cells/cvsroot/Celtk/CELTK.lpr 2006/08/28 21:44:40 1.20 +++ /project/cells/cvsroot/Celtk/CELTK.lpr 2006/10/28 18:21:52 1.21 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (Aug 24, 2006 21:48)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (Oct 17, 2006 12:56)"; cg: "1.81"; -*-

(in-package :cg-user)

@@ -104,7 +104,7 @@ :old-space-size 256000 :new-space-size 6144 :runtime-build-option :standard - :on-initialization 'celtk::tk-test + :on-initialization 'celtk::ltktest-ci :on-restart 'do-default-restart)

;; End of Project Definition --- /project/cells/cvsroot/Celtk/ltktest-ci.lisp 2006/09/03 13:39:56 1.9 +++ /project/cells/cvsroot/Celtk/ltktest-ci.lisp 2006/10/28 18:21:52 1.10 @@ -119,6 +119,9 @@ ; which operates on the outside world via observers (on-change callbacks) triggered ; automatically by the Cells engine. See DEFOBSERVER.

+(defun ctk::ltktest-ci () + (cells-reset 'tk-user-queue-handler) + (ctk:test-window 'ltktest-cells-inside))

(defmodel ltktest-cells-inside (window) () @@ -451,7 +454,4 @@

(defun mk-entry-numeric (&rest iargs) (apply 'make-instance 'entry-numeric :fm-parent *parent* iargs)) - -(defun ctk::ltktest-ci () - (cells-reset 'tk-user-queue-handler) - (ctk:test-window 'ltktest-cells-inside)) \ No newline at end of file + \ No newline at end of file --- /project/cells/cvsroot/Celtk/run.lisp 2006/10/02 02:56:01 1.21 +++ /project/cells/cvsroot/Celtk/run.lisp 2006/10/28 18:21:52 1.22 @@ -138,7 +138,7 @@ ;; Our own event loop ! - Use this if it is desirable to do something ;; else between events

-(defparameter *event-loop-delay* 0.08 "Minimum delay [s] in event loop not to lock out IDE (ACL anyway)") +(defparameter *event-loop-delay* .10 "Minimum delay [s] in event loop not to lock out IDE (ACL anyway)")

(defun tcl-do-one-event-loop () (loop while (plusp (tk-get-num-main-windows)) --- /project/cells/cvsroot/Celtk/togl.lisp 2006/10/02 02:56:01 1.21 +++ /project/cells/cvsroot/Celtk/togl.lisp 2006/10/28 18:21:52 1.22 @@ -208,6 +208,6 @@ (defmethod make-tk-instance ((self togl)) (with-integrity (:client `(:make-tk ,self)) (setf (gethash (^path) (dictionary .tkw)) self) - (trc "making togl!!!!!!!!!!!!" (path self)(tk-configurations self)) + (trc nil "making togl!!!!!!!!!!!!" (path self)(tk-configurations self)) (tk-format-now "togl ~a ~{~(~a~) ~a~^ ~}" (path self)(tk-configurations self))))