(FILECREATED "18-Dec-84 20:28:50" {PHYLUM}<NOTECARDS>RELEASE1.1>NOTECARDS.;12 10163
changes to: (FNS JSBDUMPNOTECARDS)
previous date: "15-Dec-84 21:08:44" {PHYLUM}<NOTECARDS>RELEASE1.1>NOTECARDS.;11)
(* Copyright (c) 1984 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 {ERIS}<LISP>HARMONY>LIBRARY> SYSLOAD)
TEDIT
(FROM {ERIS}<LISPUSERS> SYSLOAD)
CROCK
(FROM {ERIS}<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 {ERIS}<LISP>HARMONY>LIBRARY> SYSLOAD)
TEDIT
(FROM {ERIS}<LISPUSERS> SYSLOAD)
CROCK
(FROM {ERIS}<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 "18-Dec-84 20:29:00")
(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))
(DECLARE: DONTCOPY
(FILEMAP (NIL (2951 7379 (NC.Setup 2961 . 7377)) (7471 7680 (NC.MakeLafiteForm 7481 . 7678)) (8135
10083 (JSBDUMPNOTECARDS 8145 . 10081)))))
STOP