[cells-cvs] CVS Celtk

fgoenninger fgoenninger at common-lisp.net
Fri Nov 16 09:57:46 UTC 2007


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

Modified Files:
	composites.lisp 
Log Message:
Changed: removed (break "Hunh?") - No need for that ;-)

--- /project/cells/cvsroot/Celtk/composites.lisp	2007/01/29 06:48:41	1.23
+++ /project/cells/cvsroot/Celtk/composites.lisp	2007/11/16 09:57:46	1.24
@@ -146,8 +146,6 @@
   (tk-format '(:pre-make-tk self) "wm overrideredirect . yes")
   )
 
-
-
 (defmethod do-on-key-down :before (self &rest args &aux (keysym (car args)))
   (trc nil "ctk::do-on-key-down window" keysym (keyboard-modifiers .tkw))
   (bwhen (mod (keysym-to-modifier keysym))
@@ -163,28 +161,29 @@
 
 ;;; Helper function that actually executes decoration change
 (defun %%do-decoration (widget decoration)
-  (break "hunh?")
   (let ((path (path widget)))
-    (ecase decoration
-      (:none    (progn
-		  (tk-format '(:pre-make-tk decoration)
-			     "wm withdraw ~a" path)    
-		  (tk-format '(:pre-make-tk decoration)
-			     "wm overrideredirect ~a 1" path)
-		  (tk-format '(:pre-make-tk decoration)
-			     "wm deiconify ~a" path)
-		  (tk-format '(:pre-make-tk decoration)
-			     "update idletasks" path)
-		  ))
-      (:normal  (progn
-		  (tk-format '(:pre-make-tk decoration)
-			     "wm withdraw ~a" path)    
-		  (tk-format '(:pre-make-tk decoration)
-			     "wm overrideredirect ~a 0" path)
-		  (tk-format '(:pre-make-tk decoration)
-			     "wm deiconify ~a" path)
-		  (tk-format '(:pre-make-tk decoration)
-			     "update idletasks" path))))))
+    (case decoration
+      (:none
+       (progn
+         (tk-format '(:pre-make-tk decoration)
+                    "wm withdraw ~a" path)    
+         (tk-format '(:pre-make-tk decoration)
+                    "wm overrideredirect ~a 1" path)
+         (tk-format '(:pre-make-tk decoration)
+                    "wm deiconify ~a" path)
+         (tk-format '(:pre-make-tk decoration)
+                    "update idletasks" path)
+         ))
+      (:normal
+       (progn
+         (tk-format '(:pre-make-tk decoration)
+                    "wm withdraw ~a" path)    
+         (tk-format '(:pre-make-tk decoration)
+                    "wm overrideredirect ~a 0" path)
+         (tk-format '(:pre-make-tk decoration)
+                    "wm deiconify ~a" path)
+         (tk-format '(:pre-make-tk decoration)
+                    "update idletasks" path))))))
 
 ;;; Decoration observer for all widgets that inherit from decoration-mixin
 ;;; On Mac OS X this is a one-way operation. When created without decorations




More information about the Cells-cvs mailing list