anchor.diff:  
   (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))
  
positive.code:          (vertically (:width 150 :max-width 500)
             (setf text-field screen)
             (horizontally (:height 50) ac ce)
             (tabling ()
               (list one two plus)
               (list three four dash)
               (list five six multiply)
  
negative.code:   (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))
  