(FILECREATED "22-May-85 01:58:06" {PHYLUM}<NOTECARDS>RELEASE1.2>NOTECARDS.;21 10872
changes to: (VARS NOTECARDSCOMS)
previous date: "22-May-85 01:12:33" {PHYLUM}<NOTECARDS>RELEASE1.2>NOTECARDS.;20)
(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT NOTECARDSCOMS)
(RPAQQ NOTECARDSCOMS ((E (SETQ NC.SystemDate (DATE))
(UNMARKASCHANGED (QUOTE NC.SystemDate)
(QUOTE VARS)))
(VARS NC.SystemDate)
(P (UNMARKASCHANGED (QUOTE NC.SystemDate)
(QUOTE VARS)))
(* * Load the supporting files for Notecards)
(FILES (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD)
TEDIT SKETCH CROCK STYLESHEET (FROM {PHYLUM}<NOTECARDS>MAPS>NEW> SYSLOAD)
NEWMAP)
(* * Have to grab a stored copy of grapher since Danny's dashing hacks aren't in the
harmony>library version. They in turn rely on a redefined DRAWLINE contained in
dashingpatch.)
(P (LOAD (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.2>GRAPHER.DCOM)))
(P (LOAD (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.2>GRAPHERPATCH.DCOM)))
(FILES (FROM {ERIS}<LISP>HARMONY>PATCHES> SYSLOAD)
DASHINGPATCH)
(* * Load the NoteCards files)
(GLOBALVARS NC.Files)
(VARS (NC.Files (QUOTE (NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH
NCLINKS NCUTILITIES NCANNO NCGESTURES NCLOGO NCPROGINT
NCTEXTSUBSTANCE NCGRAPHSUBSTANCE NCSKETCHSUBSTANCE
NCTEXTCARD NCSKETCHCARD NCGRAPHCARD NCFILEBOXCARD
NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD
NCSPREADSHEETCARD))))
(FILES (FROM {PHYLUM}<NOTECARDS>RELEASE1.2>)
NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCANNO
NCPROGINT NCGESTURES NCLOGO NCTEXTSUBSTANCE NCGRAPHSUBSTANCE NCSKETCHSUBSTANCE
NCTEXTCARD NCSKETCHCARD NCGRAPHCARD NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD
NCDOCUMENTCARD NCLINKINDEXCARD NCSPREADSHEETCARD)
(* * Initialization functions)
(GLOBALVARS NC.DeletedLinkImageObject NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns
NC.LinkIconImageFns NC.NoDeleteImageFns NC.SystemDate
UseMapWithPoliticalBoundaries TEDIT.INPUT.FORMATS WindowMenuCommands NC.GCGAGFlg
NC.WindowRightButtonMenu)
(FNS NC.Setup)
(* * Set up Lafite Bug Report Forms)
(FNS NC.MakeLafiteForm)
(ADDVARS (LAFITESPECIALFORMS ("NoteCards Report" (FUNCTION NC.MakeLafiteForm)
"Report bug or request new feature for NoteCards.")))
(P (SETQ LAFITEFORMSMENU NIL))
(* * INITIALIZE NoteCards)
(P (NC.Setup))
(ADDVARS (BackgroundMenuCommands (NoteCards (NC.MakeMainMenu)
"Brings up the NoteCards main menu.")))
(P (SETQ BackgroundMenu))
(* This will dump the notecards files as well as sketch and grapher to floppy for John Brown.)
(FNS JSBDUMPNOTECARDS)))
(RPAQQ NC.SystemDate "22-May-85 01:58:09")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
(QUOTE VARS))
(* * Load the supporting files for Notecards)
(FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES SYSLOAD)
TEDIT SKETCH CROCK STYLESHEET (FROM {PHYLUM}<NOTECARDS>MAPS>NEW> SYSLOAD)
NEWMAP)
(* * Have to grab a stored copy of grapher since Danny's dashing hacks aren't in the
harmony>library version. They in turn rely on a redefined DRAWLINE contained in dashingpatch.)
(LOAD (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.2>GRAPHER.DCOM))
(LOAD (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.2>GRAPHERPATCH.DCOM))
(FILESLOAD (FROM {ERIS}<LISP>HARMONY>PATCHES> SYSLOAD)
DASHINGPATCH)
(* * Load the NoteCards files)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.Files)
)
(RPAQQ NC.Files (NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS
NCUTILITIES NCANNO NCGESTURES NCLOGO NCPROGINT NCTEXTSUBSTANCE
NCGRAPHSUBSTANCE NCSKETCHSUBSTANCE NCTEXTCARD NCSKETCHCARD NCGRAPHCARD
NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD NCLINKINDEXCARD
NCSPREADSHEETCARD))
(FILESLOAD (FROM {PHYLUM}<NOTECARDS>RELEASE1.2>)
NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCANNO
NCPROGINT NCGESTURES NCLOGO NCTEXTSUBSTANCE NCGRAPHSUBSTANCE NCSKETCHSUBSTANCE NCTEXTCARD
NCSKETCHCARD NCGRAPHCARD NCFILEBOXCARD NCBROWSERCARD NCSEARCHCARD NCDOCUMENTCARD
NCLINKINDEXCARD NCSPREADSHEETCARD)
(* * Initialization functions)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.DeletedLinkImageObject NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns
NC.LinkIconImageFns NC.NoDeleteImageFns NC.SystemDate UseMapWithPoliticalBoundaries
TEDIT.INPUT.FORMATS WindowMenuCommands NC.GCGAGFlg NC.WindowRightButtonMenu)
)
(DEFINEQ
(NC.Setup
(LAMBDA (DatabaseFileName) (* fgh: " 5-Feb-85 19:29")
(* * rht 11/17/84: Added definition of NC.InvisibleLinkImageObj.)
(GCGAG NC.GCGAGFlg)
(SETQ NC.WindowRightButtonMenu (create MENU
ITEMS ←(for Item in WindowMenuCommands
when (NOT (FMEMB (CAR Item)
(QUOTE (Snap Paint Clear))))
collect Item)
MENUCOLUMNS ← 1
CENTERFLG ← T
MENUFONT ←(QUOTE (HELVETICA 10))))
(UNADVISE DOWINDOWCOM)
(ADVISE (QUOTE DOWINDOWCOM)
(QUOTE AROUND)
(QUOTE (AND (OR (NEQ WINDOW NC.MainMenuWindow)
(NOT NC.FixedMenuFlg))
(COND
((AND NC.ShortWindowMenuFlg (NC.IDP (NC.IDFromWindow WINDOW)))
(RESETLST (RESETSAVE WindowMenu NC.WindowRightButtonMenu)*))
(T *)))))
(SETQ UseMapWithPoliticalBoundaries T)
(SETQ TEDIT.INPUT.FORMATS NIL)
(DSPFONT (FONTCREATE (QUOTE HELVETICA)
12)
PROMPTWINDOW)
(LINELENGTH 500 PROMPTWINDOW)
(NC.MakeMainMenu)
(SETQ NC.LinkIconImageFns (IMAGEFNSCREATE (FUNCTION NC.LinkIconDisplayFn)
(FUNCTION NC.LinkIconImageBoxFn)
(FUNCTION NC.LinkIconPutFn)
(FUNCTION NC.LinkIconGetFn)
(FUNCTION NC.LinkIconCopyFn)
(FUNCTION NC.LinkIconButtonEventInFn)
(FUNCTION NILL)
(FUNCTION NC.LinkIconWhenMovedFn)
(FUNCTION NC.LinkIconWhenInsertedFn)
(FUNCTION NC.LinkIconWhenDeletedFn)
(FUNCTION NC.LinkIconWhenCopiedFn)
(FUNCTION NILL)
(FUNCTION NILL)))
(SETQ NC.NoDeleteImageFns (PROG ((ImageObj (NC.MakeLinkIcon NIL)))
(replace (IMAGEOBJ IMAGEOBJFNS) of ImageObj
with (create IMAGEFNS using (fetch (IMAGEOBJ IMAGEOBJFNS)
of ImageObj)))
(IMAGEOBJPROP ImageObj (QUOTE WHENDELETEDFN)
(FUNCTION NILL))
(RETURN (fetch (IMAGEOBJ IMAGEOBJFNS) of ImageObj))))
(COND
((GETD (QUOTE INITIALIZEINTERCALC))
(INITIALIZEINTERCALC)))
(SETQ NC.DeletedLinkImageObject (IMAGEOBJCREATE "DeletedLink" (IMAGEFNSCREATE
(FUNCTION NC.DeletedLinkDisplayFn)
(FUNCTION NC.DeletedLinkImageBoxFn)
(FUNCTION NC.DeletedLinkPutFn)
(FUNCTION NC.DeletedLinkGetFn)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL))))
(SETQ NC.InvisibleLinkImageFns (IMAGEFNSCREATE (FUNCTION NILL)
(FUNCTION NC.InvisibleLinkImageBoxFn)
(FUNCTION NC.InvisibleLinkPutFn)
(FUNCTION NC.InvisibleLinkGetFn)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)
(FUNCTION NILL)))
(SETQ NC.InvisibleLinkImageObject (IMAGEOBJCREATE "InvisibleLink" NC.InvisibleLinkImageFns))
(NC.AdjustCloseF)))
)
(* * Set up Lafite Bug Report Forms)
(DEFINEQ
(NC.MakeLafiteForm
(LAMBDA NIL (* rht: "12-Apr-85 01:31")
(MAKEXXXSUPPORTFORM "NoteCards 1.2" "NoteCardsSupport.pa" NC.SystemDate)))
)
(ADDTOVAR LAFITESPECIALFORMS ("NoteCards Report" (FUNCTION NC.MakeLafiteForm)
"Report bug or request new feature for NoteCards."))
(SETQ LAFITEFORMSMENU NIL)
(* * INITIALIZE NoteCards)
(NC.Setup)
(ADDTOVAR BackgroundMenuCommands (NoteCards (NC.MakeMainMenu)
"Brings up the NoteCards main menu."))
(SETQ BackgroundMenu)
(* This will dump the notecards files as well as sketch and grapher to floppy for John Brown.)
(DEFINEQ
(JSBDUMPNOTECARDS
(LAMBDA NIL (* rht: "18-Dec-84 20:09")
(* * Dumps the notecards files and sketch and grapher to floppy. Also dumps one demo file.)
(PROG ((Files (QUOTE (JSBNOTECARDSLOADER JSBNOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS
NCTYPESMECH NCLINKS NCUTILITIES NCBASICTYPES NCANNO
NCPROGINT NCGESTURES NCLOGO)))
(NCDir (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.1>))
(FloppyDir (QUOTE {FLOPPY}))
(GraphZoomDir (QUOTE {ERIS}<LISP>LIBRARY>))
(GraphZoomFile (QUOTE GRAPHZOOM))
(SketchDir (QUOTE {ERIS}<LISPUSERS>))
(SketchFiles (QUOTE (SKETCHEDIT SKETCHOBJ SKETCH)))
(GrapherFile (QUOTE GRAPHER))
(MapDir (QUOTE {PHYLUM}<NOTECARDS>MAPS>))
(MapFile (QUOTE NEWMAP))
(QuadFnsFile (QUOTE QUADFUNS))
(DemoDir (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.1>DEMO>))
(DemoFile (QUOTE FAST-FMEA.NOTEFILE)))
(COPYFILE (PACK* NCDir GrapherFile (QUOTE .DCOM))
(PACK* FloppyDir GrapherFile (QUOTE .DCOM)))
(COPYFILE (PACK* GraphZoomDir GraphZoomFile (QUOTE .DCOM))
(PACK* FloppyDir GraphZoomFile (QUOTE .DCOM)))
(for File in SketchFiles do (COPYFILE (PACK* SketchDir File (QUOTE .DCOM))
(PACK* FloppyDir File (QUOTE .DCOM))))
(COPYFILE (PACK* MapDir QuadFnsFile (QUOTE .DCOM))
(PACK* FloppyDir QuadFnsFile (QUOTE .DCOM)))
(COPYFILE (PACK* MapDir MapFile (QUOTE .DCOM))
(PACK* FloppyDir MapFile (QUOTE .DCOM)))
(for File in Files do (COPYFILE (PACK* NCDir File (QUOTE .DCOM))
(PACK* FloppyDir File (QUOTE .DCOM))))
(COPYFILE (PACK* DemoDir DemoFile)
(PACK* FloppyDir DemoFile)))))
)
(PUTPROPS NOTECARDS COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
(FILEMAP (NIL (4622 8131 (NC.Setup 4632 . 8129)) (8175 8384 (NC.MakeLafiteForm 8185 . 8382)) (8839
10787 (JSBDUMPNOTECARDS 8849 . 10785)))))
STOP