;;; -*- Mode:Lisp; Readtable:CL; Package:(QUOTE WINDOW-MAKER); Base:8; Patch-File:T -*-
;;; Patch file for Window-Maker version 2.2
;;; Reason:
;;;  The :drag operation on lines is a NOOP.  Now it's gone.
;;; Written 21-Jul-88 19:20:20 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 1
;;; with System 125.14, ZWEI 125.2, ZMail 73.0, Local-File 75.0, File-Server 24.0, Unix-Interface 13.0, Tape 24.0, Lambda-Diag 17.0, Experimental Window-Maker 2.1, Experimental Kermit 36.5, Experimental KMC-SYSTEM 2.1, microcode 1761, SDU Boot Tape 3.14, SDU ROM 103, 7/19.


; From modified file DJ: L.WINDOW.WINDOW-MAKER; FLAVOR-DEFINITIONS-AND-METHODS.LISP#34 at 21-Jul-88 19:21:01
#8R WINDOW-MAKER#: #!"ZL"
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "WINDOW-MAKER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; WINDOW-MAKER; FLAVOR-DEFINITIONS-AND-METHODS  "

(setq *item-type-alist* (remove 'line *item-type-alist* :key #'car))

))

; From modified file DJ: L.WINDOW.WINDOW-MAKER; NEW-WINDOW-MAKER.LISP#63 at 21-Jul-88 19:21:44
#8R WINDOW-MAKER#: #!"ZL"
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "WINDOW-MAKER")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; WINDOW-MAKER; NEW-WINDOW-MAKER  "

(defun window-editor ()
  (error-restart-loop
    ((sys:abort error) "aborting computation")
    (loop as blip = (funcall *documentation-pane* :list-tyi)
	  as object = (third blip)
	  do
	  (funcall *instrument-pane* :clear-screen)
	  (selectq (car blip)
	    (:menu
	     (eval (list (get (cadr blip) :funcall))))
	    (:typeout-execute
	     (selectq (second blip)
	       (:kill (funcall object ':kill))
	       (:vertical-split	(funcall object :slice :vertical))
	       (:help (tv:menu-choose help-message '(:string "WINDOWMAKER HELP" :font fonts:metsi :centered)))
	       (:horizontal-split (funcall object :slice :horizontal))
	       (:Insert-new-pane (funcall object :insert-new-pane))
	       ;;Not implemented (:drag ())
	       ))))))

))