#+ :aclpc 
(progn 
    (b=laden "klapphierarchie;p-makros")
    (b=laden "klapphierarchie;pop1")
    (b=laden "klapphierarchie;pop2")
    (b=laden "klapphierarchie;pop3")
    (b=laden "klapphierarchie;MAC-AT-E")
    (b=laden "klapphierarchie;klapp-hi")
    (b=laden "klapphierarchie;kla-hie2"))

#+ :ccl-2
(progn
    (def-logical-pathname "egbert" (mac-directory-namestring *loading-file-source-file*))
    (load "egbert;p-makros")
    (load "egbert;pop1")
    (load "egbert;pop2")
    (load "egbert;pop3")
    (load "egbert;MAC-AT-E")
    (load "egbert;klapp-hi")
    )


#|
(defun dopp-obj (view knoten)
     (print knoten)
     (print "objekt-doppel"))
(defun einf-obj (view knoten)
     (print knoten)
     (print "einf-objekt"))
(defun dopp-lin (view linie)
     (print linie)
     (print "linie-doppel"))
(defun einf-lin (view linie)
     (print linie)
     (print "einf-linie"))
(defun dopp-leer (view)
     (print "doppel-leer"))
(defun einf-leer (view)
     (print "einf-leer"))



#+ :aclpc
(setf test-win (m->a=erzeuge-fenster '*b-aufklappbare-hierarchie-window*
                           :window-title "aha"
                           :absolutes-anfangsobjekt (find-class 'number);*gr-graph*)
                           :linien-zeichnen-p nil
                           :vertikaler-objektabstand 3
                           :horizontaler-buttonabstand 7
                           :horizontaler-objektabstand 50
                           :nur-soehne-p 'nil
                           :mehrfach-gleiche-objekte-p 'nil
                           :pop-up-menue-anfang :rechts
                           :selektionstyp-objekte :mixed
                           :selektionstyp-linien :mixed
                           
                           :f-selektionstyp-objekt #'(lambda(was) 
                                                                      (if (class-direct-subclasses was)
                                                                        :single
                                                                        :pop-up))
                           :f-pop-up-menue-objekt #'(lambda(was)
                                                                          (declare (ignore was))
                                                                          (m->a=erzeuge-menu '*b-pop-up-menu*
                                                                                :menu-items (list (m->a=erzeuge-menu-item '*b-menu-item*
                                                                                                                  :menu-item-title "leerer UnterDAG"
                                                                                                                  :menu-item-action #'ed-beep))))
                           
                           :f-selektionstyp-linie #'(lambda(egal)
                                                                   (declare (ignore egal))
                                                                   :pop-up)
                           :f-pop-up-menue-linie #'(lambda(was)
                                                                       (m->a=erzeuge-menu '*b-pop-up-menu*
                                                                             :menu-items (list (m->a=erzeuge-menu-item '*b-menu-item*
                                                                                                               :menu-item-title "print"
                                                                                                               :menu-item-action
                                                                                                               #'(lambda()
                                                                                                                     (print was))))))
                           
                           :f-einfachklick-freiraum 'einf-leer
                           :f-doppelklick-freiraum 'dopp-leer
                           :f-einfachklick-objekt 'einf-obj
                           :f-doppelklick-objekt 'dopp-obj
                           :f-einfachklick-linie 'einf-lin
                           :f-doppelklick-linie 'dopp-lin
                           :tiefe 20) )
#+ :ccl-2
(setf test-win (make-instance 'window
                           :window-title "aha"
                           :view-subviews
                           (list (make-instance '*b-aufklappbare-hierarchie-view*
                                       :absolutes-anfangsobjekt (find-class 't);*gr-graph*)
                                       :linien-zeichnen-p nil
                                       :vertikaler-objektabstand 3
                                       :horizontaler-objektabstand 70
                                       :horizontaler-buttonabstand 7
                                       :selektionstyp-objekte :multiple
                                       :selektionstyp-linien :single
                                       :nur-soehne-p 't
                                       :mehrfach-gleiche-objekte-p 'nil
                                       :f-einfachklick-freiraum 'einf-leer
                                       :f-doppelklick-freiraum 'dopp-leer
                                       :f-einfachklick-objekt 'einf-obj
                                       :f-doppelklick-objekt 'dopp-obj
                                       :f-einfachklick-linie 'einf-lin
                                       :f-doppelklick-linie 'dopp-lin
                                       :tiefe 0)
                             )))

#+ :ccl-2
(setf test-win (make-instance '*b-aufklappbare-hierarchie-window*
                 :window-title "aha"
                 :absolutes-anfangsobjekt (find-class 't);*gr-graph*)
                 :linien-zeichnen-p nil ;t
                 :vertikaler-objektabstand 3
                 :horizontaler-objektabstand 70
                 :horizontaler-buttonabstand 7
                 
                 :pop-up-menue-anfang :rechts
                 :selektionstyp-objekte :mixed
                 :selektionstyp-linien :mixed
                 :f-selektionstyp-objekt #'(lambda(was) 
                                             (if (class-direct-subclasses was)
                                               :single
                                               :pop-up))
                 :f-pop-up-menue-objekt #'(lambda(was)
                                            (declare (ignore was))
                                            (make-instance '*b-pop-up-menu*
                                              :menu-items (list (make-instance '*b-menu-item*
                                                                  :menu-item-title "leerer UnterDAG"
                                                                  :menu-item-action #'ed-beep))))
                 
                 :f-selektionstyp-linie #'(lambda(egal)
                                            (declare (ignore egal))
                                            :pop-up)
                 :f-pop-up-menue-linie #'(lambda(was)
                                           (make-instance '*b-pop-up-menu*
                                             :menu-items (list (make-instance '*b-menu-item*
                                                                 :menu-item-title "print"
                                                                 :menu-item-action
                                                                 #'(lambda()
                                                                     (print was))))))
                 
                 :nur-soehne-p 't
                 :mehrfach-gleiche-objekte-p nil
                 :f-einfachklick-freiraum nil;'einf-leer
                 :f-doppelklick-freiraum nil;'dopp-leer
                 :f-einfachklick-objekt nil;'einf-obj
                 :f-doppelklick-objekt nil;'dopp-obj
                 :f-einfachklick-linie nil;'einf-lin
                 :f-doppelklick-linie nil;'dopp-lin
                 :tiefe 0) )

|#