(FILECREATED "28-Jun-85 14:44:50" {PHYLUM}<NOTECARDS>RELEASE1.1>NOTECARDS.;13 10102
changes to: (VARS NOTECARDSCOMS)
previous date: "18-Dec-84 20:28:50" {PHYLUM}<NOTECARDS>RELEASE1.1>NOTECARDS.;12)
(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT NOTECARDSCOMS)
(RPAQQ NOTECARDSCOMS ((* * Load the supporting files for Notecards)
(P (LOAD (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.1>GRAPHER.DCOM)
(QUOTE SYSLOAD)))
(FILES (FROM LISPUSERS SYSLOAD)
TEDIT
(FROM LISPUSERS SYSLOAD)
CROCK
(FROM LISPUSERS SYSLOAD)
SKETCH SKETCHOBJ (FROM {PHYLUM}<NOTECARDS>MAPS> SYSLOAD)
NEWMAP)
(* * Load the NoteCards files)
(GLOBALVARS NC.Files)
(VARS (NC.Files (QUOTE (NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH
NCLINKS NCUTILITIES NCBASICTYPES NCANNO NCPROGINT
NCGESTURES NCLOGO))))
(FILES (FROM {PHYLUM}<NOTECARDS>RELEASE1.1>)
NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES
NCBASICTYPES NCANNO NCPROGINT NCGESTURES NCLOGO)
(* * Initialization functions)
(GLOBALVARS NC.DeletedLinkImageObject NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns
NC.LinkIconImageFns NC.NoDeleteImageFns)
(FNS NC.Setup)
(* * Set up Lafite Bug Report Forms)
(E (SETQ NC.SystemDate (DATE)))
(VARS NC.SystemDate)
(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)))
(* * Load the supporting files for Notecards)
(LOAD (QUOTE {PHYLUM}<NOTECARDS>RELEASE1.1>GRAPHER.DCOM)
(QUOTE SYSLOAD))
(FILESLOAD (FROM LISPUSERS SYSLOAD)
TEDIT
(FROM LISPUSERS SYSLOAD)
CROCK
(FROM LISPUSERS SYSLOAD)
SKETCH SKETCHOBJ (FROM {PHYLUM}<NOTECARDS>MAPS> SYSLOAD)
NEWMAP)
(* * Load the NoteCards files)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.Files)
)
(RPAQQ NC.Files (NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS
NCUTILITIES NCBASICTYPES NCANNO NCPROGINT NCGESTURES NCLOGO))
(FILESLOAD (FROM {PHYLUM}<NOTECARDS>RELEASE1.1>)
NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCBASICTYPES
NCANNO NCPROGINT NCGESTURES NCLOGO)
(* * Initialization functions)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.DeletedLinkImageObject NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns
NC.LinkIconImageFns NC.NoDeleteImageFns)
)
(DEFINEQ
(NC.Setup
(LAMBDA (DatabaseFileName) (* rht: "21-Nov-84 12:12")
(* * 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)
(SETQ PSA.NoteCards (QUOTE (NC00002 NC00001)))
(SETQ PSA.MenuOfNoteCards)
(SETQ PSA.NoteCardDefaultWidth 400)
(SETQ PSA.NoteCardDefaultHeight 200)
(SETQ PSA.ContentsCardDefaultWidth 335)
(SETQ PSA.ContentsCardDefaultHeight 200)
(SETQ PSA.GraphCardDefaultWidth 300)
(SETQ PSA.GraphCardDefaultHeight 200)
(SETQ PSA.TEditCardDefaultWidth 300)
(SETQ PSA.TEditCardDefaultHeight 200)
(SETQ PSA.SketchCardDefaultWidth 400)
(SETQ PSA.SketchCardDefaultHeight 350)
(SETQ NC.BrowserCardDefaultWidth 500)
(SETQ NC.BrowserCardDefaultHeight 350)
(SETQ PSA.MapSketchType (for SketchType in SKETCH.ELEMENT.TYPES
thereis (EQ (fetch (SKETCHTYPE LABEL) of SketchType)
(QUOTE Map))))
(SETQ PSA.TimesRoman10 (FONTCREATE (QUOTE HELVETICA)
12))
(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)
(RPAQQ NC.SystemDate "28-Jun-85 14:44:58")
(DEFINEQ
(NC.MakeLafiteForm
(LAMBDA NIL (* fgh: "25-Oct-84 19:11")
(MAKEXXXSUPPORTFORM "NoteCards 1.1" "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 (2885 7313 (NC.Setup 2895 . 7311)) (7405 7614 (NC.MakeLafiteForm 7415 . 7612)) (8069
10017 (JSBDUMPNOTECARDS 8079 . 10015)))))
STOP