(FILECREATED "10-JUL-83 21:12:59" {INDIGO}<LOOPS>DEMO>PLAYERMENU.;1
 1142   

      changes to:  (FNS PlayerSelectedFn PlayerInterruptMenu))


(PRETTYCOMPRINT PlayerMenuCOMS)

(RPAQQ PlayerMenuCOMS
 ((FNS PlayerSelectedFn PlayerInterruptMenu)))
(DEFINEQ

(PlayerSelectedFn

  [LAMBDA (playerName menu key)                              (* dgb: "10-JUL-83 21:08")

    (PROG ((playerProcess (FIND.PROCESS playerName)))
          (OR playerProcess (RETURN (printout
 PROMPTWINDOW T playerName " has no associated process" 
					      T)))
          (RESETFORM (TTY.PROCESS playerProcess)
		     (SUSPEND.PROCESS (FIND.PROCESS (QUOTE WorldProcess)))
		     (PROCESS.EVAL playerProcess (QUOTE (NLSETQ (RE)))
				   T)
		     (WAKE.PROCESS (FIND.PROCESS (QUOTE WorldProcess])

(PlayerInterruptMenu

  [LAMBDA (playerList POSorX Y)                              (* dgb: "10-JUL-83 20:54")

    (PROG [(w (ADDMENU (create
 MENU
			       ITEMS ← playerList
			       WHENSELECTEDFN ←(QUOTE PlayerSelectedFn]
          (WINDOWPROP w (QUOTE TITLE)
		      "Interrupt Player")
          (MOVEW w POSorX Y])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (251 1120 (PlayerSelectedFn 261 . 784) (PlayerInterruptMenu 786 . 1118)))))
STOP