(FILECREATED "17-Nov-86 00:02:23" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH156.;1 7759
changes to: (VARS RHTPATCH156COMS))
(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT RHTPATCH156COMS)
(RPAQQ RHTPATCH156COMS ((* * Fixes bug #212. If EditFn is passed a non-nil RegionOrPosition arg,
then card is moved to that position even if currently displayed.)
(FILES (FROM {QV}<NOTECARDS>1.3K>NEXT>)
NCGRAPHCARD NCSKETCHCARD)
(* * Change to NCTEXTCARD)
(FNS NC.BringUpTEditCard)
(* * Change to NCGRAPHCARD)
(FNS NC.BringUpGraphCard)
(* * Change to NCSKETCHCARD)
(FNS NC.BringUpSketchCard)))
(* * Fixes bug #212. If EditFn is passed a non-nil RegionOrPosition arg, then card is moved to
that position even if currently displayed.)
(FILESLOAD (FROM {QV}<NOTECARDS>1.3K>NEXT>)
NCGRAPHCARD NCSKETCHCARD)
(* * Change to NCTEXTCARD)
(DEFINEQ
(NC.BringUpTEditCard
(LAMBDA (Card TextStream RegionOrPosition) (* rht: "16-Nov-86 23:56")
(* Bring up a TEdit window for Card ID whose text
stream is TextStream in Region specified by
RegionOrPosition or by the user.)
(* * 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 objects.)
(* * kirk 2Dec85 Removed illegal RETURN)
(* * rht 4/11/86: Added Type arg to call to NC.MakeTEditMiddleMenu and changed names of menu windowprops.)
(* * rht 5/5/86: Now calls NC.InstallTitleBarLeftMenu and NC.InstallTextTitleBarMiddleMenu.)
(* * rht 8/2/86: Now doesn't throw in any extra tedit props if card is a filebox.)
(* * rht 11/16/86: Now moves window to RegionOrPosition if already up.)
(LET (Region TEditWindow TEditProcess Title TextStreamDirtyFlg Type)
(if (AND (SETQ TEditWindow (WINDOW.FROM.TEDIT.THING TextStream))
(SETQ TEditProcess (WINDOWPROP TEditWindow (QUOTE PROCESS))))
then (TOTOPW TEditWindow)
(if RegionOrPosition
then (SHAPEW TEditWindow (NC.DetermineDisplayRegion Card
RegionOrPosition)))
(RPTQ 2 (FLASHW TEditWindow))
(TTY.PROCESS TEditProcess)
TEditWindow
else (SETQ Region (NC.DetermineDisplayRegion Card RegionOrPosition))
(SETQ Title (NC.RetrieveTitle Card))
(SETQ Type (NC.RetrieveType Card))
(SETQ TEditWindow (CREATEW Region Title NIL T))
(WINDOWADDPROP TEditWindow (QUOTE SHRINKFN)
(FUNCTION NC.TextCardShrinkFn))
(NC.InstallTitleBarLeftMenu TEditWindow Type)
(NC.InstallTextTitleBarMiddleMenu TEditWindow Type)
(SETQ TextStreamDirtyFlg (NC.CardDirtyP Card))
(TEDIT TextStream TEditWindow NIL (NC.MakeTEditPropsList TEditWindow
(NC.FileBoxP Card T))
)
(AND TextStreamDirtyFlg (NC.MarkCardDirty Card)))
TEditWindow)))
)
(* * Change to NCGRAPHCARD)
(DEFINEQ
(NC.BringUpGraphCard
(LAMBDA (Card Substance RegionOrPosition) (* rht: "16-Nov-86 23:55")
(* * Given a graph (or browser) Substance, open a grapher (browser) window and set it up to be a NoteCard with ID.)
(* * fgh 11/14/85 Updated to handle Card object.)
(* * rht 5/5/86: Now calls NC.InstallTitleBarButtonEventFn, NC.InstallTitleBarLeftMenu, and
NC.InstallGraphTitleBarMiddleMenu instead of NC.SetupTitleBarMenu.)
(* * fgh 6/30/86 Added NC.GRAPHERCOPYBUTTONEVENTFN to SHOWGRAPH call)
(* * rht 11/16/86: Now moves window to RegionOrPosition if already up.)
(LET (Region Title GraphWindow IconWindow CardType)
(COND
((SETQ GraphWindow (NC.FetchWindow Card))
(AND (WINDOWP (WINDOWPROP GraphWindow (QUOTE ICONFOR)))
(SETQ GraphWindow (EXPANDW GraphWindow)))
(TOTOPW GraphWindow)
(if RegionOrPosition
then (SHAPEW GraphWindow (NC.DetermineDisplayRegion Card RegionOrPosition)))
(RPTQ 2 (FLASHW GraphWindow)))
(T (SETQ GraphWindow (SHOWGRAPH Substance (CREATEW (NC.DetermineDisplayRegion
Card RegionOrPosition)
(NC.RetrieveTitle Card))
(FUNCTION NC.GraphCardLeftButtonFn)
(FUNCTION NC.GraphCardMiddleButtonFn)
NIL T (FUNCTION NC.GRAPHERCOPYBUTTONEVENTFN)))
(SETQ CardType (NC.RetrieveType Card))
(WINDOWADDPROP GraphWindow (QUOTE SHRINKFN)
(FUNCTION NC.GraphCardShrinkFn))
(NC.InstallTitleBarButtonEventFn GraphWindow (FUNCTION
NC.GraphTitleBarButtonEventFn))
(NC.InstallTitleBarLeftMenu GraphWindow CardType)
(NC.InstallGraphTitleBarMiddleMenu GraphWindow CardType)))
GraphWindow)))
)
(* * Change to NCSKETCHCARD)
(DEFINEQ
(NC.BringUpSketchCard
(LAMBDA (Card Substance RegionOrPosition) (* rht: "16-Nov-86 23:54")
(* Bring up a sketch card containing substance in
specified region)
(* * rht 2/1/85: Added windowprop to prevent sketch asking about saving changes.)
(* * rht 10/10/85: Now sets substance if was nil.)
(* * fgh 11/14/85 Updated to handle Card object.)
(* * rht 5/5/86: Replaced call to NC.SetupTitleBarMenu with calls to NC.InstallTitleBarButtonEventFn and
NC.InstallTitleBarLeftMenu and NC.InstallSketchTitleBarMiddleMenu.)
(* * fgh 6/30/86 Added NC.SK.COPY.BUTTONEVENTFN to sketch window. Made Substance to be INSURE.SKETCH of the sketch
window.)
(* * rht 11/16/86: Now moves window to RegionOrPosition if already up.)
(LET ((SketchName (AND (NULL Substance)
(MKATOM (fetch (Card UID) of Card))))
Region Title SketchViewer CardType)
(COND
((SETQ SketchViewer (NC.FetchWindow Card))
(TOTOPW SketchViewer)
(if RegionOrPosition
then (SHAPEW SketchViewer (NC.DetermineDisplayRegion Card RegionOrPosition)))
(RPTQ 2 (FLASHW SketchViewer))
(TTY.PROCESS (WINDOWPROP SketchViewer (QUOTE PROCESS))))
(T (SETQ CardType (NC.RetrieveType Card))
(SETQ SketchViewer (SKETCHW.CREATE (OR Substance SketchName)
(NC.FetchRegionViewed Card)
(NC.DetermineDisplayRegion Card
RegionOrPosition)
(NC.RetrieveTitle Card)
(NC.FetchScale Card)
(SKETCH.COMMANDMENU (NC.GetCardTypeField
MiddleButtonMenuItems
CardType))))
(WINDOWPROP SketchViewer (QUOTE DONTQUERYCHANGES)
T)
(WINDOWPROP SketchViewer (QUOTE COPYBUTTONEVENTFN)
(FUNCTION NC.SK.COPY.BUTTONEVENTFN))
(WINDOWPROP SketchViewer (QUOTE SHRINKFN)
(FUNCTION NC.SketchCardShrinkFn))
(NC.InstallTitleBarButtonEventFn SketchViewer (FUNCTION
NC.SketchTitleBarButtonEventFn))
(NC.InstallTitleBarLeftMenu SketchViewer CardType)
(OR Substance (NC.SetSubstance Card (INSURE.SKETCH SketchViewer)))))
SketchViewer)))
)
(PUTPROPS RHTPATCH156 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
(FILEMAP (NIL (935 3214 (NC.BringUpTEditCard 945 . 3212)) (3249 5168 (NC.BringUpGraphCard 3259 . 5166)
) (5204 7677 (NC.BringUpSketchCard 5214 . 7675)))))
STOP