(FILECREATED "24-Nov-87 15:35:22" {QV}<NOTECARDS>1.3KNEXT>RGPATCH067.;1
 3148   

      changes to:  (VARS RGPATCH067COMS)
		   (FNS NC.MakeCardTypesList))


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

(PRETTYCOMPRINT RGPATCH067COMS)

(RPAQQ RGPATCH067COMS
 ((* * rg 11/24/87 fns filled in with NILL rather than FILLME)
			 (* * changes to NCTYPESMECH)
			 (FNS NC.MakeCardTypesList)))
(* * rg 11/24/87 fns filled in with NILL rather than FILLME)


(* * changes to NCTYPESMECH)


(DEFINEQ

(NC.MakeCardTypesList

  [LAMBDA NIL                                                (* Randy.Gobbel "24-Nov-87 15:32")


          (* * Make initial set of card types.)




          (* * fgh 1/31/86 Updated to handle hash table for card types.)




          (* * fgh 2/17/86 Added typless attached bit map to NoteCards card type.)




          (* * rht 4/7/86: Now sets up default left and middle button menu items.)




          (* * rg 3/27/87 added WITH.MONITOR)




          (* * rg 11/24/87 fn fields now initialized to NILL (instead of FILLME))



    (DECLARE
 (
GLOBALVARS
 NC.TypelessIcon NC.CardTypes NC.DefaultLeftButtonMenuItems 
			     NC.DefaultMiddleButtonMenuItems NC.TypesLock NC.NoteCardTypeMenu))
    (WITH.MONITOR NC.TypesLock (
SETQ
 NC.CardTypes (
OR
 (
HARRAYP
 NC.CardTypes)
							  (
HASHARRAY
 50)))
		  (
PUTHASH
 (
QUOTE
 NoteCard)
			     (create
 NoteCardType
				       TypeName ← (
QUOTE
 NoteCard)
				       SuperType ← NIL
				       StubFlg ← NIL
				       MakeFn ← (
FUNCTION
 NILL)
				       EditFn ← (
FUNCTION
 NILL)
				       QuitFn ← (
FUNCTION
 NILL)
				       MakeReadOnlyFn ← (
FUNCTION
 NILL)
				       MakeReadWriteFn ← (
FUNCTION
 NILL)
				       GetFn ← (
FUNCTION
 NILL)
				       PutFn ← (
FUNCTION
 NILL)
				       CopyFn ← (
FUNCTION
 [LAMBDA (Card ToStream FromStream Length)
                                                             (* Copy a card's substance using copybytes.)

					   (LET* ((FromStartPtr (
GETFILEPTR
 FromStream))
						  (FromEndPtr (
PLUS
 Length FromStartPtr)))
					         (
COPYBYTES
 FromStream ToStream FromStartPtr 
							      FromEndPtr)
					     T])
				       MarkDirtyFn ← (
FUNCTION
 NILL)
				       DirtyPFn ← (
FUNCTION
 NILL)
				       CollectLinksFn ← (
FUNCTION
 NILL)
				       DeleteLinksFn ← (
FUNCTION
 NILL)
				       UpdateLinkIconsFn ← (
FUNCTION
 NILL)
				       InsertLinkFn ← (
FUNCTION
 NILL)
				       TranslateWindowPositionFn ← (
FUNCTION
 NILL)
				       LinkDisplayMode ← (create
 LINKDISPLAYMODE
								   ATTACHBITMAPFLG ← T)
				       DefaultWidth ← 100
				       DefaultHeight ← 100
				       LinkAnchorModesSupported ← NIL
				       DisplayedInMenuFlg ← NIL
				       LinkIconAttachedBitMap ← NC.TypelessIcon
				       LeftButtonMenuItems ← NC.DefaultLeftButtonMenuItems
				       MiddleButtonMenuItems ← NC.DefaultMiddleButtonMenuItems)
			     NC.CardTypes)
		  (
SETQ
 NC.NoteCardTypeMenu])
)
(PUTPROPS RGPATCH067 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (519 3067 (NC.MakeCardTypesList 529 . 3065)))))
STOP