anchor.diff:    (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))
  
positive.code: 
  (in-package :clim-demo)
  
  (defun calculator ()
    (progn
      (loop for port in climi::*all-ports*
          do (destroy-port port))
  
negative.code:          (vertically (:width 150 :max-width 500)
             (setf text-field screen)
             (horizontally (:height 50) ac ce)
             (tabling (:grid t)
               (list one two plus)
               (list three four dash)
               (list five six multiply)
  