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: (defun demodemo ()
    (loop for port in climi::*all-ports*
        do (destroy-port port))
    (make-application-frame 'demodemo))
  
  (define-application-frame hbox-test 
      () ()
  
negative.code:          (labelling (:label "Matching symbols"
                              :text-style (make-text-style :sans-serif :roman :normal))
             (scrolling (:height 200)
               (make-pane 'list-pane
                          :value 'clim:region-intersection
                          :items (apropos-list "INTER" :clim t)
                          :name-key (lambda (x) (format nil "~(~S~)" x))
  