(FILECREATED " 5-Jun-86 19:57:05" {QV}<NOTECARDS>1.3K>FGHPATCH059.;1
 1093   

      changes to:  (VARS FGHPATCH059COMS)
		   (FNS NC.MakeDummyRegion)

      previous date: " 5-Jun-86 19:55:17" {QV}<HALASZ>FGHPATCH059.;1)


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

(PRETTYCOMPRINT FGHPATCH059COMS)

(RPAQQ FGHPATCH059COMS
 ((* * Fixes bug %#3 -- room for scrolls bars when NULL region)
			  (FNS NC.MakeDummyRegion)))
(* * Fixes bug %#3 -- room for scrolls bars when NULL region)


(DEFINEQ

(NC.MakeDummyRegion

  (LAMBDA (Card)                                             (* fgh: " 5-Jun-86 19:54")


          (* * Returns a region based at (0 0) with default width and height according to Type.)




          (* * fgh 2/5/86 Changed names DefaultcardWidth to FeatchDefaultWidth ...)




          (* * fgh 6/5/86 Now leaves room for scroll bars.)



    (
CREATEREGION
 20 20 (
NC.FetchDefaultWidth
 Card)
		    (
NC.FetchDefaultHeight
 Card))))
)
(PUTPROPS FGHPATCH059 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (520 1011 (NC.MakeDummyRegion 530 . 1009)))))
STOP