(FILECREATED "16-Oct-86 17:01:32" {QV}<NOTECARDS>1.3K>LIBRARY>RHTPATCH122.;1
 2946   

      changes to:  (VARS RHTPATCH122COMS)
		   (FNS NC.SketchCardCloseFn))


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

(PRETTYCOMPRINT RHTPATCH122COMS)

(RPAQQ RHTPATCH122COMS
 ((* * Fix to bug #245: QuitFns shouldn't call NC.DeactivateCard.)
			  (* * Change to NCSKETCHCARD)
			  (FNS NC.SketchCardCloseFn)
			  (* * Change to NCGRAPHCARD)
			  (FNS NC.GraphCardCloseFn)))
(* * Fix to bug #245: QuitFns shouldn't call NC.DeactivateCard.)


(* * Change to NCSKETCHCARD)


(DEFINEQ

(NC.SketchCardCloseFn

  (LAMBDA (CardIdentifier)                                   (* rht: "16-Oct-86 17:01")

                                                             (* Quit from a sketch card, saving information on the 

							     database)


          (* * rht 12/20/84: Added ugly kludge, setting SKETCHCHANGED to nil, to keep sketch from asking whether to save 

	  changes or not.)




          (* * rht 2/1/85: Removed above mentioned ugly kludge. It's now taken care of by a windowprop.

	  Now closes all sketch viewers for this sketch.)




          (* * fgh 11/14/85 Updated to handle Card object.)




          (* * rht 10/16/86: Removed call to NC.DeactivateCard.)



    (LET (Card Window OldRegion NewRegion)
         (
SETQ
 Card (
NC.CoerceToCard
 CardIdentifier))
         (
SETQ
 Window (
NC.FetchWindow
 Card))
         (
COND

	   (Window (for
 Viewer in
 (
ALL.SKETCH.VIEWERS
 (
NC.FetchSubstance
 Card))
		      do
 (
SKETCHW.CLOSEFN
 Viewer))
		   (
SKED.CLEAR.SELECTION
 Window)
		   (for
 AttachedWindow in
 (
ATTACHEDWINDOWS
 Window)
		      do
 (
DETACHWINDOW
 AttachedWindow)
			   (
CLOSEW
 AttachedWindow))))
         (
COND

	   (Window (
REMOVEPROMPTWINDOW
 Window)
		   (
WINDOWPROP
 Window (
QUOTE
 SKETCHOPMENU)
				 NIL)))
         (
TTY.PROCESS
 T))))
)
(* * Change to NCGRAPHCARD)


(DEFINEQ

(NC.GraphCardCloseFn

  (LAMBDA (CardIdentifier)                                   (* rht: "16-Oct-86 16:56")

                                                             (* Called when a grapher-based note card is being 

							     closed. Writes graph to database and does other clean 

							     up functions)


          (* * fgh 11/14/85 Updated to handle Card object.)




          (* * rht 10/16/86: Removed call to NC.DeactivateCard.)



    (LET (Window (Card (
NC.CoerceToCard
 CardIdentifier)))
         (
SETQ
 Window (
NC.FetchWindow
 Card))
         (
AND
 Window (for
 AttachedWindow in
 (
ALLATTACHEDWINDOWS
 Window)
			  do
 (
DETACHWINDOW
 AttachedWindow)
			       (
CLOSEW
 AttachedWindow)))
         (
AND
 Window (
REMOVEPROMPTWINDOW
 Window)))))
)
(PUTPROPS RHTPATCH122 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (601 1995 (NC.SketchCardCloseFn 611 . 1993)) (2030 2864 (NC.GraphCardCloseFn 2040 . 2862
)))))
STOP