[mcclim-cvs] CVS mcclim/Examples

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory clnet:/tmp/cvs-serv6896

Modified Files:
	logic-cube.lisp 
Log Message:
Use text size of :huge, since not all X servers supply a reasonable
font at size 50.



--- /project/mcclim/cvsroot/mcclim/Examples/logic-cube.lisp	2006/07/03 04:58:41	1.1
+++ /project/mcclim/cvsroot/mcclim/Examples/logic-cube.lisp	2006/07/08 18:27:10	1.2
@@ -390,7 +390,7 @@
 (defun won-logic-cube (pane)
   (let ((start-time (get-internal-real-time))
         (spin-start-time 0.3)
-        (text-style (make-text-style :serif :bold 50))
+        (text-style (make-text-style :serif :bold :huge))
         (start-yaw (yaw pane))
         (win-message (elt '("Great Success!" "You Win!" "Completed!"
                             "Vanquished!" "Terminated!" "Good job!" "Boom!")