(FILECREATED " 2-Apr-87 19:42:10" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH024.;2
 2833   

      changes to:  (FNS NC.PrintOperationInProgressMsg)
		   (VARS RGPATCH024COMS)

      previous date: " 2-Apr-87 19:30:57" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH024.;1)


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

(PRETTYCOMPRINT RGPATCH024COMS)

(RPAQQ RGPATCH024COMS
 ((* * rg 4/2/87 rewritten to not use promptwindow stuff)
			 (* * changes to NCDATABASE)
			 (FNS NC.PrintOperationInProgressMsg)))
(* * rg 4/2/87 rewritten to not use promptwindow stuff)


(* * changes to NCDATABASE)


(DEFINEQ

(NC.PrintOperationInProgressMsg

  [LAMBDA (Window Operation OperationInProgress)             (* Randy.Gobbel " 2-Apr-87 19:39")


          (* * Notify the user that they are attempting to do an operation while another operation is in progress.

	  Use a prompt window above the card's promptwindow because the card's prompt window is probably being used for the 

	  operation.)




          (* * fgh 6/9/86 First created.)




          (* * RG 3/10/87 removed redundant (?) call to NC.AttachPromptWindow)




          (* * rg 4/2/87 rewritten to not use prompt window stuff)



    (LET* [(MainWindowRegion (
WINDOWPROP
 Window (
QUOTE
 REGION)))
	   (PWinWidth (
MAX
 (
WIDTHIFWINDOW
 (fetch
 (REGION WIDTH) of
 MainWindowRegion))
			     300))
	   (PWindow (
OR
 (for
 WCandidate in
 (
ALLATTACHEDWINDOWS
 Window)
			     thereis
 (
AND
 (
WINDOWPROP
 WCandidate (
QUOTE
 NC.OpInProgressWindow)
							    )
					      (
OPENWP
 WCandidate)))
			  (
CREATEW
 [create
 REGION
					       LEFT ← 0
					       BOTTOM ← 0
					       WIDTH ← PWinWidth
					       HEIGHT ← (
SETQ
 HEIGHT
						 (
HEIGHTIFWINDOW
 (
TIMES
 2
									    (
FONTPROP
 (
DSPFONT

											  NIL Window)
											(
QUOTE

											  HEIGHT]
				     NIL NIL T]
          (
WINDOWPROP
 PWindow (
QUOTE
 NC.OpInProgressWindow)
			T)
          [
ATTACHWINDOW
 PWindow Window (
QUOTE
 TOP)
			  (
COND

			    ((
LEQ
 (
PLUS
 (fetch
 (REGION LEFT) of
 MainWindowRegion)
					    PWinWidth)
				    SCREENWIDTH)
			      (
QUOTE
 LEFT))
			    ((
LEQ
 (
PLUS
 (fetch
 (REGION LEFT) of
 MainWindowRegion)
					    (
LRSH
 (
PLUS
 PWinWidth (fetch
 (REGION WIDTH)
									 of
 MainWindowRegion))
						    1))
				    SCREENWIDTH)
			      (
QUOTE
 CENTER))
			    (T (
QUOTE
 RIGHT]
          (
NC.PrintMsg
 PWindow T "## Can't " Operation (
CHARACTER
 13)
			 "## " OperationInProgress " in progress.")
          (
REPOSITIONATTACHEDWINDOWS
 Window)
          (
DISMISS
 2000)
          (
REMOVEWINDOW
 PWindow])
)
(PUTPROPS RGPATCH024 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (610 2752 (NC.PrintOperationInProgressMsg 620 . 2750)))))
STOP