anchor.diff: -;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; -*-
  +;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-DEMO; -*-
   ;;; --------------------------------------------------------------------------------------
   ;;;     Title: The demo demo
   ;;;   Created: 2002-02-11
  
positive.code:          (labelling (:label "Matching symbols"
                              :text-style (make-text-style :sans-serif :roman :normal))
             (scrolling (:height 200)
               (make-pane 'generic-list-pane
                          :value 'clim:region-intersection
                          :items (apropos-list "INTER" :clim t)
                          :name-key (lambda (x) (format nil "~(~S~)" x))
  
negative.code:              (let ((frame nil))
                 (lambda (&rest ignore)
                   (declare (ignore ignore))
                   (cond ((null frame)    ;; I broke this logic, sorry.. -Hefner
                          (setq frame
                            (run-frame-top-level (make-application-frame demo-frame-class))))
                         (t
                          #+nil
                          (destroy-frame frame)))))))
  