Update of /project/mcclim/cvsroot/mcclim/Examples In directory common-lisp.net:/tmp/cvs-serv24691
Modified Files: calculator.lisp Log Message: Minor revisions to calculator example - use grid-pane rather than table-pane to equalize button sizes, adjust default text style.
Date: Mon Jan 31 19:11:40 2005 Author: ahefner
Index: mcclim/Examples/calculator.lisp diff -u mcclim/Examples/calculator.lisp:1.17 mcclim/Examples/calculator.lisp:1.18 --- mcclim/Examples/calculator.lisp:1.17 Fri Mar 21 13:37:00 2003 +++ mcclim/Examples/calculator.lisp Mon Jan 31 19:11:39 2005 @@ -22,7 +22,11 @@
(in-package :clim-demo)
+(defparameter *calculator-text-style* + (make-text-style :sans-serif :roman :large)) + (defun calculator () + #+nil (progn (loop for port in climi::*all-ports* do (destroy-port port)) @@ -88,6 +92,7 @@ (make-pane 'push-button-pane :label label :activate-callback operator + :text-style *calculator-text-style* :width width :height height :max-width max-width :min-width min-width :max-height max-height :min-height min-height)) @@ -111,7 +116,7 @@ (eight (make-button "8" (queue-number 8))) (nine (make-button "9" (queue-number 9))) (zero (make-button "0" (queue-number 0))) - (screen :text-field :value "0") + (screen :text-field :value "0" :text-style *calculator-text-style*) (ac (make-button "AC" #'initac)) (ce (make-button "CE" #'initce)))
@@ -121,7 +126,7 @@ (vertically (:width 150 :max-width 500) (setf text-field screen) (horizontally (:height 50) ac ce) - (tabling () + (tabling (:grid t) (list one two plus) (list three four dash) (list five six multiply)