(FILECREATED " 5-Jun-86 20:21:52" {QV}<NOTECARDS>1.3K>FGHPATCH060.;1
 978    

      changes to:  (VARS FGHPATCH060COMS)
		   (ADVICE \TEDIT.SPLITW))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FGHPATCH060COMS)

(RPAQQ FGHPATCH060COMS
 ((* * Fix to bug %# 25 TEdit split windows and NC. Split windows is sooooo 
			     buggy NC will just not allow it.)
			  (* * FOR NCTEXTCARD)
			  (ADVISE \TEDIT.SPLITW)))
(* * Fix to bug %# 25 TEdit split windows and NC. Split windows is sooooo buggy NC will just 
not allow it.)


(* * FOR NCTEXTCARD)



(PUTPROPS \TEDIT.SPLITW READVICE
 (NIL (BEFORE NIL (if (NC.CardP (WINDOWPROP WINDOW (QUOTE 
										   NoteCardObject)))
							then
							(NC.PrintMsg WINDOW T 
							   "Can't split a TEdit NoteCard.  Sorry"
								     (CHARACTER 13))
							(RETURN NIL)))))
(READVISE \TEDIT.SPLITW)
(PUTPROPS FGHPATCH060 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP