(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")
(FILECREATED " 9-Feb-88 14:52:47" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH085.;1 7829
changes to%: (FNS NC.MakeTEditCard)
(VARS PMIPATCH085COMS))
(* "
Copyright (c) 1988 by Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT PMIPATCH085COMS)
(RPAQQ PMIPATCH085COMS (
(* ;; "pmi 2/9/88: This file adds a few changes that were accidentally skipped when adding DJ's changes and suggestions. ")
(DECLARE%: DONTCOPY (PROPS (PMIPATCH085 MAKEFILE-ENVIRONMENT)
(PMIPATCH085 FILETYPE)))
(* ;; "Changed in NCTEXTCARD")
(FNS NC.MakeTEditCard)
(* ;; "Changed in NCCARDS")
(FNS NC.FetchLinkIconAttachedBitMap)))
(* ;;
"pmi 2/9/88: This file adds a few changes that were accidentally skipped when adding DJ's changes and suggestions. "
)
(DECLARE%: DONTCOPY
(PUTPROPS PMIPATCH085 MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))
(PUTPROPS PMIPATCH085 FILETYPE :BCOMPL)
)
(* ;; "Changed in NCTEXTCARD")
(DEFINEQ
(NC.MakeTEditCard
[LAMBDA (Card Title NoDisplayFlg ParamList) (* ; "Edited 9-Feb-88 14:42 by pmi")
(* ;
"Make up a blank text card and display it.")
(* ;; "rht 9/10/85: Fixed call to NC.MakeTEditPropsList so prompt window gets fixed up before card is brought up.")
(* ;; "fgh 11/13/85 Updated to handle Card object.")
(* ;; "rht 4/11/86: Now passes type to NC.MakeTEditMiddleMenu.")
(* ;;
"rht 5/6/86: Now calls NC.InstallTitleBarLeftMenu and NC.InstallTextTitleBarMiddleMenu.")
(* ;;
"rht 9/8/86: No longer hangs Card off NoteCardObject windowprop. THis is done in NC.MakeNoteCard.")
(* ;; "rht 9/19/86: Mod to above fix. Now calls NC.MakeNewCardWindow a new fn that creates window and hangs Card off windowprop. Also takes ParamList arg.")
(* ;; "rht&pmi 11/19/86: Now passes NoteFile arg to NC.MakeTEditPropsList.")
(* ;; "rht 4/17/87: Now makes a prompt window before opening the window.")
(* ;;
"dsj 9/22/87: Added call to NC.SetTitle so title passing from calling fns works properly.")
(* ;; "pmi 12/10/87: Added dsj's changes; see above comments.")
(* ;; "pmi 2/9/88: Missed a call to NC.SetTitle - it's in there now.")
(LET (TextStream Window Type)
(COND
(NoDisplayFlg [SETQ TextStream (OPENTEXTSTREAM "" NIL NIL NIL (NC.MakeTEditPropsList
NIL
(LISTGET ParamList
'
Don'tAttachUserSpecifiedPropsFlg
]
(NC.SetSubstance Card TextStream)
(NC.SetTitle Card Title)
(STREAMPROP TextStream 'NoteCardObject Card)
Card)
(T (SETQ Window (NC.MakeNewCardWindow Card (OR Title "Untitled")
NIL T))
(* ;; "Make a prompt window 'invisibly' so it gets hooked in.")
(NC.AttachPromptWindowOffScreen Window)
(NC.SetTitle Card Title)
(SETQ Type (NC.RetrieveType Card))
(NC.InstallTitleBarLeftMenu Window Type)
(NC.InstallTextTitleBarMiddleMenu Window Type)
(WINDOWADDPROP Window 'SHRINKFN (FUNCTION NC.TextCardShrinkFn))
(TEDIT NIL Window NIL (NC.MakeTEditPropsList Window (NC.FileBoxP Card T)
(fetch (Card NoteFile) of Card)))
(until (WINDOWPROP Window 'TEXTSTREAM) do (BLOCK))
(SETQ TextStream (WINDOWPROP Window 'TEXTSTREAM))
(NC.SetSubstance Card TextStream)
(STREAMPROP TextStream 'NoteCardObject Card)
Window])
)
(* ;; "Changed in NCCARDS")
(DEFINEQ
(NC.FetchLinkIconAttachedBitMap
[LAMBDA (Card ScaledHeightToMatch Scale) (* ; "Edited 9-Feb-88 14:36 by pmi")
(* ;; "Return the default link icon attached bit map corresponding to Card")
(* ;; "fgh 2/5/86 First created.")
(* ;; "rht 5/10/86: Now takes special action if BitMapVal is a list. In that case, it should be an ordered prop list of heights and bitmaps. We take the one closest in height to HeightToMatch.")
(* ;; "rht 8/7/86: Now converts single bitmap to list of bitmaps of different heights if necessary. Also now takes Scale argument.")
(* ;;
"pmi 11/3/87: Now uses a default bitmap (?) if Card is NIL or its card type is undefined.")
(* ;; "pmi 2/9/88: Somehow lost the check for defined card type mentioned in previous comment. It's there now.")
(DECLARE (GLOBALVARS NC.DefaultLinkIconAttachedBitMapHeights NC.UnknownLinkIconAttachedBitMaps))
(LET (BitMapVal)
(if (AND Card (NCP.ValidCardType (NCP.CardType Card))
(SETQ BitMapVal (fetch (Card LinkIconAttachedBitMap) of Card)))
then [if (BITMAPP BitMapVal)
then (replace (NoteCardType LinkIconAttachedBitMap) of (NC.CardTypeRecord
(NC.FetchType Card))
with (SETQ BitMapVal (NC.MakeTypeIconBitMapSet BitMapVal
NC.DefaultLinkIconAttachedBitMapHeights]
elseif (BITMAPP NC.UnknownLinkIconAttachedBitMaps)
then (SETQ NC.UnknownLinkIconAttachedBitMaps (SETQ BitMapVal (NC.MakeTypeIconBitMapSet
NC.UnknownLinkIconAttachedBitMaps
NC.DefaultLinkIconAttachedBitMapHeights
)))
else (SETQ BitMapVal NC.UnknownLinkIconAttachedBitMaps))
(if (LISTP BitMapVal)
then (OR ScaledHeightToMatch (SETQ ScaledHeightToMatch 0))
(OR Scale (SETQ Scale 1))
(LET (BitMap)
[for X on BitMapVal by (CDDR X)
do (LET [(ScaledHeight (TIMES Scale (CAR X]
(if (OR (NULL BitMap)
(LEQ ScaledHeight ScaledHeightToMatch))
then (SETQ BitMap (CADR X))
elseif (GREATERP ScaledHeight ScaledHeightToMatch)
then (RETURN]
BitMap])
)
(PUTPROPS PMIPATCH085 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1296 4682 (NC.MakeTEditCard 1306 . 4680)) (4719 7746 (NC.FetchLinkIconAttachedBitMap
4729 . 7744)))))
STOP