anchor.diff:     (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"
  -             ;:background +black+
  -             ;:foreground +white+
  -             )
  +   (screen   :text-field :value "0")
      (ac       (make-button "AC" #'initac :max-width 150))
      (ce       (make-button "CE" #'initce :max-width 150)))
   
     (:layouts
  -   #+NIL
  -   (defaults 
  -       (spacing (:thickness 10)
  -         (vertically (:width '(16 :character) :equalize-width t);; (:width 150 :height 310)
  -           screen
  -           (horizontally (#|:height 50|#) ac ce)
  -           (horizontally (:equalize-height t :background +green+)
  -             (tabling (:background +red+)
  -               (list one two three)
  -               (list four five six )
  -               (list seven eight nine)))
  -           (vertically (:background +blue+)
  -             plus dash multiply divide result))
  -         (horizontally ()
  -           (1/2 zero))))
  -             
  -
  -   (defaults 
  -       (progn 
  -         (vertically (:width 140 :equalize-width t);; (:width 150 :height 310)
  -           (labelling (:label "screen")
  -             screen)
  -           (horizontally (#|:height 50|# :name "ACCE" :equalize-height t) ac ce)
  +   (default
  +       (with-slots (text-field) *application-frame*
  +         (vertically (:width 150)
  +           (setf text-field screen)
  +           (horizontally (:height 50) ac ce)
              (tabling ()
                (list one two plus)
                (list three four dash)
  
positive.code: ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-DEMO; Base: 10; Lowercase: Yes -*-
  
  ;; $fiHeader: calcuator.lisp,v 1.0 22/08/200 $
  
  ;;;  (c) copyright 2000 by 
  ;;;           Iban Hatchondo (hatchond@emi.u-bordeaux.fr)
  
negative.code:     frame))
  
  (defun show (number)
    (setf (gadget-value (slot-value *application-frame* 'text-field))
  	(princ-to-string number)))
  
  (defun queue-number (number)
  