[cells-cvs] CVS Celtk

[ktilton]

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))))