;;; -*- Mode:LISP; Package:SIM; Readtable:CL; Base:10 -*-

(defflavor sim-frame
           ()
           (tv:bordered-constraint-frame-with-shared-io-buffer)
           (:default-init-plist :panes
                                '((lisp lam:sensitive-lisp-listener
                                        :save-bits t)
                                  (display tv:window
                                           :save-bits t))
                                :constraints
                                '((sim-frame (display lisp)
                                             ((display 6 :lines))
                                             ((lisp :even)))))
	   )


(defmethod (sim-frame :after :init) (&rest ignore)
  (send self :set-selection-substitute (send self :get-pane 'lisp)))