anchor.diff:  ;;; -*- 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)
  
positive.code:    (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+
               )
     (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)
             (tabling ()
               (list one two plus)
               (list three four dash)
  
negative.code:     frame))
  
  (defun show (number)
    (setf (gadget-value (slot-value *application-frame* 'text-field))
  	(princ-to-string number)))
  
  (defun queue-number (number)
  