;;; This is a flavor definition generated by the window maker.

(DEFFLAVOR
 FALCON-DEBUGGER-PANE
 NIL
 (TV:BORDERED-CONSTRAINT-FRAME)
 (:DEFAULT-INIT-PLIST
  :PANES
  '((DEBUG-PANE TV:WINDOW
                :BLINKER-DESELECTED-VISIBILITY
                :ON
                :BLINKER-FLAVOR
                TV:RECTANGULAR-BLINKER
                :BLINKER-P
                T
                :DEEXPOSED-TYPEIN-ACTION
                :NORMAL
                :DEEXPOSED-TYPEOUT-ACTION
                :NORMAL
                :LABEL
                NIL
                :SAVE-BITS
                T)
    (MENU-PANE TV:COMMAND-MENU
               :BLINKER-DESELECTED-VISIBILITY
               :ON
               :BLINKER-FLAVOR
               TV:RECTANGULAR-BLINKER
               :BLINKER-P
               T
               :DEEXPOSED-TYPEIN-ACTION
               :NORMAL
               :DEEXPOSED-TYPEOUT-ACTION
               :NORMAL
               :LABEL
               NIL
               :SAVE-BITS
               T
               :ITEM-LIST
               ("you" "have" "to" "change" "me"))
    (FRAME-PANE TV:WINDOW
                :BLINKER-DESELECTED-VISIBILITY
                :ON
                :BLINKER-FLAVOR
                TV:RECTANGULAR-BLINKER
                :BLINKER-P
                T
                :DEEXPOSED-TYPEIN-ACTION
                :NORMAL
                :DEEXPOSED-TYPEOUT-ACTION
                :NORMAL
                :LABEL
                NIL
                :SAVE-BITS
                T)
    (REP-PANE TV:WINDOW
              :BLINKER-DESELECTED-VISIBILITY
              :ON
              :BLINKER-FLAVOR
              TV:RECTANGULAR-BLINKER
              :BLINKER-P
              T
              :DEEXPOSED-TYPEIN-ACTION
              :NORMAL
              :DEEXPOSED-TYPEOUT-ACTION
              :NORMAL
              :LABEL
              NIL
              :SAVE-BITS
              T)
    (MEMORY-PANE TV:COMMAND-MENU
                 :BLINKER-DESELECTED-VISIBILITY
                 :ON
                 :BLINKER-FLAVOR
                 TV:RECTANGULAR-BLINKER
                 :BLINKER-P
                 T
                 :DEEXPOSED-TYPEIN-ACTION
                 :NORMAL
                 :DEEXPOSED-TYPEOUT-ACTION
                 :NORMAL
                 :LABEL
                 NIL
                 :SAVE-BITS
                 T
                 :ITEM-LIST
                 ("you" "have" "to" "change" "me"))
    (LISP-OBJECT-PANE TV:WINDOW
                      :BLINKER-DESELECTED-VISIBILITY
                      :ON
                      :BLINKER-FLAVOR
                      TV:RECTANGULAR-BLINKER
                      :BLINKER-P
                      T
                      :DEEXPOSED-TYPEIN-ACTION
                      :NORMAL
                      :DEEXPOSED-TYPEOUT-ACTION
                      :NORMAL
                      :LABEL
                      NIL
                      :SAVE-BITS
                      T)
    (CALL-STACK-PANE TV:WINDOW
                     :BLINKER-DESELECTED-VISIBILITY
                     :ON
                     :BLINKER-FLAVOR
                     TV:RECTANGULAR-BLINKER
                     :BLINKER-P
                     T
                     :DEEXPOSED-TYPEIN-ACTION
                     :NORMAL
                     :DEEXPOSED-TYPEOUT-ACTION
                     :NORMAL
                     :LABEL
                     NIL
                     :SAVE-BITS
                     T))
  :CONSTRAINTS
  '((CONFIG (MENU-PANE DUMMY-NAME7 DUMMY-NAME12 DEBUG-PANE)
            ((MENU-PANE 2 :LINES) (DUMMY-NAME7 :HORIZONTAL
                                               (0.407024s0)
                                               (FRAME-PANE DUMMY-NAME11)
                                               ((FRAME-PANE 44 :CHARACTERS))
                                               ((DUMMY-NAME11 :VERTICAL
                                                              (:EVEN)
                                                              (MEMORY-PANE REP-PANE)
                                                              ((MEMORY-PANE 0.7518s0))
                                                              ((REP-PANE :EVEN)))
                                                ))
                                  (DUMMY-NAME12 :HORIZONTAL
                                                (0.203512s0)
                                                (CALL-STACK-PANE LISP-OBJECT-PANE)
                                                ((CALL-STACK-PANE 75 :CHARACTERS))
                                                ((LISP-OBJECT-PANE :EVEN))))
            ((DEBUG-PANE :EVEN)))))
 :GETTABLE-INSTANCE-VARIABLES
 :SETTABLE-INSTANCE-VARIABLES
 :INITTABLE-INSTANCE-VARIABLES)


(DEFMETHOD (FALCON-DEBUGGER-PANE :AFTER :INIT) (&REST IGNORE)
  (FUNCALL-SELF :SET-SELECTION-SUBSTITUTE (FUNCALL-SELF :GET-PANE 'DEBUG-PANE)))