(FILECREATED "12-Dec-86 18:14:16" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH174.;2
 2374   

      changes to:  (VARS RHTPATCH174COMS)

      previous date: "12-Dec-86 17:02:19" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH174.;1)


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

(PRETTYCOMPRINT RHTPATCH174COMS)

(RPAQQ RHTPATCH174COMS
 ((* * Fixes problem with SelectNoteCards on Carolyn's machine. Not 
			     repeatable elsewhere? Now finds promptwindow using the MAINWINDOW 
			     windowprop rather than the MAINWINDOW function.)
			  (* * Change to NCINTERFACE)
			  (FNS NC.SelectionMenusWhenSelectedFn)))
(* * Fixes problem with SelectNoteCards on Carolyn's machine. Not repeatable elsewhere? Now 
finds promptwindow using the MAINWINDOW windowprop rather than the MAINWINDOW function.)


(* * Change to NCINTERFACE)


(DEFINEQ

(NC.SelectionMenusWhenSelectedFn

  (LAMBDA (Item Menu Button)                                 (* clf: "12-Dec-86 16:54")


          (* * rht 2/15/85: Added handler for Undo.)




          (* * fgh 12/20/85 Updated for use with 1.3 selection mechanism.)




          (* * rht & pmi 12/12/86: Now finds promptwindow using the MAINWINDOW windowprop rather than the MAINWINDOW 

	  function.)



    (LET ((PromptWindow (
WINDOWPROP
 (
WFROMMENU
 Menu)
				      (
QUOTE
 MAINWINDOW))))
         (
SELECTQ
 (
CAR
 Item)
		    ((Done)
		      (
WINDOWPROP
 PromptWindow (
QUOTE
 SelectedCards)
				    (
CONS
 (
QUOTE
 DONE)
					    (
WINDOWPROP
 PromptWindow (
QUOTE
 SelectedCards)))))
		    ((Abort Cancel)
		      (
WINDOWPROP
 PromptWindow (
QUOTE
 SelectedCards)
				    (
QUOTE
 CANCELLED)))
		    (New% Card (
WINDOWPROP
 PromptWindow (
QUOTE
 SelectedCards)
					     (
CONS
 (
QUOTE
 *New% Card*)
						     (
WINDOWPROP
 PromptWindow (
QUOTE
 
										    SelectedCards)))))
		    (NoSource (
WINDOWPROP
 PromptWindow (
QUOTE
 SelectedCards)
					    (
LIST
 (
QUOTE
 NC00000))))
		    (Undo (
WINDOWPROP
 PromptWindow (
QUOTE
 SelectedCards)
					(
CONS
 (
QUOTE
 *Undo% Selection*)
						(
WINDOWPROP
 PromptWindow (
QUOTE
 SelectedCards)))))
		    NIL)
         (
NOTIFY.EVENT
 (
WINDOWPROP
 PromptWindow (
QUOTE
 CopyInsertEvent))))))
)
(PUTPROPS RHTPATCH174 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (845 2292 (NC.SelectionMenusWhenSelectedFn 855 . 2290)))))
STOP