(FILECREATED "23-Apr-87 15:41:01" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH034.;1
 1712   

      changes to:  (VARS RGPATCH034COMS)
		   (FNS NC.TEditMenuFn))


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

(PRETTYCOMPRINT RGPATCH034COMS)

(RPAQQ RGPATCH034COMS
 ((* * RG 4/23/87 TEdit fns now locked out while CardOps in progress, vice 
			    versa)
			 (* * changes to NCTEXTCARD)
			 (FNS NC.TEditMenuFn)))
(* * RG 4/23/87 TEdit fns now locked out while CardOps in progress, vice versa)


(* * changes to NCTEXTCARD)


(DEFINEQ

(NC.TEditMenuFn

  [LAMBDA (Window)                                           (* Randy.Gobbel "23-Apr-87 15:32")


          (* * Gets called from LEFT or MIDDLE button press in title bar of TEdit window. If LEFT press bring up the 

	  Notecards Manipulation Window. IF MIDDLE press bring up the TEdit specific NoteCard operations menu.

	  Bring up menus using TEDIT.DEFAULT.MENUFN)




          (* * rht 4/11/86: No only calls TEDIT.DEFAULT.MENUFN for middle button press. On left button press, works like 

	  graph and sketch cards.)




          (* * rg 4/23/87 added contention lock)



    (if
 (LASTMOUSESTATE LEFT)
	then
 (
APPLY*
 (
OR
 (
MENU
 (
WINDOWPROP
 Window (
QUOTE
 TitleBarLeftButtonMenu)))
			       (
FUNCTION
 NILL))
			 Window)
      else
 (
WINDOWPROP
 Window (
QUOTE
 TEDIT.MENU)
			   (
WINDOWPROP
 Window (
QUOTE
 TitleBarMiddleButtonMenu)))
	     (NC.ProtectedCardOperation (
NC.CoerceToCard
 Window)
					"Perform TEdit Operation" Window (
TEDIT.DEFAULT.MENUFN

					  Window])
)
(PUTPROPS RGPATCH034 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (552 1631 (NC.TEditMenuFn 562 . 1629)))))
STOP