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

(DEFFLAVOR MY-FLAVOR NIL
 (TV:BORDERED-CONSTRAINT-FRAME)
 (:DEFAULT-INIT-PLIST
  :PANES
  '((DEBUG-PANE TV:LISP-LISTENER
                :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)
    (WIMP-TERMINAL TV:LISP-LISTENER
                   :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
               :LABEL  NIL
               :SAVE-BITS  T
               :ITEM-LIST
               ("you" "have" "to" "change" "me"))
    (MEMORY-PANE FRAME-PANE-FLAVOR
                 :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)
    (FRAME-PANE FRAME-PANE-FLAVOR
                :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)
    (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 CALL-STACK-FLAVOR
                     :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
  (QUOTE
   ((SPIFI-CONFIG
     (MENU-PANE DUMMY-NAME28 WIMP-TERMINAL DEBUG-PANE)
     ((MENU-PANE 2 :LINES)
      (DUMMY-NAME28
       :HORIZONTAL
       (0.386528s0)
       (FRAME-PANE DUMMY-NAME32 MEMORY-PANE)
       ((FRAME-PANE 44 :CHARACTERS) (DUMMY-NAME32 :VERTICAL
                                                  (0.314228s0)
                                                  (CALL-STACK-PANE LISP-OBJECT-PANE)
                                                  ((CALL-STACK-PANE 12 :LINES))
                                                  ((LISP-OBJECT-PANE :EVEN))))
       ((MEMORY-PANE :EVEN)))
      (WIMP-TERMINAL 5 :LINES))
     ((DEBUG-PANE :EVEN))))))
 :GETTABLE-INSTANCE-VARIABLES
 :SETTABLE-INSTANCE-VARIABLES
 :INITTABLE-INSTANCE-VARIABLES)


(DEFMETHOD (WM::MY-FLAVOR :AFTER :INIT) (&REST IGNORE)
  (FUNCALL-SELF :SET-SELECTION-SUBSTITUTE (FUNCALL-SELF :GET-PANE 'DEBUG-PANE)))