[cells-cvs] CVS Celtk - cells-cvs@common-lisp.net - mailman3.common-lisp.net

3 May 2006

Update of /project/cells/cvsroot/Celtk
In directory clnet:/tmp/cvs-serv19334
Modified Files:
    Celtk.lisp ltktest-cells-inside.lisp run.lisp 
Log Message:

--- /project/cells/cvsroot/Celtk/Celtk.lisp	2006/05/03 08:20:49	1.14
+++ /project/cells/cvsroot/Celtk/Celtk.lisp	2006/05/03 08:46:56	1.15
@@ -124,15 +124,15 @@
   ;
   ; --- debug stuff ---
   ;
-  (let ((yes '("popup" "menu" "bkg-pop"))
-        (no  '("menu")))
+  (let ((yes '("pop" "menu" "mnu"))
+        (no  '("tk-events")))
(declare (ignorable yes no))
     (bwhen (st (search ""Alt Q"" tk$))
       (break "Hey, fix this.")
       (replace tk$ "{Alt Q}" :start1 st))
-    (when t #+not (and (find-if (lambda (s) (search s tk$)) yes)
+    (when (and (find-if (lambda (s) (search s tk$)) yes)
             (not (find-if (lambda (s) (search s tk$)) no)))
       (format t "~&tk> ~a~%" tk$)))
--- /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp	2006/05/03 08:20:49	1.14
+++ /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp	2006/05/03 08:46:56	1.15
@@ -214,7 +214,7 @@
                                        (with-integrity (:change self)
                                          (progn
                                            (trc "setting moire-spin" self (fm^ :moire-1))
-                                           (setf (moire-spin (fm^ :moire-1)) 10)))))))
+                                           (setf (moire-spin (fm^ :moire-1)) 100)))))))
               ;
               ; Cells initiata will be surprised to learn the above works twice even if the button is
               ; clicked twice in a row; Cells is about managing state change, and the second time through
@@ -339,7 +339,7 @@
     ;    
     :bindings (c? (list
                    (list '|<1>| (lambda (self event root-x root-y) 
-                                  (declare (ignore event))
+                                  (declare (ignorable event root-x root-y))
;
                                  ; Stolen from the original. It means "when the left button is
@@ -353,7 +353,7 @@
                                  ; via the client queue.
                                  ;
                                  (pop-up (^widget-menu :bkg-pop) root-x root-y))
-                     "%X %Y")))
+                     "%x %y")))
:menus (c? (the-kids
                 ;
--- /project/cells/cvsroot/Celtk/run.lisp	2006/05/03 08:20:49	1.2
+++ /project/cells/cvsroot/Celtk/run.lisp	2006/05/03 08:46:56	1.3
@@ -80,7 +80,7 @@
(defun tcl-do-one-event-loop ()
   (loop with start-time = (get-internal-real-time)
-        while (> 1 (floor (- (get-internal-real-time) start-time) internal-time-units-per-second))
+        while (> 10 (floor (- (get-internal-real-time) start-time) internal-time-units-per-second))
         do
         (bif (events (prog1
                          (tk-eval-list "set tk-events")

    