(FILECREATED " 5-Jul-86 17:25:13" {QV}<NOTECARDS>1.3K>RHTPATCH057.;1
 2634   

      changes to:  (VARS RHTPATCH057COMS)
		   (FNS NC.WriteRegion NC.SetSavedRegion))


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

(PRETTYCOMPRINT RHTPATCH057COMS)

(RPAQQ RHTPATCH057COMS
 ((* * Fixes problem with closing very tall cards and bringingup at previous 
			     position.)
			  (* * Changes to NCDATABASE and NCCARDS)
			  (FNS NC.WriteRegion NC.SetSavedRegion)))
(* * Fixes problem with closing very tall cards and bringingup at previous position.)


(* * Changes to NCDATABASE and NCCARDS)


(DEFINEQ

(NC.WriteRegion

  (LAMBDA (Card Stream)                                      (* rht: " 5-Jul-86 17:21")


          (* * rht 10/3/85: Now checks first for a saved region (probably there because card got moved off screen).)




          (* * fkr 11/8/85: Changed to handle CardIDs and NoteFile objects.)




          (* * rht 1/23/86: Now takes optional stream arg. This, if given, overrides stream of card's notefile.)




          (* * rht 7/5/86: Now makes sure region fits on screen.)



    (
OR
 (
STREAMP
 Stream)
	  (
SETQ
 Stream (
NC.CoerceToNoteFileStream
 Card)))
    (LET (Window Region)
         (
SETQ
 Window (
NC.FetchWindow
 Card))
         (
SETQ
 Region (
MAKEWITHINREGION
 (create
 REGION
					       copying
 (
OR
 (
NC.FetchSavedRegion
 Card)
							       (
AND
 Window (
WINDOWPROP

									Window
									(
QUOTE
 REGION)))
							       (
NC.FetchRegion
 Card)
							       (
NC.MakeDummyRegion
 Card)))))
         (
AND
 (
NC.ActiveCardP
 Card)
		(
NC.SetRegion
 Card Region))
         (NC.WritePtr Stream (fetch
 LEFT of
 Region)
		      2)
         (NC.WritePtr Stream (fetch
 BOTTOM of
 Region)
		      2)
         (NC.WritePtr Stream (fetch
 WIDTH of
 Region)
		      2)
         (NC.WritePtr Stream (fetch
 HEIGHT of
 Region)
		      2))))

(NC.SetSavedRegion

  (LAMBDA (Card Region)                                      (* rht: " 5-Jul-86 17:21")


          (* * Cache the saved region of card ID)




          (* * rht 11/10/85: Updated to handle CardID scheme and new version of NC.FetchCardCache.)




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




          (* * rht 7/5/86: Now makes sure region is on screen.)



    (replace
 (Card SavedRegion) of
 Card with
 (
MAKEWITHINREGION
 (create
 REGION copying

											 Region)))))
)
(PUTPROPS RHTPATCH057 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (626 2552 (NC.WriteRegion 636 . 1998) (NC.SetSavedRegion 2000 . 2550)))))
STOP