diff --git a/library/FILEBROWSER b/library/FILEBROWSER index e71b16c4d..13e9a48f7 100644 --- a/library/FILEBROWSER +++ b/library/FILEBROWSER @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED " 2-Dec-2021 19:33:12" |{DSK}larry>medley>library>FILEBROWSER.;44| 267497 +(FILECREATED " 4-Aug-2022 09:32:02" |{DSK}larry>medley>library>FILEBROWSER.;2| 266567 - |changes| |to:| (VARS FILEBROWSERCOMS) + :CHANGES-TO (VARS FILEBROWSERCOMS) - |previous| |date:| "23-Nov-2021 12:17:08" |{DSK}larry>medley>library>FILEBROWSER.;39|) + :PREVIOUS-DATE " 2-Dec-2021 19:33:12" |{DSK}larry>medley>library>FILEBROWSER.;1|) ; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation. @@ -185,8 +185,7 @@ You specify how many versions to keep."))) (* \; "Setup") (FNS FB.STARTUP FB.MAKERIGIDWINDOW) (FNS FB.PRINTFN FB.COPYFN)) - (COMS (* \; - "commands and major subfunctions") + (COMS (* \; "commands and major subfunctions") (FNS FB.MENU.WHENSELECTEDFN FB.COMMANDSELECTEDFN FB.SUBITEMP FB.MAKE.BROWSER.BUSY FB.FINISH.COMMAND FB.HANDLE.ABORT.BUTTON) (FNS FB.DELETECOMMAND FB.DELVERCOMMAND FB.IS.NOT.SUBDIRECTORY.ITEM FB.DELVER.FILES @@ -221,8 +220,8 @@ You specify how many versions to keep."))) (FNS FB.ICONFN FB.INFOMENU.WHENSELECTEDFN FB.CLOSEFN FB.EXPUNGE?.MENU FB.AFTERCLOSEFN FB.CLOSE&EXPUNGE) (FNS FB.HARDCOPY.DIRECTORY FB.HARDCOPY.PRINT.TITLE FB.HARDCOPY.MAXWIDTH)) - (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (SOURCE) - TABLEBROWSERDECLS) + (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) + TABLEBROWSER) (RECORDS INFOFIELD FBFILEDATA FILEBROWSER) (CONSTANTS FB.MORE.BORDER FB.NULL.VERSION) (MACROS NULL.VERSIONP NULL.DIRECTORYP EQ.DIRECTORYP NULL.FIELDP) @@ -276,8 +275,8 @@ You specify how many versions to keep."))) DOCOPY (RPAQ? FB.ICONSPEC '(#*(83 70)OOOOOOOOOOOOOOOOOOOON@@@OOOOOOOOOOOOOOOOOOOON@@@L@@@@@@@@@@@@@@@@@@@F@@@L@@@@@@@@@@@@@@@@@@@F@@@LOOOOOOOOOOOOOOOOOONF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@GOOOOOL@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@DCOOOHD@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@DOOOOND@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@D@@@@@D@@@@@BF@@@LH@@@@@GOOOOOL@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@COOOOOH@@@@@BF@@@LH@@@@@COOOOOH@@@@@BF@@@LH@@@@@B@@@@@H@@@@@BF@@@LH@@@@@A@@@@A@@@@@@BF@@@LH@@@@@@OOOON@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LH@@@@@@@@@@@@@@@@@BF@@@LOOOOOOOOOOOOOOOOOONF@@@L@@@@@@@@@@@@@@@@@@@F@@@L@@@@@@@@@@@@@@@@@@@F@@@OOOOOOOOOOOOOOOOOOOON@@@OOOOOOOOOOOOOOOOOOOON@@@ - NIL - (5 5 73 40))) + NIL + (5 5 73 40))) ) (RPAQ? FB.EXPUNGE?MENU ) @@ -305,9 +304,9 @@ DOCOPY (RPAQ? FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR)) (APPENDTOVAR FONTVARS (FB.ICONFONT LITTLEFONT) - (FB.BROWSERFONT DEFAULTFONT) - (FB.PROMPTFONT LITTLEFONT) - (FB.BROWSER.DIRECTORY.FONT BOLDFONT)) + (FB.BROWSERFONT DEFAULTFONT) + (FB.PROMPTFONT LITTLEFONT) + (FB.BROWSER.DIRECTORY.FONT BOLDFONT)) (* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.") @@ -408,27 +407,25 @@ You specify how many versions to keep."))) )) (RPAQQ FB.VERSION.MENU.ITEMS (("1" 1 "Keep only one version of the files") - ("2" 2 "Keep two versions of the files") - ("3" 3 "Keep three versions of the files") - ("4" 4 "Keep four versions of the files") - ("Other" :NUMBER "Select number of versions to keep"))) + ("2" 2 "Keep two versions of the files") + ("3" 3 "Keep three versions of the files") + ("4" 4 "Keep four versions of the files") + ("Other" :NUMBER "Select number of versions to keep"))) (RPAQQ FB.CLOSE.MENU.ITEMS (("Expunge deleted files" 'EXPUNGE - "Erases all files still marked 'deleted'") - ("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files. + "Erases all files still marked 'deleted'") + ("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files. Your deletions are thus ignored."))) (RPAQQ FB.DEPTH.MENU.ITEMS (("Global default" :GLOBAL - "Set depth using the global default (FILING.ENUMERATION.DEPTH)" - ) - ("Infinite" T - "Set depth to infinity, i.e., enumerate all levels of directory" - ) - ("1" 1 + "Set depth using the global default (FILING.ENUMERATION.DEPTH)") + ("Infinite" T + "Set depth to infinity, i.e., enumerate all levels of directory") + ("1" 1 "Set depth to 1, i.e., enumerate just the top level of the directory" - ) - ("2" 2 "Set depth to 2") - ("Other" :NUMBER "Set depth to some other finite depth"))) + ) + ("2" 2 "Set depth to 2") + ("Other" :NUMBER "Set depth to some other finite depth"))) (RPAQQ FB.INFO.MENU.ITEMS ((|Length| LENGTH "Toggles Length display") @@ -3857,127 +3854,124 @@ then click Recompute")))) ) (DECLARE\: EVAL@COMPILE DONTCOPY -(FILESLOAD (SOURCE) - TABLEBROWSERDECLS) +(FILESLOAD (LOADCOMP) + TABLEBROWSER) (DECLARE\: EVAL@COMPILE (RECORD INFOFIELD (INFONAME INFOLABEL INFOWIDTH INFOFORMAT INFOPROTOTYPE)) -(DATATYPE FBFILEDATA ((FILENAME POINTER) (* \; "Full name of this file") - (FILEINFO POINTER) (* \; "Plist of attributes") - (VERSIONLESSNAME POINTER) (* \; "FILENAME sans version") - (DIRECTORYP FLAG) (* \; "True if it's a directory line") - (HASDIRPREFIX FLAG) (* \; - "True if it has a directory prefix beyond that in common to all the files") - (DIRECTORYFILEP FLAG) (* \; - "True if the \"file\" in this item is actually a subdirectory") - (SIZE POINTER) (* \; "Size of file, for stats") - (FILEDEPTH BYTE) (* \; - "Number of levels of subdirectory beneath the main pattern--zero for files at that level") - (SORTVALUE POINTER) (* \; - "Cached value by which we are sorting the dir.") - (SUBDIREND WORD) (* \; - "Index of last char in subdirectory, or zero if HASDIRPREFIX is false") - (STARTOFPNAME WORD) (* \; - "Start of name for printing purposes. Same as STARTOFNAME when browser sorted by name") - (VERSION WORD) (* \; "Version, or zero if none") - (STARTOFNAME WORD) (* \; - "Index beyond all directory fields") - DUMMY) - (ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME - ) - OF DATUM) - (FETCH (FBFILEDATA STARTOFPNAME - ) OF DATUM))) - (SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA - FILENAME) - OF DATUM) - 1 - (FETCH (FBFILEDATA SUBDIREND - ) OF - DATUM)))))) - -(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) (* \; - "True if we don't want separate subdirectory lines -- subdirs then included in name") - (NSPATTERN? FLAG) (* \; "True if host is an ns host") - (SHOWUNDELETED? FLAG) (* \; - "True if counter window should show `Undeleted' rather than `Total' counts") - (PATTERNPARSED? FLAG) (* \; - "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid") - (SORTBYDATE FLAG) (* \; - "True if SORTATTRIBUTE is one of the date attributes") - (FBREADY FLAG) (* \; "False while FB is enumerating.") - (ABORTING FLAG) (* \; - "True if enumeration is being aborted") - (FIXEDTITLE FLAG) (* \; "True if caller supplied title") - (FBCOMPUTEDDEPTH BYTE) (* \; - "Depth at the time we enumerated directory (zero for infinite)") - (FBDISPLAYEDDEPTH BYTE) (* \; - "Depth we are currently displaying (zero for infinite)") - (TABLEBROWSER POINTER) (* \; - "Pointer to TABLEBROWSER object controlling the browser") - (BROWSERWINDOW POINTER) (* \; "Main window") - (COUNTERWINDOW POINTER) (* \; - "Window that counts files, pages, deletions") - (HEADINGWINDOW POINTER) (* \; - "Window with headings for browser columns") - (INFOMENUW POINTER) (* \; - "Window containing choices for info to be displayed, or NIL if none yet") - (PROMPTWINDOW POINTER) (* \; "GETPROMPTWINDOW BROWSERWINDOW") - (INFODISPLAYED POINTER) (* \; - "List of attribute specs to be displayed") - (PATTERN POINTER) (* \; - "Directory pattern being enumerated") - (PREPAREDPATTERN POINTER) (* \; "DIRECTORY.MATCH.SETUP of same") - (SEEWINDOW POINTER) (* \; - "Primary window used by FAST SEE command") - (BROWSERFONT POINTER) (* \; "Font of BROWSERWINDOW") - (SORTBY POINTER) (* \; - "Sorting function or NIL for default sort") - (NAMESTART WORD) (* \; - "Index of first character in file name beyond the common prefix shared by all") - (DIRECTORYSTART WORD) (* \; - "Index of first character of directory in file names") - (INFOSTART WORD) (* \; - "X position in browser where first col of info is displayed") - (NAMEOVERHEAD WORD) (* \; - "This plus width of name gives is how much to allow before INFOSTART") - (OVERFLOWSPACING WORD) (* \; - "Increment between sizes considered for INFOSTART") - (DIGITWIDTH WORD) - (TOTALFILES WORD) (* \; - "Total number of files, deleted files, pages, deleted pages at the moment") - (DELETEDFILES WORD) - (TOTALPAGES POINTER) - (DELETEDPAGES POINTER) - (PAGECOUNT? POINTER) (* \; - "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages") - (COUNTERPOSITIONS POINTER) (* \; - "List of pairs (left right) describing regions where the values of the counters are displayed") - (COUNTERPAGESTRING POINTER) (* \; - "String to print after file/page count") - (OVERFLOWWIDTHS POINTER) (* \; - "List of (xpos occurrences) describing files whose names exceed default INFOSTART") - (INFOMENUCHOICES POINTER) (* \; - "Selections user has made in Info window, not necessarily the info currently displayed") - (UPDATEPROC POINTER) (* \; - "Process doing an Update (Recompute)") - (DEFAULTDIR POINTER) (* \; - "Default directory for destination of Copy/Rename") - (SORTATTRIBUTE POINTER) (* \; - "Attribute being sorted on, or NIL if by name") - (SORTMENU POINTER) - (FBLOCK POINTER) (* \; - "Lock acquired by filebrowser operations") - (SORTINDEX WORD) (* \; - "Index (zero-based) in file info of the sort attribute") - (SIZEINDEX WORD) (* \; "Index of size attribute") - (FBDEPTH POINTER) (* \; - "Enumeration depth, or NIL for default") - (ABORTWINDOW POINTER) (* \; - "Dotted pair of (abortwindow . menuw) for this browser's abort window.") - DUMMY)) +(DATATYPE FBFILEDATA ((FILENAME POINTER) (* \; "Full name of this file") + (FILEINFO POINTER) (* \; "Plist of attributes") + (VERSIONLESSNAME POINTER) (* \; "FILENAME sans version") + (DIRECTORYP FLAG) (* \; "True if it's a directory line") + (HASDIRPREFIX FLAG) (* \; + "True if it has a directory prefix beyond that in common to all the files") + (DIRECTORYFILEP FLAG) (* \; + "True if the \"file\" in this item is actually a subdirectory") + (SIZE POINTER) (* \; "Size of file, for stats") + (FILEDEPTH BYTE) (* \; + "Number of levels of subdirectory beneath the main pattern--zero for files at that level") + (SORTVALUE POINTER) (* \; + "Cached value by which we are sorting the dir.") + (SUBDIREND WORD) (* \; + "Index of last char in subdirectory, or zero if HASDIRPREFIX is false") + (STARTOFPNAME WORD) (* \; + "Start of name for printing purposes. Same as STARTOFNAME when browser sorted by name") + (VERSION WORD) (* \; "Version, or zero if none") + (STARTOFNAME WORD) (* \; + "Index beyond all directory fields") + DUMMY) + (ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME) + OF DATUM) + (FETCH (FBFILEDATA STARTOFPNAME) + OF DATUM))) + (SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA FILENAME) + OF DATUM) + 1 + (FETCH (FBFILEDATA SUBDIREND) + OF DATUM)))))) + +(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) (* \; + "True if we don't want separate subdirectory lines -- subdirs then included in name") + (NSPATTERN? FLAG) (* \; "True if host is an ns host") + (SHOWUNDELETED? FLAG) (* \; + "True if counter window should show `Undeleted' rather than `Total' counts") + (PATTERNPARSED? FLAG) (* \; + "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid") + (SORTBYDATE FLAG) (* \; + "True if SORTATTRIBUTE is one of the date attributes") + (FBREADY FLAG) (* \; "False while FB is enumerating.") + (ABORTING FLAG) (* \; + "True if enumeration is being aborted") + (FIXEDTITLE FLAG) (* \; "True if caller supplied title") + (FBCOMPUTEDDEPTH BYTE) (* \; + "Depth at the time we enumerated directory (zero for infinite)") + (FBDISPLAYEDDEPTH BYTE) (* \; + "Depth we are currently displaying (zero for infinite)") + (TABLEBROWSER POINTER) (* \; + "Pointer to TABLEBROWSER object controlling the browser") + (BROWSERWINDOW POINTER) (* \; "Main window") + (COUNTERWINDOW POINTER) (* \; + "Window that counts files, pages, deletions") + (HEADINGWINDOW POINTER) (* \; + "Window with headings for browser columns") + (INFOMENUW POINTER) (* \; + "Window containing choices for info to be displayed, or NIL if none yet") + (PROMPTWINDOW POINTER) (* \; "GETPROMPTWINDOW BROWSERWINDOW") + (INFODISPLAYED POINTER) (* \; + "List of attribute specs to be displayed") + (PATTERN POINTER) (* \; + "Directory pattern being enumerated") + (PREPAREDPATTERN POINTER) (* \; "DIRECTORY.MATCH.SETUP of same") + (SEEWINDOW POINTER) (* \; + "Primary window used by FAST SEE command") + (BROWSERFONT POINTER) (* \; "Font of BROWSERWINDOW") + (SORTBY POINTER) (* \; + "Sorting function or NIL for default sort") + (NAMESTART WORD) (* \; + "Index of first character in file name beyond the common prefix shared by all") + (DIRECTORYSTART WORD) (* \; + "Index of first character of directory in file names") + (INFOSTART WORD) (* \; + "X position in browser where first col of info is displayed") + (NAMEOVERHEAD WORD) (* \; + "This plus width of name gives is how much to allow before INFOSTART") + (OVERFLOWSPACING WORD) (* \; + "Increment between sizes considered for INFOSTART") + (DIGITWIDTH WORD) + (TOTALFILES WORD) (* \; + "Total number of files, deleted files, pages, deleted pages at the moment") + (DELETEDFILES WORD) + (TOTALPAGES POINTER) + (DELETEDPAGES POINTER) + (PAGECOUNT? POINTER) (* \; + "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages") + (COUNTERPOSITIONS POINTER) (* \; + "List of pairs (left right) describing regions where the values of the counters are displayed") + (COUNTERPAGESTRING POINTER) (* \; + "String to print after file/page count") + (OVERFLOWWIDTHS POINTER) (* \; + "List of (xpos occurrences) describing files whose names exceed default INFOSTART") + (INFOMENUCHOICES POINTER) (* \; + "Selections user has made in Info window, not necessarily the info currently displayed") + (UPDATEPROC POINTER) (* \; + "Process doing an Update (Recompute)") + (DEFAULTDIR POINTER) (* \; + "Default directory for destination of Copy/Rename") + (SORTATTRIBUTE POINTER) (* \; + "Attribute being sorted on, or NIL if by name") + (SORTMENU POINTER) + (FBLOCK POINTER) (* \; + "Lock acquired by filebrowser operations") + (SORTINDEX WORD) (* \; + "Index (zero-based) in file info of the sort attribute") + (SIZEINDEX WORD) (* \; "Index of size attribute") + (FBDEPTH POINTER) (* \; + "Enumeration depth, or NIL for default") + (ABORTWINDOW POINTER) (* \; + "Dotted pair of (abortwindow . menuw) for this browser's abort window.") + DUMMY)) ) (/DECLAREDATATYPE 'FBFILEDATA @@ -4065,25 +4059,24 @@ then click Recompute")))) (DECLARE\: EVAL@COMPILE (PUTPROPS NULL.VERSIONP MACRO ((V) - (EQ V 0))) + (EQ V 0))) (PUTPROPS NULL.DIRECTORYP MACRO ((FILEDATA) - (EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA) - 0))) + (EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA) + 0))) (PUTPROPS EQ.DIRECTORYP MACRO (OPENLAMBDA (FD1 FD2) - (STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of| - FD1) - (|fetch| (FBFILEDATA FILENAME) |of| FD2) - :END1 - (|fetch| (FBFILEDATA SUBDIREND) |of| FD1) - :END2 - (|fetch| (FBFILEDATA SUBDIREND) |of| FD2)))) + (STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of| FD1) + (|fetch| (FBFILEDATA FILENAME) |of| FD2) + :END1 + (|fetch| (FBFILEDATA SUBDIREND) |of| FD1) + :END2 + (|fetch| (FBFILEDATA SUBDIREND) |of| FD2)))) (PUTPROPS NULL.FIELDP MACRO (OPENLAMBDA (STR) - (OR (NULL STR) - (EQ (NCHARS STR) - 0)))) + (OR (NULL STR) + (EQ (NCHARS STR) + 0)))) ) (DECLARE\: DOEVAL@COMPILE DONTCOPY @@ -4176,67 +4169,67 @@ then click Recompute")))) (ADDTOVAR SYSTEMRECLST (DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) - (NSPATTERN? FLAG) - (SHOWUNDELETED? FLAG) - (PATTERNPARSED? FLAG) - (SORTBYDATE FLAG) - (FBREADY FLAG) - (ABORTING FLAG) - (FIXEDTITLE FLAG) - (FBCOMPUTEDDEPTH BYTE) - (FBDISPLAYEDDEPTH BYTE) - (TABLEBROWSER POINTER) - (BROWSERWINDOW POINTER) - (COUNTERWINDOW POINTER) - (HEADINGWINDOW POINTER) - (INFOMENUW POINTER) - (PROMPTWINDOW POINTER) - (INFODISPLAYED POINTER) - (PATTERN POINTER) - (PREPAREDPATTERN POINTER) - (SEEWINDOW POINTER) - (BROWSERFONT POINTER) - (SORTBY POINTER) - (NAMESTART WORD) - (DIRECTORYSTART WORD) - (INFOSTART WORD) - (NAMEOVERHEAD WORD) - (OVERFLOWSPACING WORD) - (DIGITWIDTH WORD) - (TOTALFILES WORD) - (DELETEDFILES WORD) - (TOTALPAGES POINTER) - (DELETEDPAGES POINTER) - (PAGECOUNT? POINTER) - (COUNTERPOSITIONS POINTER) - (COUNTERPAGESTRING POINTER) - (OVERFLOWWIDTHS POINTER) - (INFOMENUCHOICES POINTER) - (UPDATEPROC POINTER) - (DEFAULTDIR POINTER) - (SORTATTRIBUTE POINTER) - (SORTMENU POINTER) - (FBLOCK POINTER) - (SORTINDEX WORD) - (SIZEINDEX WORD) - (FBDEPTH POINTER) - (ABORTWINDOW POINTER) - DUMMY)) + (NSPATTERN? FLAG) + (SHOWUNDELETED? FLAG) + (PATTERNPARSED? FLAG) + (SORTBYDATE FLAG) + (FBREADY FLAG) + (ABORTING FLAG) + (FIXEDTITLE FLAG) + (FBCOMPUTEDDEPTH BYTE) + (FBDISPLAYEDDEPTH BYTE) + (TABLEBROWSER POINTER) + (BROWSERWINDOW POINTER) + (COUNTERWINDOW POINTER) + (HEADINGWINDOW POINTER) + (INFOMENUW POINTER) + (PROMPTWINDOW POINTER) + (INFODISPLAYED POINTER) + (PATTERN POINTER) + (PREPAREDPATTERN POINTER) + (SEEWINDOW POINTER) + (BROWSERFONT POINTER) + (SORTBY POINTER) + (NAMESTART WORD) + (DIRECTORYSTART WORD) + (INFOSTART WORD) + (NAMEOVERHEAD WORD) + (OVERFLOWSPACING WORD) + (DIGITWIDTH WORD) + (TOTALFILES WORD) + (DELETEDFILES WORD) + (TOTALPAGES POINTER) + (DELETEDPAGES POINTER) + (PAGECOUNT? POINTER) + (COUNTERPOSITIONS POINTER) + (COUNTERPAGESTRING POINTER) + (OVERFLOWWIDTHS POINTER) + (INFOMENUCHOICES POINTER) + (UPDATEPROC POINTER) + (DEFAULTDIR POINTER) + (SORTATTRIBUTE POINTER) + (SORTMENU POINTER) + (FBLOCK POINTER) + (SORTINDEX WORD) + (SIZEINDEX WORD) + (FBDEPTH POINTER) + (ABORTWINDOW POINTER) + DUMMY)) (DATATYPE FBFILEDATA ((FILENAME POINTER) - (FILEINFO POINTER) - (VERSIONLESSNAME POINTER) - (DIRECTORYP FLAG) - (HASDIRPREFIX FLAG) - (DIRECTORYFILEP FLAG) - (SIZE POINTER) - (FILEDEPTH BYTE) - (SORTVALUE POINTER) - (SUBDIREND WORD) - (STARTOFPNAME WORD) - (VERSION WORD) - (STARTOFNAME WORD) - DUMMY)) + (FILEINFO POINTER) + (VERSIONLESSNAME POINTER) + (DIRECTORYP FLAG) + (HASDIRPREFIX FLAG) + (DIRECTORYFILEP FLAG) + (SIZE POINTER) + (FILEDEPTH BYTE) + (SORTVALUE POINTER) + (SUBDIREND WORD) + (STARTOFPNAME WORD) + (VERSION WORD) + (STARTOFNAME WORD) + DUMMY)) ) (DECLARE\: DONTEVAL@LOAD DOCOPY @@ -4244,10 +4237,10 @@ then click Recompute")))) (ADDTOVAR *ATTACHED-WINDOW-COMMAND-SYNONYMS* (HARDCOPYIMAGEW.TOFILE . HARDCOPYIMAGEW) - (HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW)) + (HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW)) (ADDTOVAR |BackgroundMenuCommands| ("FileBrowser" '(FILEBROWSER) - "Opens a filebrowser window; prompts for pattern")) + "Opens a filebrowser window; prompts for pattern")) (RPAQQ |BackgroundMenu| NIL) @@ -4263,51 +4256,51 @@ then click Recompute")))) (PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1993 1994 1999 2000 2001 2021)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (32602 55483 (FB 32612 . 33747) (FB.COPYBINARYCOMMAND 33749 . 34095) (FB.COPYTEXTCOMMAND - 34097 . 34439) (FILEBROWSER 34441 . 47547) (FB.TABLEBROWSER 47549 . 47766) (FB.SELECTEDFILES 47768 . -48405) (FB.FETCHFILENAME 48407 . 48799) (FB.DIRECTORYP 48801 . 49195) (FB.PROMPTWPRINT 49197 . 50243) -(FB.PROMPTW.FORMAT 50245 . 50982) (FB.PROMPTFORINPUT 50984 . 53236) (FB.YES-OR-NO-P 53238 . 54272) ( -FB.ALLOW.ABORT 54274 . 55128) (\\FB.HARDCOPY.TOFILE.EXTENSION 55130 . 55481)) (55507 56460 (FB.STARTUP - 55517 . 56032) (FB.MAKERIGIDWINDOW 56034 . 56458)) (56461 61833 (FB.PRINTFN 56471 . 61624) (FB.COPYFN - 61626 . 61831)) (61883 68223 (FB.MENU.WHENSELECTEDFN 61893 . 62251) (FB.COMMANDSELECTEDFN 62253 . -63792) (FB.SUBITEMP 63794 . 64395) (FB.MAKE.BROWSER.BUSY 64397 . 65201) (FB.FINISH.COMMAND 65203 . -67234) (FB.HANDLE.ABORT.BUTTON 67236 . 68221)) (68224 73740 (FB.DELETECOMMAND 68234 . 68515) ( -FB.DELVERCOMMAND 68517 . 71710) (FB.IS.NOT.SUBDIRECTORY.ITEM 71712 . 71893) (FB.DELVER.FILES 71895 . -72984) (FB.DELETE.FILE 72986 . 73738)) (73741 75066 (FB.UNDELETECOMMAND 73751 . 74036) ( -FB.UNDELETEALLCOMMAND 74038 . 74317) (FB.UNDELETE.FILE 74319 . 75064)) (75067 99248 (FB.COPYCOMMAND -75077 . 75346) (FB.RENAMECOMMAND 75348 . 75623) (FB.COPY/RENAME.COMMAND 75625 . 76548) ( -FB.COPY/RENAME.ONE 76550 . 78872) (FB.COPY/RENAME.MANY 78874 . 85094) (FB.MERGE.DIRECTORIES 85096 . -85514) (FB.GREATEST.PREFIX 85516 . 86872) (FB.MAYBE.INSERT.FILE 86874 . 94314) (FB.GET.NEW.FILE.SPEC -94316 . 98147) (FB.CANONICAL.DIRECTORY 98149 . 99246)) (99249 107033 (FB.HARDCOPYCOMMAND 99259 . -100389) (FB.HARDCOPY.TOFILE 100391 . 107031)) (107034 117233 (FB.EDITCOMMAND 107044 . 107911) ( -FB.EDITCOMMAND.ONEFILE 107913 . 111317) (FB.EDITLISPFILE 111319 . 112424) (FB.BROWSECOMMAND 112426 . -117231)) (117234 129155 (FB.FASTSEECOMMAND 117244 . 120694) (FB.FASTSEE.ONEFILE 120696 . 123853) ( -FB.SEEFULLFN 123855 . 127986) (FB.SEEBUTTONFN 127988 . 129153)) (129156 130902 (FB.LOADCOMMAND 129166 - . 129673) (FB.COMPILECOMMAND 129675 . 130213) (FB.OPERATE.ON.FILES 130215 . 130900)) (130903 179088 ( -FB.UPDATECOMMAND 130913 . 131138) (FB.FIX-DIRECTORY-DATES 131140 . 132163) (FB.MAYBE.EXPUNGE 132165 . -133226) (FB.UPDATEBROWSERITEMS 133228 . 146443) (FB.DATE 146445 . 147086) (FB.ADJUST.DATE.WIDTH 147088 - . 150056) (FB.SET.BROWSER.TITLE 150058 . 151060) (FB.MAYBE.WIDEN.NAMES 151062 . 153181) ( -FB.SET.DEFAULT.NAME.WIDTH 153183 . 154547) (FB.CREATE.FILEBUCKET 154549 . 161769) ( -FB.CHECK.NAME.LENGTH 161771 . 164192) (FB.ADD.FILEGROUP 164194 . 165721) (FB.INSERT.DIRECTORY 165723 - . 165961) (FB.MAKE.SUBDIRECTORY.ITEM 165963 . 167372) (FB.ADD.FILE 167374 . 167987) (FB.INSERT.FILE -167989 . 171401) (FB.ANALYZE.PATTERN 171403 . 176667) (FB.CANONICALIZE.PATTERN 176669 . 177981) ( -FB.GETALLFILEINFO 177983 . 179086)) (179089 187248 (FB.SORT.VERSIONS 179099 . 181870) ( -FB.DECREASING.VERSION 181872 . 182541) (FB.INCREASING.VERSION 182543 . 183164) ( -FB.NAMES.DECREASING.VERSION 183166 . 184201) (FB.NAMES.INCREASING.VERSION 184203 . 185200) ( -FB.DECREASING.NUMERIC.ATTR 185202 . 185882) (FB.INCREASING.NUMERIC.ATTR 185884 . 186558) ( -FB.ALPHABETIC.ATTR 186560 . 187246)) (187249 197091 (FB.SORTCOMMAND 187259 . 194089) ( -FB.INSERT.SUBDIRECTORIES 194091 . 194888) (FB.GET.SORT.MENU 194890 . 197089)) (197092 213313 ( -FB.EXPUNGECOMMAND 197102 . 199687) (FB.NEWPATTERNCOMMAND 199689 . 200087) (FB.NEWINFOCOMMAND 200089 . -202921) (FB.DEPTHCOMMAND 202923 . 204698) (FB.SHAPECOMMAND 204700 . 208042) (FB.REMOVE.FILE 208044 . -209865) (FB.COUNT.FILE.CHANGE 209867 . 211312) (FB.SETNEWPATTERN 211314 . 212484) (FB.GET.NEWPATTERN -212486 . 213070) (FB.OPTIONSCOMMAND 213072 . 213311)) (213348 214401 (FB.GETWINDOW 213358 . 214399)) ( -214402 215414 (FB.INFOMENU.SHADEINITIALSELECTIONS 214412 . 215059) (FB.INFO.ITEM.NAMED 215061 . 215412 -)) (215415 224947 (FB.MAKECOUNTERWINDOW 215425 . 216953) (FB.COUNTERW.REDISPLAYFN 216955 . 217542) ( -FB.UPDATE.COUNTERS 217544 . 219616) (FB.DISPLAY.COUNTERS 219618 . 224678) (FB.COUNTER.STRING 224680 . -224945)) (224948 229657 (FB.MAKEHEADINGWINDOW 224958 . 226572) (FB.HEADINGW.REDISPLAYFN 226574 . -226840) (FB.HEADINGW.RESHAPEFN 226842 . 227218) (FB.HEADINGW.DISPLAY 227220 . 229655)) (229658 233841 -(FB.ICONFN 229668 . 230015) (FB.INFOMENU.WHENSELECTEDFN 230017 . 230747) (FB.CLOSEFN 230749 . 231952) -(FB.EXPUNGE?.MENU 231954 . 232366) (FB.AFTERCLOSEFN 232368 . 232729) (FB.CLOSE&EXPUNGE 232731 . 233839 -)) (233842 245900 (FB.HARDCOPY.DIRECTORY 233852 . 244209) (FB.HARDCOPY.PRINT.TITLE 244211 . 244537) ( -FB.HARDCOPY.MAXWIDTH 244539 . 245898))))) + (FILEMAP (NIL (32375 55256 (FB 32385 . 33520) (FB.COPYBINARYCOMMAND 33522 . 33868) (FB.COPYTEXTCOMMAND + 33870 . 34212) (FILEBROWSER 34214 . 47320) (FB.TABLEBROWSER 47322 . 47539) (FB.SELECTEDFILES 47541 . +48178) (FB.FETCHFILENAME 48180 . 48572) (FB.DIRECTORYP 48574 . 48968) (FB.PROMPTWPRINT 48970 . 50016) +(FB.PROMPTW.FORMAT 50018 . 50755) (FB.PROMPTFORINPUT 50757 . 53009) (FB.YES-OR-NO-P 53011 . 54045) ( +FB.ALLOW.ABORT 54047 . 54901) (\\FB.HARDCOPY.TOFILE.EXTENSION 54903 . 55254)) (55280 56233 (FB.STARTUP + 55290 . 55805) (FB.MAKERIGIDWINDOW 55807 . 56231)) (56234 61606 (FB.PRINTFN 56244 . 61397) (FB.COPYFN + 61399 . 61604)) (61656 67996 (FB.MENU.WHENSELECTEDFN 61666 . 62024) (FB.COMMANDSELECTEDFN 62026 . +63565) (FB.SUBITEMP 63567 . 64168) (FB.MAKE.BROWSER.BUSY 64170 . 64974) (FB.FINISH.COMMAND 64976 . +67007) (FB.HANDLE.ABORT.BUTTON 67009 . 67994)) (67997 73513 (FB.DELETECOMMAND 68007 . 68288) ( +FB.DELVERCOMMAND 68290 . 71483) (FB.IS.NOT.SUBDIRECTORY.ITEM 71485 . 71666) (FB.DELVER.FILES 71668 . +72757) (FB.DELETE.FILE 72759 . 73511)) (73514 74839 (FB.UNDELETECOMMAND 73524 . 73809) ( +FB.UNDELETEALLCOMMAND 73811 . 74090) (FB.UNDELETE.FILE 74092 . 74837)) (74840 99021 (FB.COPYCOMMAND +74850 . 75119) (FB.RENAMECOMMAND 75121 . 75396) (FB.COPY/RENAME.COMMAND 75398 . 76321) ( +FB.COPY/RENAME.ONE 76323 . 78645) (FB.COPY/RENAME.MANY 78647 . 84867) (FB.MERGE.DIRECTORIES 84869 . +85287) (FB.GREATEST.PREFIX 85289 . 86645) (FB.MAYBE.INSERT.FILE 86647 . 94087) (FB.GET.NEW.FILE.SPEC +94089 . 97920) (FB.CANONICAL.DIRECTORY 97922 . 99019)) (99022 106806 (FB.HARDCOPYCOMMAND 99032 . +100162) (FB.HARDCOPY.TOFILE 100164 . 106804)) (106807 117006 (FB.EDITCOMMAND 106817 . 107684) ( +FB.EDITCOMMAND.ONEFILE 107686 . 111090) (FB.EDITLISPFILE 111092 . 112197) (FB.BROWSECOMMAND 112199 . +117004)) (117007 128928 (FB.FASTSEECOMMAND 117017 . 120467) (FB.FASTSEE.ONEFILE 120469 . 123626) ( +FB.SEEFULLFN 123628 . 127759) (FB.SEEBUTTONFN 127761 . 128926)) (128929 130675 (FB.LOADCOMMAND 128939 + . 129446) (FB.COMPILECOMMAND 129448 . 129986) (FB.OPERATE.ON.FILES 129988 . 130673)) (130676 178861 ( +FB.UPDATECOMMAND 130686 . 130911) (FB.FIX-DIRECTORY-DATES 130913 . 131936) (FB.MAYBE.EXPUNGE 131938 . +132999) (FB.UPDATEBROWSERITEMS 133001 . 146216) (FB.DATE 146218 . 146859) (FB.ADJUST.DATE.WIDTH 146861 + . 149829) (FB.SET.BROWSER.TITLE 149831 . 150833) (FB.MAYBE.WIDEN.NAMES 150835 . 152954) ( +FB.SET.DEFAULT.NAME.WIDTH 152956 . 154320) (FB.CREATE.FILEBUCKET 154322 . 161542) ( +FB.CHECK.NAME.LENGTH 161544 . 163965) (FB.ADD.FILEGROUP 163967 . 165494) (FB.INSERT.DIRECTORY 165496 + . 165734) (FB.MAKE.SUBDIRECTORY.ITEM 165736 . 167145) (FB.ADD.FILE 167147 . 167760) (FB.INSERT.FILE +167762 . 171174) (FB.ANALYZE.PATTERN 171176 . 176440) (FB.CANONICALIZE.PATTERN 176442 . 177754) ( +FB.GETALLFILEINFO 177756 . 178859)) (178862 187021 (FB.SORT.VERSIONS 178872 . 181643) ( +FB.DECREASING.VERSION 181645 . 182314) (FB.INCREASING.VERSION 182316 . 182937) ( +FB.NAMES.DECREASING.VERSION 182939 . 183974) (FB.NAMES.INCREASING.VERSION 183976 . 184973) ( +FB.DECREASING.NUMERIC.ATTR 184975 . 185655) (FB.INCREASING.NUMERIC.ATTR 185657 . 186331) ( +FB.ALPHABETIC.ATTR 186333 . 187019)) (187022 196864 (FB.SORTCOMMAND 187032 . 193862) ( +FB.INSERT.SUBDIRECTORIES 193864 . 194661) (FB.GET.SORT.MENU 194663 . 196862)) (196865 213086 ( +FB.EXPUNGECOMMAND 196875 . 199460) (FB.NEWPATTERNCOMMAND 199462 . 199860) (FB.NEWINFOCOMMAND 199862 . +202694) (FB.DEPTHCOMMAND 202696 . 204471) (FB.SHAPECOMMAND 204473 . 207815) (FB.REMOVE.FILE 207817 . +209638) (FB.COUNT.FILE.CHANGE 209640 . 211085) (FB.SETNEWPATTERN 211087 . 212257) (FB.GET.NEWPATTERN +212259 . 212843) (FB.OPTIONSCOMMAND 212845 . 213084)) (213121 214174 (FB.GETWINDOW 213131 . 214172)) ( +214175 215187 (FB.INFOMENU.SHADEINITIALSELECTIONS 214185 . 214832) (FB.INFO.ITEM.NAMED 214834 . 215185 +)) (215188 224720 (FB.MAKECOUNTERWINDOW 215198 . 216726) (FB.COUNTERW.REDISPLAYFN 216728 . 217315) ( +FB.UPDATE.COUNTERS 217317 . 219389) (FB.DISPLAY.COUNTERS 219391 . 224451) (FB.COUNTER.STRING 224453 . +224718)) (224721 229430 (FB.MAKEHEADINGWINDOW 224731 . 226345) (FB.HEADINGW.REDISPLAYFN 226347 . +226613) (FB.HEADINGW.RESHAPEFN 226615 . 226991) (FB.HEADINGW.DISPLAY 226993 . 229428)) (229431 233614 +(FB.ICONFN 229441 . 229788) (FB.INFOMENU.WHENSELECTEDFN 229790 . 230520) (FB.CLOSEFN 230522 . 231725) +(FB.EXPUNGE?.MENU 231727 . 232139) (FB.AFTERCLOSEFN 232141 . 232502) (FB.CLOSE&EXPUNGE 232504 . 233612 +)) (233615 245673 (FB.HARDCOPY.DIRECTORY 233625 . 243982) (FB.HARDCOPY.PRINT.TITLE 243984 . 244310) ( +FB.HARDCOPY.MAXWIDTH 244312 . 245671))))) STOP diff --git a/library/FILEBROWSER.LCOM b/library/FILEBROWSER.LCOM index f22d1f4f4..d6b6eea57 100644 Binary files a/library/FILEBROWSER.LCOM and b/library/FILEBROWSER.LCOM differ diff --git a/library/SKETCH b/library/SKETCH index 3de923f05..a4897d9c8 100644 --- a/library/SKETCH +++ b/library/SKETCH @@ -1,11 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 1-Feb-2022 09:17:12" {DSK}kaplan>Local>medley3.5>my-medley>library>SKETCH.;2 490756 +(FILECREATED " 4-Aug-2022 09:58:03" {DSK}larry>medley>library>SKETCH.;2 491064 - :CHANGES-TO (FNS SKETCH.PUT) + :CHANGES-TO (FNS SKETCH.COMMANDMENU.ITEMS) - :PREVIOUS-DATE "21-Jan-93 11:59:03" -{DSK}kaplan>Local>medley3.5>my-medley>library>SKETCH.;1) + :PREVIOUS-DATE " 1-Feb-2022 09:17:12" {DSK}larry>medley>library>SKETCH.;1) (* ; " @@ -1358,10 +1357,9 @@ This will be slow for arcs and curves."] TITLE _ TITLE]) (SKETCH.COMMANDMENU.ITEMS - [LAMBDA (ADDFIXITEM ELEMENTTYPES VIEWER) (* rrb "24-Sep-86 18:11") - - (* returns a list of the items that are in the sketch command menu.) - + [LAMBDA (ADDFIXITEM ELEMENTTYPES VIEWER) (* rrb "24-Sep-86 18:11") + (* returns a list of the items that + are in the sketch command menu.) (APPEND '[(Delete SK.DELETE.ELT "Deletes one or more elements from the sketch." (SUBITEMS ("Delete element(s)" SK.DELETE.ELT "Deletes one or more elements from the sketch.") @@ -1388,15 +1386,18 @@ This will be slow for arcs and curves."] (Combined SK.SET.MOVE.MODE.COMBINED "MOVE command will move points if a single point is clicked; elements otherwise" ] - '[(Copy SK.COPY.ELT "Copies a piece of the sketch." (SUBITEMS ("Copy elements" SK.COPY.ELT + '[(Copy SK.COPY.ELT "Copies a piece of the sketch." (SUBITEMS ("Copy elements" SK.COPY.ELT + "copies one or more elements of the sketch." ) ("Copy w/2 pt trans" - SK.COPY.AND.TWO.PT.TRANSFORM.ELTS + SK.COPY.AND.TWO.PT.TRANSFORM.ELTS + "Copies one or more sketch elements with a two point transformation." ) ("Copy w/3 pt trans" - SK.COPY.AND.THREE.PT.TRANSFORM.ELTS + SK.COPY.AND.THREE.PT.TRANSFORM.ELTS + "Copies one or more sketch elements with a three point transformation." ] '[(Align SK.ALIGN.POINTS.LEFT "Aligns a collection of points with the leftmost one." @@ -8763,149 +8764,149 @@ Otherwise, type '^'.") ) (PUTPROPS SKETCH COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1992 1993)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22155 85518 (SKETCH 22165 . 24270) (SKETCH.FROM.A.FILE 24272 . 24587) (SKETCHW.CREATE -24589 . 29163) (SKETCH.RESET 29165 . 30687) (SKETCHW.FIG.CHANGED 30689 . 31029) (SK.WINDOW.TITLE 31031 - . 31418) (EDITSLIDE 31420 . 31826) (EDITSKETCH 31828 . 32152) (SK.PUT.ON.FILE 32154 . 33606) ( -SK.OUTPUT.FILE.NAME 33608 . 33982) (SKETCH.PUT 33984 . 36882) (SK.GET.FROM.FILE 36884 . 37777) ( -SK.INCLUDE.FILE 37779 . 40287) (SK.GET.IMAGEOBJ.FROM.FILE 40289 . 42492) (SKETCH.GET 42494 . 42801) ( -ADD.SKETCH.TO.VIEWER 42803 . 45389) (FILENAMELESSVERSION 45391 . 45667) (SK.ADD.ELEMENTS.TO.SKETCH -45669 . 46183) (SKETCH.SET.A.DEFAULT 46185 . 53343) (SK.POPUP.SELECTIONFN 53345 . 53887) ( -GETSKETCHWREGION 53889 . 54095) (SK.ADD.ELEMENT 54097 . 55676) (SK.ADD.PRIORITY.ELEMENT.TO.SKETCH -55678 . 57072) (SK.ELTS.BY.PRIORITY 57074 . 57370) (SK.ORDER.ELEMENTS 57372 . 57639) ( -SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 57641 . 59135) (SK.ADD.ELEMENTS 59137 . 59661) ( -SK.CHECK.WHENADDEDFN 59663 . 60393) (SK.APPLY.MENU.COMMAND 60395 . 61193) (SK.DELETE.ELEMENT1 61195 . -62773) (SK.MARK.DIRTY 62775 . 63441) (SK.MARK.UNDIRTY 63443 . 63774) (SK.MENU.AND.RETURN.FIELD 63776 - . 64441) (SKETCH.SET.BRUSH.SHAPE 64443 . 65028) (SKETCH.SET.BRUSH.SIZE 65030 . 65536) ( -SKETCHW.CLOSEFN 65538 . 67329) (SK.CONFIRM.DESTRUCTION 67331 . 68330) (SKETCHW.OUTFN 68332 . 68596) ( -SKETCHW.REOPENFN 68598 . 69010) (MAKE.LOCAL.SKETCH 69012 . 69742) (MAP.SKETCHSPEC.INTO.VIEWER 69744 . -70954) (SKETCHW.REPAINTFN 70956 . 71784) (SKETCHW.REPAINTFN1 71786 . 72725) (SK.DRAWFIGURE.IF 72727 . -73249) (SKETCHW.SCROLLFN 73251 . 77444) (SKETCHW.RESHAPEFN 77446 . 79704) (SK.UPDATE.EVENT.SELECTION -79706 . 81761) (LIGHTGRAYWINDOW 81763 . 81926) (SK.ADD.SPACES 81928 . 82674) (SK.SKETCH.MENU 82676 . -82998) (SK.CHECK.IMAGEOBJ.WHENDELETEDFN 83000 . 83852) (SK.APPLY.IMAGEOBJ.WHENDELETEDFN 83854 . 84814) - (SK.RETURN.TTY 84816 . 85184) (SK.TAKE.TTY 85186 . 85516)) (85572 108565 (SKETCH.COMMANDMENU 85582 . -85919) (SKETCH.COMMANDMENU.ITEMS 85921 . 105669) (CREATE.SKETCHW.COMMANDMENU 105671 . 106091) ( -SKETCHW.SELECTIONFN 106093 . 107196) (SKETCH.MONITORLOCK 107198 . 107669) (SK.EVAL.AS.PROCESS 107671 - . 108284) (SK.EVAL.WITH.LOCK 108286 . 108563)) (108566 116370 (SK.FIX.MENU 108576 . 109670) ( -SK.SET.UP.MENUS 109672 . 111973) (SK.INSURE.HAS.MENU 111975 . 112637) (SK.CREATE.STANDARD.MENU 112639 - . 113084) (SK.ADD.ITEM.TO.MENU 113086 . 113761) (SK.GET.VIEWER.POPUP.MENU 113763 . 115964) ( -SK.CLEAR.POPUP.MENU 115966 . 116368)) (116426 125248 (SKETCH.CREATE 116436 . 117222) (GETSKETCHPROP -117224 . 120281) (PUTSKETCHPROP 120283 . 124215) (CREATE.DEFAULT.SKETCH.CONTEXT 124217 . 125246)) ( -125414 148310 (SK.COPY.BUTTONEVENTFN 125424 . 136652) (SK.BUTTONEVENT.MARK 136654 . 137037) ( -SK.BUILD.IMAGEOBJ 137039 . 146954) (SK.BUTTONEVENT.OVERP 146956 . 147579) (SK.BUTTONEVENT.SAME.KEYS -147581 . 148308)) (148589 174404 (SK.SEL.AND.CHANGE 148599 . 148891) (SK.CHECK.WHENCHANGEDFN 148893 . -149599) (SK.CHECK.PRECHANGEFN 149601 . 150202) (SK.CHANGE.ELT 150204 . 150396) (SK.CHANGE.THING 150398 - . 151649) (SKETCH.CHANGE.ELEMENTS 151651 . 152834) (SK.APPLY.SINGLE.CHANGEFN 152836 . 153409) ( -SK.DO.CHANGESPECS 153411 . 155070) (SK.VIEWER.FROM.SKETCH.ARG 155072 . 155514) (SK.DO.CHANGESPEC1 -155516 . 157391) (SK.CHANGEFN 157393 . 157973) (SK.READCHANGEFN 157975 . 158434) (SK.DEFAULT.CHANGEFN -158436 . 160908) (CHANGEABLEFIELDITEMS 160910 . 161557) (SK.APPLY.CHANGE.COMMAND 161559 . 162176) ( -SK.DO.AND.RECORD.CHANGES 162178 . 163575) (SK.APPLY.CHANGE.COMMAND1 163577 . 165065) ( -SK.ELEMENTS.CHANGEFN 165067 . 167391) (READ.POINT.TO.ADD 167393 . 168337) (GLOBAL.KNOT.FROM.LOCAL -168339 . 168799) (SK.ADD.KNOT.TO.ELEMENT 168801 . 169745) (SK.GROUP.CHANGEFN 169747 . 170959) ( -SK.GROUP.CHANGEFN1 170961 . 174402)) (174571 188304 (ADD.ELEMENT.TO.SKETCH 174581 . 176287) ( -ADD.SKETCH.VIEWER 176289 . 176957) (REMOVE.SKETCH.VIEWER 176959 . 177572) (ALL.SKETCH.VIEWERS 177574 - . 177814) (SKETCH.ALL.VIEWERS 177816 . 178076) (VIEWER.BUCKET 178078 . 178229) (ELT.INSIDE.REGION? -178231 . 178558) (ELT.INSIDE.SKWP 178560 . 178851) (SCALE.FROM.SKW 178853 . 179103) ( -SK.ADDELT.TO.WINDOW 179105 . 179965) (SK.CALC.REGION.VIEWED 179967 . 180345) (SK.DRAWFIGURE 180347 . -181636) (SK.DRAWFIGURE1 181638 . 182022) (SK.LOCAL.FROM.GLOBAL 182024 . 183259) (SKETCH.REGION.VIEWED -183261 . 185948) (SKETCH.VIEW.FROM.NAME 185950 . 186380) (SK.UPDATE.REGION.VIEWED 186382 . 186774) ( -SKETCH.ADD.AND.DISPLAY 186776 . 187184) (SKETCH.ADD.AND.DISPLAY1 187186 . 187624) (SK.ADD.ITEM 187626 - . 187958) (SKETCHW.ADD.INSTANCE 187960 . 188302)) (188345 201533 (SK.SEL.AND.DELETE 188355 . 188743) -(SK.ERASE.AND.DELETE.ITEM 188745 . 189164) (REMOVE.ELEMENT.FROM.SKETCH 189166 . 190277) ( -SK.DELETE.ELEMENT 190279 . 190837) (SK.DELETE.ELEMENT2 190839 . 191500) (SK.DELETE.KNOT 191502 . -191793) (SK.SEL.AND.DELETE.KNOT 191795 . 192920) (SK.DELETE.ELEMENT.KNOT 192922 . 196129) ( -SK.CHECK.WHENDELETEDFN 196131 . 196911) (SK.CHECK.PREEDITFN 196913 . 197397) ( -SK.CHECK.END.INITIAL.EDIT 197399 . 197933) (SK.CHECK.WHENPOINTDELETEDFN 197935 . 198731) (SK.ERASE.ELT - 198733 . 199069) (SK.DELETE.ELT 199071 . 199446) (SK.DELETE.ITEM 199448 . 199856) (DELFROMTCONC -199858 . 201531)) (201572 215406 (SK.COPY.ELT 201582 . 201952) (SK.SEL.AND.COPY 201954 . 202337) ( -SK.COPY.ELEMENTS 202339 . 207967) (SK.ADD.COPY.OF.ELEMENTS 207969 . 209736) ( -SK.GLOBAL.FROM.LOCAL.ELEMENTS 209738 . 209978) (SK.COPY.ITEM 209980 . 210777) (SK.INSERT.SKETCH 210779 - . 215404)) (215446 245467 (SK.MOVE.ELT 215456 . 215731) (SK.MOVE.ELT.OR.PT 215733 . 216046) ( -SK.APPLY.DEFAULT.MOVE 216048 . 216482) (SK.SEL.AND.MOVE 216484 . 217031) (SK.MOVE.ELEMENTS 217033 . -227905) (SKETCH.MOVE.ELEMENTS 227907 . 229838) (SKETCH.COPY.ELEMENTS 229840 . 231887) ( -\SKETCH.COPY.ELEMENT 231889 . 232614) (SK.TRANSLATE.ELEMENT 232616 . 233099) (SK.COPY.GLOBAL.ELEMENT -233101 . 233312) (SK.MAKE.ELEMENT.MOVE.ARG 233314 . 233934) (SK.MAKE.ELEMENTS.MOVE.ARG 233936 . 234458 -) (SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 234460 . 235529) (SK.SHOW.FIG.FROM.INFO 235531 . 235899) ( -SK.MOVE.THING 235901 . 236807) (UPDATE.ELEMENT.IN.SKETCH 236809 . 238864) (SK.UPDATE.ELEMENT 238866 . -240425) (SK.UPDATE.ELEMENTS 240427 . 241146) (SK.UPDATE.ELEMENT1 241148 . 245048) ( -SK.MOVE.ELEMENT.POINT 245050 . 245465)) (245530 267819 (SK.MOVE.POINTS 245540 . 245827) ( -SK.SEL.AND.MOVE.POINTS 245829 . 246134) (SK.DO.MOVE.ELEMENT.POINTS 246136 . 254793) ( -SK.MOVE.ITEM.POINTS 254795 . 256466) (SK.TRANSLATEPTSFN 256468 . 256852) (SK.TRANSLATE.POINTS 256854 - . 257755) (SK.SELECT.MULTIPLE.POINTS 257757 . 263397) (SK.CONTROL.POINTS.IN.REGION 263399 . 264820) ( -SK.ADD.PT.SELECTION 264822 . 265286) (SK.REMOVE.PT.SELECTION 265288 . 265905) (SK.ADD.POINT 265907 . -266530) (SK.ELTS.CONTAINING.PTS 266532 . 267157) (SK.HOTSPOTS.NOT.ON.LIST 267159 . 267817)) (267977 -270773 (SK.SET.MOVE.MODE 267987 . 268658) (SK.SET.MOVE.MODE.POINTS 268660 . 268999) ( -SK.SET.MOVE.MODE.ELEMENTS 269001 . 269345) (SK.SET.MOVE.MODE.COMBINED 269347 . 269697) (READMOVEMODE -269699 . 270771)) (270774 289529 (SK.ALIGN.POINTS 270784 . 271074) (SK.SEL.AND.ALIGN.POINTS 271076 . -271385) (SK.ALIGN.POINTS.LEFT 271387 . 271690) (SK.ALIGN.POINTS.RIGHT 271692 . 271997) ( -SK.ALIGN.POINTS.TOP 271999 . 272300) (SK.ALIGN.POINTS.BOTTOM 272302 . 272609) ( -SK.EVEN.SPACE.POINTS.IN.X 272611 . 272931) (SK.EVEN.SPACE.POINTS.IN.Y 272933 . 273253) ( -SK.DO.ALIGN.POINTS 273255 . 283877) (SK.NTH.CONTROL.POINT 283879 . 284340) ( -SK.GET.SELECTED.ELEMENT.STRUCTURE 284342 . 285008) (SK.CORRESPONDING.CONTROL.PT 285010 . 285564) ( -SK.CONTROL.POINT.NUMBER 285566 . 285936) (SK.DO.ALIGN.SETVALUE 285938 . 289527)) (289593 303025 ( -SKETCH.CREATE.GROUP 289603 . 290092) (SK.CREATE.GROUP1 290094 . 290641) (SK.UPDATE.GROUP.AFTER.CHANGE -290643 . 291432) (SK.GROUP.ELTS 291434 . 291715) (SK.SEL.AND.GROUP 291717 . 292103) (SK.GROUP.ELEMENTS - 292105 . 293754) (SK.UNGROUP.ELT 293756 . 294040) (SK.SEL.AND.UNGROUP 294042 . 295711) ( -SK.UNGROUP.ELEMENT 295713 . 296649) (SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 296651 . 297573) ( -SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 297575 . 298586) (SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 298588 . -299928) (SK.UNIONREGIONS 299930 . 302296) (SKETCH.REGION.OF.SKETCH 302298 . 302714) (SK.FLASHREGION -302716 . 303023)) (303026 316497 (INIT.GROUP.ELEMENT 303036 . 303908) (GROUP.DRAWFN 303910 . 304360) ( -GROUP.EXPANDFN 304362 . 305925) (GROUP.INSIDEFN 305927 . 306336) (GROUP.REGIONFN 306338 . 306733) ( -GROUP.GLOBALREGIONFN 306735 . 307053) (GROUP.TRANSLATEFN 307055 . 309087) (GROUP.TRANSFORMFN 309089 . -312569) (GROUP.READCHANGEFN 312571 . 316495)) (316498 317506 (REGION.CENTER 316508 . 317109) ( -REMOVE.LAST 317111 . 317504)) (317559 322666 (SK.MOVE.GROUP.CONTROL.PT 317569 . 317860) ( -SK.SEL.AND.MOVE.CONTROL.PT 317862 . 319266) (SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 319268 . 321341) ( -SK.READ.NEW.GROUP.CONTROL.PT 321343 . 322664)) (322925 327549 (SK.DO.GROUP 322935 . 324387) ( -SK.CHECK.WHENGROUPEDFN 324389 . 325099) (SK.DO.UNGROUP 325101 . 326306) (SK.CHECK.WHENUNGROUPEDFN -326308 . 326895) (SK.GROUP.UNDO 326897 . 327220) (SK.UNGROUP.UNDO 327222 . 327547)) (327790 332712 ( -SK.FREEZE.ELTS 327800 . 328084) (SK.SEL.AND.FREEZE 328086 . 328476) (SK.FREEZE.ELEMENTS 328478 . -329029) (SK.UNFREEZE.ELT 329031 . 329320) (SK.SEL.AND.UNFREEZE 329322 . 330858) (SK.UNFREEZE.ELEMENTS -330860 . 331419) (SK.FREEZE.UNDO 331421 . 331666) (SK.UNFREEZE.UNDO 331668 . 331915) (SK.DO.FREEZE -331917 . 332310) (SK.DO.UNFREEZE 332312 . 332710)) (332942 342752 (SKETCH.ELEMENTS.OF.SKETCH 332952 . -333787) (SKETCH.LIST.OF.ELEMENTS 333789 . 334507) (SKETCH.ADD.ELEMENT 334509 . 335584) ( -SKETCH.DELETE.ELEMENT 335586 . 337318) (DELFROMGROUPELT 337320 . 338120) (SKETCH.ELEMENT.TYPE 338122 - . 338471) (SKETCH.ELEMENT.CHANGED 338473 . 340041) (SK.ELEMENT.CHANGED1 340043 . 340694) ( -SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 340696 . 342750)) (342806 347418 (INSURE.SKETCH 342816 . 345431) - (LOCALSPECS.FROM.VIEWER 345433 . 345793) (SK.LOCAL.ELT.FROM.GLOBALPART 345795 . 346263) ( -SKETCH.FROM.VIEWER 346265 . 346499) (INSPECT.SKETCH 346501 . 346826) (ELT.INSIDE.SKETCHWP 346828 . -347101) (SK.INSIDE.REGION 347103 . 347416)) (347419 351749 (MAPSKETCHSPECS 347429 . 348050) ( -MAPCOLLECTSKETCHSPECS 348052 . 348801) (MAPSKETCHSPECSUNTIL 348803 . 349611) (MAPGLOBALSKETCHSPECS -349613 . 350314) (MAPGLOBALSKETCHELEMENTS 350316 . 351747)) (351811 377703 (SK.ADD.SELECTION 351821 . -352561) (SK.COPY.INSERTFN 352563 . 356194) (SCREENELEMENTP 356196 . 356669) (SK.ITEM.REGION 356671 . -357158) (SK.ELEMENT.GLOBAL.REGION 357160 . 357688) (SK.LOCAL.ITEMS.IN.REGION 357690 . 359669) ( -SK.REGIONFN 359671 . 359993) (SK.GLOBAL.REGIONFN 359995 . 360353) (SK.REMOVE.SELECTION 360355 . 361083 -) (SK.SELECT.MULTIPLE.ITEMS 361085 . 371527) (SKETCH.GET.ELEMENTS 371529 . 372952) (SK.PUT.MARKS.UP -372954 . 373293) (SK.TAKE.MARKS.DOWN 373295 . 373634) (SK.TRANSLATE.GLOBALPART 373636 . 375763) ( -SK.TRANSLATE.ITEM 375765 . 376692) (SK.TRANSLATEFN 376694 . 376890) (TRANSLATE.SKETCH 376892 . 377701) -) (377969 380876 (SK.INPUT.SCALE 377979 . 378826) (SK.UPDATE.SKETCHCONTEXT 378828 . 379425) ( -SK.SET.INPUT.SCALE 379427 . 380076) (SK.SET.INPUT.SCALE.CURRENT 380078 . 380369) ( -SK.SET.INPUT.SCALE.VALUE 380371 . 380874)) (380927 382839 (SK.SET.FEEDBACK.MODE 380937 . 382243) ( -SK.SET.FEEDBACK.POINT 382245 . 382413) (SK.SET.FEEDBACK.VERBOSE 382415 . 382584) ( -SK.SET.FEEDBACK.ALWAYS 382586 . 382837)) (382990 384267 (SKETCH.TITLE 383000 . 383263) ( -SK.SHRINK.ICONCREATE 383265 . 384265)) (389957 392771 (READBRUSHSHAPE 389967 . 390426) (READ.FUNCTION -390428 . 390943) (READBRUSHSIZE 390945 . 391403) (READANGLE 391405 . 391897) (READARCDIRECTION 391899 - . 392769)) (392772 403183 (SK.CHANGE.DASHING 392782 . 396730) (READ.AND.SAVE.NEW.DASHING 396732 . -398500) (READ.NEW.DASHING 398502 . 400242) (READ.DASHING.CHANGE 400244 . 401719) (SK.CACHE.DASHING -401721 . 402723) (SK.DASHING.LABEL 402725 . 403181)) (403184 406889 (READ.FILLING.CHANGE 403194 . -405175) (SK.CACHE.FILLING 405177 . 405895) (READ.AND.SAVE.NEW.FILLING 405897 . 406495) ( -SK.FILLING.LABEL 406497 . 406887)) (407273 443526 (SK.GETGLOBALPOSITION 407283 . 407588) ( -SKETCH.TRACK.ELEMENTS 407590 . 411110) (SK.PICKOUT.WHOLE.MOVE.ELEMENTS 411112 . 411671) ( -MAP.SKETCH.ELEMENTS.INTO.VIEWER 411673 . 412065) (MAP.GLOBAL.POSITION.INTO.VIEWER 412067 . 412447) ( -SKETCH.TO.VIEWER.POSITION 412449 . 412808) (SKETCH.TRACK.IMAGE 412810 . 413664) (SK.TRACK.IMAGE1 -413666 . 415078) (MAP.VIEWER.XY.INTO.GLOBAL 415080 . 416074) (SK.SET.POSITION 416076 . 416412) ( -MAP.VIEWER.PT.INTO.GLOBAL 416414 . 417520) (VIEWER.TO.SKETCH.POSITION 417522 . 418157) ( -SK.INSURE.SCALE 418159 . 418419) (SKETCH.TO.VIEWER.REGION 418421 . 419227) (VIEWER.TO.SKETCH.REGION -419229 . 419567) (SK.READ.POINT.WITH.FEEDBACK 419569 . 430572) (SKETCH.GET.POSITION 430574 . 432454) ( -\CLOBBER.POSITION 432456 . 432904) (NEAREST.HOT.SPOT 432906 . 434434) (GETWREGION 434436 . 435197) ( -GET.BITMAP.POSITION 435199 . 435983) (SK.TRACK.BITMAP1 435985 . 443524)) (444095 474981 ( -SK.BRING.UP.POSITION.PAD 444105 . 449965) (SK.PAD.READER.POSITION 449967 . 451616) ( -SK.POSITION.READER.REPAINTFN 451618 . 453402) (SK.POSITION.PAD.FROM.VIEWER 453404 . 454746) ( -SK.INIT.POSITION.NUMBER.PAD.MENU 454748 . 455098) (SK.READ.POSITION.PAD.HANDLER 455100 . 460832) ( -DISPLAY.POSITION.READER.TOTAL 460834 . 463132) (POSITION.PAD.READER.HANDLER 463134 . 471177) ( -POSITIONPAD.HELDFN 471179 . 472663) (\POSITION.PAD.ADD.DIGIT.MENU 472665 . 474244) ( -\POSITION.READER.NUMBERPAD 474246 . 474979)) (476607 479285 (SK.DRAWFN 476617 . 476983) ( -SK.TRANSFORMFN 476985 . 477366) (SK.EXPANDFN 477368 . 477645) (SK.INPUT 477647 . 478028) (SK.INSIDEFN -478030 . 478670) (SK.UPDATEFN 478672 . 479283)) (484857 488802 (SK.CHECK.SKETCH.VERSION 484867 . -486107) (SK.INSURE.RECORD.LENGTH 486109 . 487592) (SK.INSURE.HAS.LENGTH 487594 . 488332) ( -SK.RECORD.LENGTH 488334 . 488508) (SK.SET.RECORD.LENGTHS 488510 . 488800)) (489543 490430 ( -SK.ADD.EDIT.COMMAND.TO.FILE.BROWSER 489553 . 490428))))) + (FILEMAP (NIL (22128 85491 (SKETCH 22138 . 24243) (SKETCH.FROM.A.FILE 24245 . 24560) (SKETCHW.CREATE +24562 . 29136) (SKETCH.RESET 29138 . 30660) (SKETCHW.FIG.CHANGED 30662 . 31002) (SK.WINDOW.TITLE 31004 + . 31391) (EDITSLIDE 31393 . 31799) (EDITSKETCH 31801 . 32125) (SK.PUT.ON.FILE 32127 . 33579) ( +SK.OUTPUT.FILE.NAME 33581 . 33955) (SKETCH.PUT 33957 . 36855) (SK.GET.FROM.FILE 36857 . 37750) ( +SK.INCLUDE.FILE 37752 . 40260) (SK.GET.IMAGEOBJ.FROM.FILE 40262 . 42465) (SKETCH.GET 42467 . 42774) ( +ADD.SKETCH.TO.VIEWER 42776 . 45362) (FILENAMELESSVERSION 45364 . 45640) (SK.ADD.ELEMENTS.TO.SKETCH +45642 . 46156) (SKETCH.SET.A.DEFAULT 46158 . 53316) (SK.POPUP.SELECTIONFN 53318 . 53860) ( +GETSKETCHWREGION 53862 . 54068) (SK.ADD.ELEMENT 54070 . 55649) (SK.ADD.PRIORITY.ELEMENT.TO.SKETCH +55651 . 57045) (SK.ELTS.BY.PRIORITY 57047 . 57343) (SK.ORDER.ELEMENTS 57345 . 57612) ( +SK.ADD.PRIORITY.LOCAL.ELEMENT.TO.SKETCH 57614 . 59108) (SK.ADD.ELEMENTS 59110 . 59634) ( +SK.CHECK.WHENADDEDFN 59636 . 60366) (SK.APPLY.MENU.COMMAND 60368 . 61166) (SK.DELETE.ELEMENT1 61168 . +62746) (SK.MARK.DIRTY 62748 . 63414) (SK.MARK.UNDIRTY 63416 . 63747) (SK.MENU.AND.RETURN.FIELD 63749 + . 64414) (SKETCH.SET.BRUSH.SHAPE 64416 . 65001) (SKETCH.SET.BRUSH.SIZE 65003 . 65509) ( +SKETCHW.CLOSEFN 65511 . 67302) (SK.CONFIRM.DESTRUCTION 67304 . 68303) (SKETCHW.OUTFN 68305 . 68569) ( +SKETCHW.REOPENFN 68571 . 68983) (MAKE.LOCAL.SKETCH 68985 . 69715) (MAP.SKETCHSPEC.INTO.VIEWER 69717 . +70927) (SKETCHW.REPAINTFN 70929 . 71757) (SKETCHW.REPAINTFN1 71759 . 72698) (SK.DRAWFIGURE.IF 72700 . +73222) (SKETCHW.SCROLLFN 73224 . 77417) (SKETCHW.RESHAPEFN 77419 . 79677) (SK.UPDATE.EVENT.SELECTION +79679 . 81734) (LIGHTGRAYWINDOW 81736 . 81899) (SK.ADD.SPACES 81901 . 82647) (SK.SKETCH.MENU 82649 . +82971) (SK.CHECK.IMAGEOBJ.WHENDELETEDFN 82973 . 83825) (SK.APPLY.IMAGEOBJ.WHENDELETEDFN 83827 . 84787) + (SK.RETURN.TTY 84789 . 85157) (SK.TAKE.TTY 85159 . 85489)) (85545 108873 (SKETCH.COMMANDMENU 85555 . +85892) (SKETCH.COMMANDMENU.ITEMS 85894 . 105977) (CREATE.SKETCHW.COMMANDMENU 105979 . 106399) ( +SKETCHW.SELECTIONFN 106401 . 107504) (SKETCH.MONITORLOCK 107506 . 107977) (SK.EVAL.AS.PROCESS 107979 + . 108592) (SK.EVAL.WITH.LOCK 108594 . 108871)) (108874 116678 (SK.FIX.MENU 108884 . 109978) ( +SK.SET.UP.MENUS 109980 . 112281) (SK.INSURE.HAS.MENU 112283 . 112945) (SK.CREATE.STANDARD.MENU 112947 + . 113392) (SK.ADD.ITEM.TO.MENU 113394 . 114069) (SK.GET.VIEWER.POPUP.MENU 114071 . 116272) ( +SK.CLEAR.POPUP.MENU 116274 . 116676)) (116734 125556 (SKETCH.CREATE 116744 . 117530) (GETSKETCHPROP +117532 . 120589) (PUTSKETCHPROP 120591 . 124523) (CREATE.DEFAULT.SKETCH.CONTEXT 124525 . 125554)) ( +125722 148618 (SK.COPY.BUTTONEVENTFN 125732 . 136960) (SK.BUTTONEVENT.MARK 136962 . 137345) ( +SK.BUILD.IMAGEOBJ 137347 . 147262) (SK.BUTTONEVENT.OVERP 147264 . 147887) (SK.BUTTONEVENT.SAME.KEYS +147889 . 148616)) (148897 174712 (SK.SEL.AND.CHANGE 148907 . 149199) (SK.CHECK.WHENCHANGEDFN 149201 . +149907) (SK.CHECK.PRECHANGEFN 149909 . 150510) (SK.CHANGE.ELT 150512 . 150704) (SK.CHANGE.THING 150706 + . 151957) (SKETCH.CHANGE.ELEMENTS 151959 . 153142) (SK.APPLY.SINGLE.CHANGEFN 153144 . 153717) ( +SK.DO.CHANGESPECS 153719 . 155378) (SK.VIEWER.FROM.SKETCH.ARG 155380 . 155822) (SK.DO.CHANGESPEC1 +155824 . 157699) (SK.CHANGEFN 157701 . 158281) (SK.READCHANGEFN 158283 . 158742) (SK.DEFAULT.CHANGEFN +158744 . 161216) (CHANGEABLEFIELDITEMS 161218 . 161865) (SK.APPLY.CHANGE.COMMAND 161867 . 162484) ( +SK.DO.AND.RECORD.CHANGES 162486 . 163883) (SK.APPLY.CHANGE.COMMAND1 163885 . 165373) ( +SK.ELEMENTS.CHANGEFN 165375 . 167699) (READ.POINT.TO.ADD 167701 . 168645) (GLOBAL.KNOT.FROM.LOCAL +168647 . 169107) (SK.ADD.KNOT.TO.ELEMENT 169109 . 170053) (SK.GROUP.CHANGEFN 170055 . 171267) ( +SK.GROUP.CHANGEFN1 171269 . 174710)) (174879 188612 (ADD.ELEMENT.TO.SKETCH 174889 . 176595) ( +ADD.SKETCH.VIEWER 176597 . 177265) (REMOVE.SKETCH.VIEWER 177267 . 177880) (ALL.SKETCH.VIEWERS 177882 + . 178122) (SKETCH.ALL.VIEWERS 178124 . 178384) (VIEWER.BUCKET 178386 . 178537) (ELT.INSIDE.REGION? +178539 . 178866) (ELT.INSIDE.SKWP 178868 . 179159) (SCALE.FROM.SKW 179161 . 179411) ( +SK.ADDELT.TO.WINDOW 179413 . 180273) (SK.CALC.REGION.VIEWED 180275 . 180653) (SK.DRAWFIGURE 180655 . +181944) (SK.DRAWFIGURE1 181946 . 182330) (SK.LOCAL.FROM.GLOBAL 182332 . 183567) (SKETCH.REGION.VIEWED +183569 . 186256) (SKETCH.VIEW.FROM.NAME 186258 . 186688) (SK.UPDATE.REGION.VIEWED 186690 . 187082) ( +SKETCH.ADD.AND.DISPLAY 187084 . 187492) (SKETCH.ADD.AND.DISPLAY1 187494 . 187932) (SK.ADD.ITEM 187934 + . 188266) (SKETCHW.ADD.INSTANCE 188268 . 188610)) (188653 201841 (SK.SEL.AND.DELETE 188663 . 189051) +(SK.ERASE.AND.DELETE.ITEM 189053 . 189472) (REMOVE.ELEMENT.FROM.SKETCH 189474 . 190585) ( +SK.DELETE.ELEMENT 190587 . 191145) (SK.DELETE.ELEMENT2 191147 . 191808) (SK.DELETE.KNOT 191810 . +192101) (SK.SEL.AND.DELETE.KNOT 192103 . 193228) (SK.DELETE.ELEMENT.KNOT 193230 . 196437) ( +SK.CHECK.WHENDELETEDFN 196439 . 197219) (SK.CHECK.PREEDITFN 197221 . 197705) ( +SK.CHECK.END.INITIAL.EDIT 197707 . 198241) (SK.CHECK.WHENPOINTDELETEDFN 198243 . 199039) (SK.ERASE.ELT + 199041 . 199377) (SK.DELETE.ELT 199379 . 199754) (SK.DELETE.ITEM 199756 . 200164) (DELFROMTCONC +200166 . 201839)) (201880 215714 (SK.COPY.ELT 201890 . 202260) (SK.SEL.AND.COPY 202262 . 202645) ( +SK.COPY.ELEMENTS 202647 . 208275) (SK.ADD.COPY.OF.ELEMENTS 208277 . 210044) ( +SK.GLOBAL.FROM.LOCAL.ELEMENTS 210046 . 210286) (SK.COPY.ITEM 210288 . 211085) (SK.INSERT.SKETCH 211087 + . 215712)) (215754 245775 (SK.MOVE.ELT 215764 . 216039) (SK.MOVE.ELT.OR.PT 216041 . 216354) ( +SK.APPLY.DEFAULT.MOVE 216356 . 216790) (SK.SEL.AND.MOVE 216792 . 217339) (SK.MOVE.ELEMENTS 217341 . +228213) (SKETCH.MOVE.ELEMENTS 228215 . 230146) (SKETCH.COPY.ELEMENTS 230148 . 232195) ( +\SKETCH.COPY.ELEMENT 232197 . 232922) (SK.TRANSLATE.ELEMENT 232924 . 233407) (SK.COPY.GLOBAL.ELEMENT +233409 . 233620) (SK.MAKE.ELEMENT.MOVE.ARG 233622 . 234242) (SK.MAKE.ELEMENTS.MOVE.ARG 234244 . 234766 +) (SK.MAKE.POINTS.AND.ELEMENTS.MOVE.ARG 234768 . 235837) (SK.SHOW.FIG.FROM.INFO 235839 . 236207) ( +SK.MOVE.THING 236209 . 237115) (UPDATE.ELEMENT.IN.SKETCH 237117 . 239172) (SK.UPDATE.ELEMENT 239174 . +240733) (SK.UPDATE.ELEMENTS 240735 . 241454) (SK.UPDATE.ELEMENT1 241456 . 245356) ( +SK.MOVE.ELEMENT.POINT 245358 . 245773)) (245838 268127 (SK.MOVE.POINTS 245848 . 246135) ( +SK.SEL.AND.MOVE.POINTS 246137 . 246442) (SK.DO.MOVE.ELEMENT.POINTS 246444 . 255101) ( +SK.MOVE.ITEM.POINTS 255103 . 256774) (SK.TRANSLATEPTSFN 256776 . 257160) (SK.TRANSLATE.POINTS 257162 + . 258063) (SK.SELECT.MULTIPLE.POINTS 258065 . 263705) (SK.CONTROL.POINTS.IN.REGION 263707 . 265128) ( +SK.ADD.PT.SELECTION 265130 . 265594) (SK.REMOVE.PT.SELECTION 265596 . 266213) (SK.ADD.POINT 266215 . +266838) (SK.ELTS.CONTAINING.PTS 266840 . 267465) (SK.HOTSPOTS.NOT.ON.LIST 267467 . 268125)) (268285 +271081 (SK.SET.MOVE.MODE 268295 . 268966) (SK.SET.MOVE.MODE.POINTS 268968 . 269307) ( +SK.SET.MOVE.MODE.ELEMENTS 269309 . 269653) (SK.SET.MOVE.MODE.COMBINED 269655 . 270005) (READMOVEMODE +270007 . 271079)) (271082 289837 (SK.ALIGN.POINTS 271092 . 271382) (SK.SEL.AND.ALIGN.POINTS 271384 . +271693) (SK.ALIGN.POINTS.LEFT 271695 . 271998) (SK.ALIGN.POINTS.RIGHT 272000 . 272305) ( +SK.ALIGN.POINTS.TOP 272307 . 272608) (SK.ALIGN.POINTS.BOTTOM 272610 . 272917) ( +SK.EVEN.SPACE.POINTS.IN.X 272919 . 273239) (SK.EVEN.SPACE.POINTS.IN.Y 273241 . 273561) ( +SK.DO.ALIGN.POINTS 273563 . 284185) (SK.NTH.CONTROL.POINT 284187 . 284648) ( +SK.GET.SELECTED.ELEMENT.STRUCTURE 284650 . 285316) (SK.CORRESPONDING.CONTROL.PT 285318 . 285872) ( +SK.CONTROL.POINT.NUMBER 285874 . 286244) (SK.DO.ALIGN.SETVALUE 286246 . 289835)) (289901 303333 ( +SKETCH.CREATE.GROUP 289911 . 290400) (SK.CREATE.GROUP1 290402 . 290949) (SK.UPDATE.GROUP.AFTER.CHANGE +290951 . 291740) (SK.GROUP.ELTS 291742 . 292023) (SK.SEL.AND.GROUP 292025 . 292411) (SK.GROUP.ELEMENTS + 292413 . 294062) (SK.UNGROUP.ELT 294064 . 294348) (SK.SEL.AND.UNGROUP 294350 . 296019) ( +SK.UNGROUP.ELEMENT 296021 . 296957) (SK.GLOBAL.REGION.OF.LOCAL.ELEMENTS 296959 . 297881) ( +SK.LOCAL.REGION.OF.LOCAL.ELEMENTS 297883 . 298894) (SK.GLOBAL.REGION.OF.GLOBAL.ELEMENTS 298896 . +300236) (SK.UNIONREGIONS 300238 . 302604) (SKETCH.REGION.OF.SKETCH 302606 . 303022) (SK.FLASHREGION +303024 . 303331)) (303334 316805 (INIT.GROUP.ELEMENT 303344 . 304216) (GROUP.DRAWFN 304218 . 304668) ( +GROUP.EXPANDFN 304670 . 306233) (GROUP.INSIDEFN 306235 . 306644) (GROUP.REGIONFN 306646 . 307041) ( +GROUP.GLOBALREGIONFN 307043 . 307361) (GROUP.TRANSLATEFN 307363 . 309395) (GROUP.TRANSFORMFN 309397 . +312877) (GROUP.READCHANGEFN 312879 . 316803)) (316806 317814 (REGION.CENTER 316816 . 317417) ( +REMOVE.LAST 317419 . 317812)) (317867 322974 (SK.MOVE.GROUP.CONTROL.PT 317877 . 318168) ( +SK.SEL.AND.MOVE.CONTROL.PT 318170 . 319574) (SK.MOVE.GROUP.ELEMENT.CONTROL.POINT 319576 . 321649) ( +SK.READ.NEW.GROUP.CONTROL.PT 321651 . 322972)) (323233 327857 (SK.DO.GROUP 323243 . 324695) ( +SK.CHECK.WHENGROUPEDFN 324697 . 325407) (SK.DO.UNGROUP 325409 . 326614) (SK.CHECK.WHENUNGROUPEDFN +326616 . 327203) (SK.GROUP.UNDO 327205 . 327528) (SK.UNGROUP.UNDO 327530 . 327855)) (328098 333020 ( +SK.FREEZE.ELTS 328108 . 328392) (SK.SEL.AND.FREEZE 328394 . 328784) (SK.FREEZE.ELEMENTS 328786 . +329337) (SK.UNFREEZE.ELT 329339 . 329628) (SK.SEL.AND.UNFREEZE 329630 . 331166) (SK.UNFREEZE.ELEMENTS +331168 . 331727) (SK.FREEZE.UNDO 331729 . 331974) (SK.UNFREEZE.UNDO 331976 . 332223) (SK.DO.FREEZE +332225 . 332618) (SK.DO.UNFREEZE 332620 . 333018)) (333250 343060 (SKETCH.ELEMENTS.OF.SKETCH 333260 . +334095) (SKETCH.LIST.OF.ELEMENTS 334097 . 334815) (SKETCH.ADD.ELEMENT 334817 . 335892) ( +SKETCH.DELETE.ELEMENT 335894 . 337626) (DELFROMGROUPELT 337628 . 338428) (SKETCH.ELEMENT.TYPE 338430 + . 338779) (SKETCH.ELEMENT.CHANGED 338781 . 340349) (SK.ELEMENT.CHANGED1 340351 . 341002) ( +SK.UPDATE.GLOBAL.IMAGE.OBJECT.ELEMENT 341004 . 343058)) (343114 347726 (INSURE.SKETCH 343124 . 345739) + (LOCALSPECS.FROM.VIEWER 345741 . 346101) (SK.LOCAL.ELT.FROM.GLOBALPART 346103 . 346571) ( +SKETCH.FROM.VIEWER 346573 . 346807) (INSPECT.SKETCH 346809 . 347134) (ELT.INSIDE.SKETCHWP 347136 . +347409) (SK.INSIDE.REGION 347411 . 347724)) (347727 352057 (MAPSKETCHSPECS 347737 . 348358) ( +MAPCOLLECTSKETCHSPECS 348360 . 349109) (MAPSKETCHSPECSUNTIL 349111 . 349919) (MAPGLOBALSKETCHSPECS +349921 . 350622) (MAPGLOBALSKETCHELEMENTS 350624 . 352055)) (352119 378011 (SK.ADD.SELECTION 352129 . +352869) (SK.COPY.INSERTFN 352871 . 356502) (SCREENELEMENTP 356504 . 356977) (SK.ITEM.REGION 356979 . +357466) (SK.ELEMENT.GLOBAL.REGION 357468 . 357996) (SK.LOCAL.ITEMS.IN.REGION 357998 . 359977) ( +SK.REGIONFN 359979 . 360301) (SK.GLOBAL.REGIONFN 360303 . 360661) (SK.REMOVE.SELECTION 360663 . 361391 +) (SK.SELECT.MULTIPLE.ITEMS 361393 . 371835) (SKETCH.GET.ELEMENTS 371837 . 373260) (SK.PUT.MARKS.UP +373262 . 373601) (SK.TAKE.MARKS.DOWN 373603 . 373942) (SK.TRANSLATE.GLOBALPART 373944 . 376071) ( +SK.TRANSLATE.ITEM 376073 . 377000) (SK.TRANSLATEFN 377002 . 377198) (TRANSLATE.SKETCH 377200 . 378009) +) (378277 381184 (SK.INPUT.SCALE 378287 . 379134) (SK.UPDATE.SKETCHCONTEXT 379136 . 379733) ( +SK.SET.INPUT.SCALE 379735 . 380384) (SK.SET.INPUT.SCALE.CURRENT 380386 . 380677) ( +SK.SET.INPUT.SCALE.VALUE 380679 . 381182)) (381235 383147 (SK.SET.FEEDBACK.MODE 381245 . 382551) ( +SK.SET.FEEDBACK.POINT 382553 . 382721) (SK.SET.FEEDBACK.VERBOSE 382723 . 382892) ( +SK.SET.FEEDBACK.ALWAYS 382894 . 383145)) (383298 384575 (SKETCH.TITLE 383308 . 383571) ( +SK.SHRINK.ICONCREATE 383573 . 384573)) (390265 393079 (READBRUSHSHAPE 390275 . 390734) (READ.FUNCTION +390736 . 391251) (READBRUSHSIZE 391253 . 391711) (READANGLE 391713 . 392205) (READARCDIRECTION 392207 + . 393077)) (393080 403491 (SK.CHANGE.DASHING 393090 . 397038) (READ.AND.SAVE.NEW.DASHING 397040 . +398808) (READ.NEW.DASHING 398810 . 400550) (READ.DASHING.CHANGE 400552 . 402027) (SK.CACHE.DASHING +402029 . 403031) (SK.DASHING.LABEL 403033 . 403489)) (403492 407197 (READ.FILLING.CHANGE 403502 . +405483) (SK.CACHE.FILLING 405485 . 406203) (READ.AND.SAVE.NEW.FILLING 406205 . 406803) ( +SK.FILLING.LABEL 406805 . 407195)) (407581 443834 (SK.GETGLOBALPOSITION 407591 . 407896) ( +SKETCH.TRACK.ELEMENTS 407898 . 411418) (SK.PICKOUT.WHOLE.MOVE.ELEMENTS 411420 . 411979) ( +MAP.SKETCH.ELEMENTS.INTO.VIEWER 411981 . 412373) (MAP.GLOBAL.POSITION.INTO.VIEWER 412375 . 412755) ( +SKETCH.TO.VIEWER.POSITION 412757 . 413116) (SKETCH.TRACK.IMAGE 413118 . 413972) (SK.TRACK.IMAGE1 +413974 . 415386) (MAP.VIEWER.XY.INTO.GLOBAL 415388 . 416382) (SK.SET.POSITION 416384 . 416720) ( +MAP.VIEWER.PT.INTO.GLOBAL 416722 . 417828) (VIEWER.TO.SKETCH.POSITION 417830 . 418465) ( +SK.INSURE.SCALE 418467 . 418727) (SKETCH.TO.VIEWER.REGION 418729 . 419535) (VIEWER.TO.SKETCH.REGION +419537 . 419875) (SK.READ.POINT.WITH.FEEDBACK 419877 . 430880) (SKETCH.GET.POSITION 430882 . 432762) ( +\CLOBBER.POSITION 432764 . 433212) (NEAREST.HOT.SPOT 433214 . 434742) (GETWREGION 434744 . 435505) ( +GET.BITMAP.POSITION 435507 . 436291) (SK.TRACK.BITMAP1 436293 . 443832)) (444403 475289 ( +SK.BRING.UP.POSITION.PAD 444413 . 450273) (SK.PAD.READER.POSITION 450275 . 451924) ( +SK.POSITION.READER.REPAINTFN 451926 . 453710) (SK.POSITION.PAD.FROM.VIEWER 453712 . 455054) ( +SK.INIT.POSITION.NUMBER.PAD.MENU 455056 . 455406) (SK.READ.POSITION.PAD.HANDLER 455408 . 461140) ( +DISPLAY.POSITION.READER.TOTAL 461142 . 463440) (POSITION.PAD.READER.HANDLER 463442 . 471485) ( +POSITIONPAD.HELDFN 471487 . 472971) (\POSITION.PAD.ADD.DIGIT.MENU 472973 . 474552) ( +\POSITION.READER.NUMBERPAD 474554 . 475287)) (476915 479593 (SK.DRAWFN 476925 . 477291) ( +SK.TRANSFORMFN 477293 . 477674) (SK.EXPANDFN 477676 . 477953) (SK.INPUT 477955 . 478336) (SK.INSIDEFN +478338 . 478978) (SK.UPDATEFN 478980 . 479591)) (485165 489110 (SK.CHECK.SKETCH.VERSION 485175 . +486415) (SK.INSURE.RECORD.LENGTH 486417 . 487900) (SK.INSURE.HAS.LENGTH 487902 . 488640) ( +SK.RECORD.LENGTH 488642 . 488816) (SK.SET.RECORD.LENGTHS 488818 . 489108)) (489851 490738 ( +SK.ADD.EDIT.COMMAND.TO.FILE.BROWSER 489861 . 490736))))) STOP diff --git a/library/SKETCH.LCOM b/library/SKETCH.LCOM index 8c8c5cd2d..a3d1c759d 100644 Binary files a/library/SKETCH.LCOM and b/library/SKETCH.LCOM differ diff --git a/library/SKETCHELEMENTS b/library/SKETCHELEMENTS index 755e3b556..1a690556e 100644 --- a/library/SKETCHELEMENTS +++ b/library/SKETCHELEMENTS @@ -1,9 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "21-Aug-2021 20:49:42" {DSK}larry>medley>library>SKETCHELEMENTS.;2 554230 - changes to%: (FNS \SK.PUT.ARROWHEADS) +(FILECREATED " 4-Aug-2022 09:57:43" {DSK}larry>medley>library>SKETCHELEMENTS.;2 554099 - previous date%: "31-Dec-2000 10:58:28" {DSK}larry>medley>library>SKETCHELEMENTS.;1) + :CHANGES-TO (FNS CREATE.SKETCH.ELEMENT.TYPE) + + :PREVIOUS-DATE "21-Aug-2021 20:49:42" {DSK}larry>medley>library>SKETCHELEMENTS.;1) (* ; " @@ -14,7 +15,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (RPAQQ SKETCHELEMENTSCOMS ( (* ; - "contains the functions need to implement the sketch basic element types") + "contains the functions need to implement the sketch basic element types") (FNS INIT.SKETCH.ELEMENTS CREATE.SKETCH.ELEMENT.TYPE SKETCH.ELEMENT.TYPEP SKETCH.ELEMENT.NAMEP \CURSOR.IN.MIDDLE.MENU) (COMS (* ; "color and filling stuff") @@ -43,9 +44,9 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (CURSORS CIRCLE.CENTER CIRCLE.EDGE) (INITVARS [SK.DEFAULT.BRUSH (CONS 'ROUND (CONS 1 (CONS 'BLACK NIL] (* ; - "Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).") + "Original was (create BRUSH BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1 BRUSHCOLOR _ 'BLACK).") (* ; - "Changed by yabu.fx, for SUNLOADUP without DWIM.") + "Changed by yabu.fx, for SUNLOADUP without DWIM.") (SK.DEFAULT.DASHING) (SK.DEFAULT.TEXTURE)) (GLOBALVARS SK.DEFAULT.BRUSH SK.DEFAULT.DASHING SK.DEFAULT.TEXTURE)) @@ -113,7 +114,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (INITVARS (SK.ARROW.END.MENU) (SK.ARROW.EDIT.MENU))) (COMS (* ; - "stuff to support the text element type.") + "stuff to support the text element type.") (FNS SKETCH.CREATE.TEXT TEXT.CHANGEFN TEXT.READCHANGEFN \SK.READ.FONT.SIZE1 SK.TEXT.ELT.WITH.SAME.FIELDS SK.READFONTFAMILY CLOSE.PROMPT.WINDOW TEXT.DRAWFN TEXT.DRAWFN1 TEXT.INSIDEFN TEXT.EXPANDFN SK.TEXT.LINE.REGIONS @@ -142,7 +143,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (GLOBALVARS SKETCH.TERMTABLE SK.DEFAULT.TEXT.ALIGNMENT INDICATE.TEXT.SHADE \FONTSONFILE SK.HORIZONTAL.STYLES SK.VERTICAL.STYLES)) (COMS (* ; - "stuff for supporting the TEXTBOX sketch element.") + "stuff for supporting the TEXTBOX sketch element.") (FNS SKETCH.CREATE.TEXTBOX SK.COMPUTE.TEXTBOX.REGION.FOR.STRING SK.BREAK.INTO.LINES SK.BRUSH.SIZE SK.TEXTBOX.CREATE SK.TEXTBOX.CREATE1 SK.UPDATE.TEXTBOX.AFTER.CHANGE SK.TEXTBOX.POSITION.IN.BOX TEXTBOX.CHANGEFN TEXTBOX.DRAWFN @@ -153,13 +154,13 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. SK.TEXTBOX.FROM.TEXT ADD.EOLS) (DECLARE%: DONTCOPY (RECORDS LOCALTEXTBOX TEXTBOX)) (COMS (* ; - "stuff to handle default alignment for text boxes") + "stuff to handle default alignment for text boxes") (FNS SK.SET.TEXTBOX.VERT.ALIGN SK.SET.TEXTBOX.HORIZ.ALIGN) (VARS TEXTBOXICON) [INITVARS (SK.DEFAULT.TEXTBOX.ALIGNMENT '(CENTER CENTER] (GLOBALVARS SK.DEFAULT.TEXTBOX.ALIGNMENT))) (COMS (* ; - "functions to implement the box sketch element.") + "functions to implement the box sketch element.") (FNS SKETCH.CREATE.BOX SK.BOX.DRAWFN BOX.DRAWFN1 KNOTS.OF.REGION SK.DRAWAREABOX SK.DRAWBOX SK.BOX.EXPANDFN SK.BOX.GETREGIONFN BOX.SET.SCALES SK.BOX.INPUTFN SK.BOX.CREATE SK.UPDATE.BOX.AFTER.CHANGE SK.BOX.INSIDEFN SK.BOX.REGIONFN @@ -170,7 +171,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (DECLARE%: DONTCOPY (RECORDS BOX LOCALBOX)) (UGLYVARS BOXICON)) (COMS (* ; - "fns for the arc sketch element type") + "fns for the arc sketch element type") (FNS SKETCH.CREATE.ARC ARC.DRAWFN ARC.EXPANDFN ARC.INPUTFN SK.INVERT.CIRCLE SK.READ.ARC.ANGLE.POINT SK.SHOW.ARC ARC.CREATE SK.UPDATE.ARC.AFTER.CHANGE ARC.MOVEFN ARC.TRANSLATEPTS ARC.INSIDEFN ARC.REGIONFN ARC.GLOBALREGIONFN @@ -185,7 +186,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (CURSORS ARC.RADIUS.CURSOR ARC.ANGLE.CURSOR CW.ARC.ANGLE.CURSOR CW.ARC.RADIUS.CURSOR) (UGLYVARS ARCICON)) (COMS (* ; - "property getting and setting stuff") + "property getting and setting stuff") (FNS GETSKETCHELEMENTPROP \SK.GET.ARC.ANGLEPT \GETSKETCHELEMENTPROP1 \SK.GET.BRUSH \SK.GET.FILLING \SK.GET.ARROWHEADS \SK.GET.FONT \SK.GET.JUSTIFICATION \SK.GET.DIRECTION \SK.GET.DASHING PUTSKETCHELEMENTPROP \SK.PUT.FILLING @@ -375,7 +376,7 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (CREATE.SKETCH.ELEMENT.TYPE [LAMBDA (SKETCHTYPE LABEL DOCSTR DRAWFN EXPANDFN OBSOLETE CHANGEFN INPUTFN INSIDEFN REGIONFN - TRANSLATEFN UPDATEFN READCHANGEFN TRANSFORMFN TRANSLATEPTSFN GLOBALREGIONFN) + TRANSLATEFN UPDATEFN READCHANGEFN TRANSFORMFN TRANSLATEPTSFN GLOBALREGIONFN) (* rrb "18-Oct-85 17:18") (* creates a new sketch element type.) (COND @@ -1124,17 +1125,16 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) - BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1) + BRUSHSHAPE _ 'ROUND BRUSHSIZE _ 1) ) (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE (RECORD LOCALCIRCLE ((CENTERPOSITION RADIUSPOSITION) - LOCALHOTREGION RADIUS LOCALCIRCLEBRUSH LOCALCIRCLEFILLING LOCALCIRCLEDASHING - )) + LOCALHOTREGION RADIUS LOCALCIRCLEBRUSH LOCALCIRCLEFILLING LOCALCIRCLEDASHING)) (TYPERECORD CIRCLE (CENTERLATLON RADIUSLATLON BRUSH DASHING CIRCLEINITSCALE CIRCLEFILLING - CIRCLEREGION)) + CIRCLEREGION)) ) ) @@ -1645,11 +1645,11 @@ Copyright (c) 1985-1987, 1990-1993, 2000, 2021 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE (RECORD LOCALELLIPSE ((ELLIPSECENTER MINORRADIUSPOSITION MAJORRADIUSPOSITION) - LOCALHOTREGION SEMIMINORRADIUS SEMIMAJORRADIUS LOCALELLIPSEBRUSH - LOCALELLIPSEDASHING LOCALELLIPSEFILLING)) + LOCALHOTREGION SEMIMINORRADIUS SEMIMAJORRADIUS LOCALELLIPSEBRUSH + LOCALELLIPSEDASHING LOCALELLIPSEFILLING)) -(TYPERECORD ELLIPSE (ELLIPSECENTERLATLON SEMIMINORLATLON SEMIMAJORLATLON ORIENTATION BRUSH - DASHING ELLIPSEINITSCALE ELLIPSEFILLING ELLIPSEREGION)) +(TYPERECORD ELLIPSE (ELLIPSECENTERLATLON SEMIMINORLATLON SEMIMAJORLATLON ORIENTATION BRUSH DASHING + ELLIPSEINITSCALE ELLIPSEFILLING ELLIPSEREGION)) ) ) @@ -2710,14 +2710,14 @@ Click outside the window to stop.") (RECORD LOCALCURVE (KNOTS LOCALHOTREGION ARROWHEADPTS LOCALCURVEBRUSH LOCALCURVEDASHING)) -(TYPERECORD OPENCURVE (LATLONKNOTS BRUSH DASHING CURVEARROWHEADS OPENCURVEINITSCALE - OPENCURVEREGION OPENCURVEARROWHEADPOINTS)) +(TYPERECORD OPENCURVE (LATLONKNOTS BRUSH DASHING CURVEARROWHEADS OPENCURVEINITSCALE OPENCURVEREGION + OPENCURVEARROWHEADPOINTS)) (TYPERECORD CLOSEDCURVE (LATLONKNOTS BRUSH DASHING CLOSEDCURVEINITSCALE CLOSEDCURVEFILLING - CLOSEDCURVEREGION)) + CLOSEDCURVEREGION)) (RECORD LOCALCLOSEDCURVE (LOCALCLOSEDCURVEKNOTS LOCALCLOSEDCURVEHOTREGION LOCALCLOSEDCURVEBRUSH - LOCALCLOSEDCURVEFILLING LOCALCLOSEDCURVEDASHING)) + LOCALCLOSEDCURVEFILLING LOCALCLOSEDCURVEDASHING)) (RECORD LOCALCLOSEDWIRE (KNOTS LOCALHOTREGION LOCALCLOSEDWIREBRUSH LOCALCLOSEDWIREFILLING)) ) @@ -4311,11 +4311,11 @@ Click outside the window to stop.") (RECORD LOCALWIRE (KNOTS LOCALHOTREGION ARROWHEADPTS LOCALOPENWIREBRUSH LOCALWIREDASHING)) -(TYPERECORD WIRE (LATLONKNOTS BRUSH WIREARROWHEADS OPENWIREDASHING OPENWIREINITSCALE - OPENWIREREGION OPENWIREARROWHEADPOINTS)) +(TYPERECORD WIRE (LATLONKNOTS BRUSH WIREARROWHEADS OPENWIREDASHING OPENWIREINITSCALE OPENWIREREGION + OPENWIREARROWHEADPOINTS)) -(TYPERECORD CLOSEDWIRE (LATLONKNOTS BRUSH CLOSEDWIREDASHING CLOSEDWIREINITSCALE CLOSEDWIREFILLING - CLOSEDWIREREGION)) +(TYPERECORD CLOSEDWIRE (LATLONKNOTS BRUSH CLOSEDWIREDASHING CLOSEDWIREINITSCALE CLOSEDWIREFILLING + CLOSEDWIREREGION)) (RECORD LOCALCLOSEDWIRE (KNOTS LOCALHOTREGION LOCALCLOSEDWIREBRUSH LOCALCLOSEDWIREFILLING)) ) @@ -5743,11 +5743,11 @@ Click outside the window to stop.") (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE -(TYPERECORD TEXT (LOCATIONLATLON LISTOFCHARACTERS INITIALSCALE TEXTSTYLE FONT LISTOFREGIONS - TEXTCOLOR)) +(TYPERECORD TEXT (LOCATIONLATLON LISTOFCHARACTERS INITIALSCALE TEXTSTYLE FONT LISTOFREGIONS TEXTCOLOR + )) (RECORD LOCALTEXT ((DISPLAYPOSITION) - LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS)) + LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS)) ) ) (DEFINEQ @@ -6985,12 +6985,11 @@ No more font sizes found."))) (DECLARE%: EVAL@COMPILE (RECORD LOCALTEXTBOX ((TEXTBOXLL TEXTBOXUR) - LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS - LOCALTEXTBOXREGION LOCALTEXTBOXBRUSH LOCALTEXTBOXFILLING - LOCALTEXTBOXDASHING)) + LOCALHOTREGION LINEREGIONS LOCALFONT LOCALLISTOFCHARACTERS LOCALTEXTBOXREGION + LOCALTEXTBOXBRUSH LOCALTEXTBOXFILLING LOCALTEXTBOXDASHING)) (TYPERECORD TEXTBOX (TEXTBOXREGION LISTOFCHARACTERS INITIALSCALE TEXTSTYLE FONT LISTOFREGIONS - TEXTCOLOR TEXTBOXBRUSH TEXTBOXDASHING TEXTBOXFILLING)) + TEXTCOLOR TEXTBOXBRUSH TEXTBOXDASHING TEXTBOXFILLING)) ) ) @@ -7822,7 +7821,7 @@ No more font sizes found."))) (TYPERECORD BOX (GLOBALREGION BRUSH BOXDASHING BOXINITSCALE BOXFILLING)) (RECORD LOCALBOX ((BOXLL BOXUR) - LOCALHOTREGION LOCALREGION LOCALBOXBRUSH LOCALBOXFILLING LOCALBOXDASHING)) + LOCALHOTREGION LOCALREGION LOCALBOXBRUSH LOCALBOXFILLING LOCALBOXDASHING)) ) ) @@ -8468,12 +8467,11 @@ No more font sizes found."))) (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE -(TYPERECORD ARC (ARCCENTERPT ARCRADIUSPT ARCBRUSH ARCDASHING ARCINITSCALE ARCARROWHEADS - ARCANGLEPT ARCDIRECTION ARCREGION ARCARROWHEADPOINTS)) +(TYPERECORD ARC (ARCCENTERPT ARCRADIUSPT ARCBRUSH ARCDASHING ARCINITSCALE ARCARROWHEADS ARCANGLEPT + ARCDIRECTION ARCREGION ARCARROWHEADPOINTS)) (RECORD LOCALARC ((LOCALARCCENTERPT LOCALARCRADIUSPT LOCALARCANGLEPT) - LOCALHOTREGION LOCALARCARROWHEADPTS LOCALARCBRUSH LOCALARCKNOTS LOCALARCDASHING - )) + LOCALHOTREGION LOCALARCARROWHEADPTS LOCALARCBRUSH LOCALARCKNOTS LOCALARCDASHING)) ) ) (RPAQ ARC.RADIUS.CURSOR (CURSORCREATE (QUOTE #*(16 16)@@@L@@@D@@@F@@@B@@@C@@LA@@OA@@CMOOOO@@CL@@O@@@L@@@@@@@@@@@@@@@@@ @@ -9284,137 +9282,137 @@ No more font sizes found."))) (PUTPROPS SKETCHELEMENTS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1992 1993 2000 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (14335 24749 (INIT.SKETCH.ELEMENTS 14345 . 21908) (CREATE.SKETCH.ELEMENT.TYPE 21910 . -23436) (SKETCH.ELEMENT.TYPEP 23438 . 23826) (SKETCH.ELEMENT.NAMEP 23828 . 24091) ( -\CURSOR.IN.MIDDLE.MENU 24093 . 24747)) (24790 25467 (SKETCHINCOLORP 24800 . 25120) (READ.COLOR.CHANGE -25122 . 25465)) (25976 28755 (SK.CREATE.DEFAULT.FILLING 25986 . 26287) (SKFILLINGP 26289 . 26922) ( -SK.INSURE.FILLING 26924 . 28352) (SK.INSURE.COLOR 28354 . 28753)) (28756 34366 (SK.TRANSLATE.MODE -28766 . 29548) (SK.CHANGE.FILLING.MODE 29550 . 33133) (READ.FILLING.MODE 33135 . 34364)) (34367 65041 -(SKETCH.CREATE.CIRCLE 34377 . 35189) (CIRCLE.EXPANDFN 35191 . 38563) (CIRCLE.DRAWFN 38565 . 41566) ( -\CIRCLE.DRAWFN1 41568 . 44163) (CIRCLE.INPUTFN 44165 . 46014) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46016 . -46375) (SK.READ.CIRCLE.POINT 46377 . 46848) (SK.SHOW.CIRCLE 46850 . 47496) (CIRCLE.INSIDEFN 47498 . -47763) (CIRCLE.REGIONFN 47765 . 49446) (CIRCLE.GLOBALREGIONFN 49448 . 50966) (CIRCLE.TRANSLATE 50968 - . 52829) (CIRCLE.READCHANGEFN 52831 . 57447) (CIRCLE.TRANSFORMFN 57449 . 59302) (CIRCLE.TRANSLATEPTS -59304 . 60918) (SK.CIRCLE.CREATE 60920 . 61763) (SET.CIRCLE.SCALE 61765 . 62531) (SK.BRUSH.READCHANGE -62533 . 65039)) (65042 65771 (SK.INSURE.BRUSH 65052 . 65446) (SK.INSURE.DASHING 65448 . 65769)) (67023 - 96517 (SKETCH.CREATE.ELLIPSE 67033 . 67632) (ELLIPSE.EXPANDFN 67634 . 71246) (ELLIPSE.DRAWFN 71248 . -75425) (ELLIPSE.INPUTFN 75427 . 77867) (SK.READ.ELLIPSE.MAJOR.PT 77869 . 78448) ( -SK.SHOW.ELLIPSE.MAJOR.RADIUS 78450 . 79205) (SK.READ.ELLIPSE.MINOR.PT 79207 . 79900) ( -SK.SHOW.ELLIPSE.MINOR.RADIUS 79902 . 80734) (ELLIPSE.INSIDEFN 80736 . 81006) (ELLIPSE.CREATE 81008 . -82383) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82385 . 82753) (ELLIPSE.REGIONFN 82755 . 84955) ( -ELLIPSE.GLOBALREGIONFN 84957 . 86770) (ELLIPSE.TRANSLATEFN 86772 . 89318) (ELLIPSE.TRANSFORMFN 89320 - . 90597) (ELLIPSE.TRANSLATEPTS 90599 . 92640) (MARK.SPOT 92642 . 93893) (DISTANCEBETWEEN 93895 . -94490) (SK.DISTANCE.TO 94492 . 94877) (SQUARE 94879 . 94921) (COMPUTE.ELLIPSE.ORIENTATION 94923 . -95642) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95644 . 96515)) (97642 138698 (SKETCH.CREATE.OPEN.CURVE -97652 . 98205) (OPENCURVE.INPUTFN 98207 . 99075) (SK.CURVE.CREATE 99077 . 100822) (MAXXEXTENT 100824 - . 101683) (MAXYEXTENT 101685 . 102545) (KNOT.SET.SCALE.FIELD 102547 . 103349) (OPENCURVE.DRAWFN -103351 . 104482) (OPENCURVE.EXPANDFN 104484 . 107799) (OPENCURVE.READCHANGEFN 107801 . 111003) ( -OPENCURVE.TRANSFORMFN 111005 . 113503) (OPENCURVE.TRANSLATEFN 113505 . 113927) ( -OPENCURVE.TRANSLATEPTSFN 113929 . 115310) (SKETCH.CREATE.CLOSED.CURVE 115312 . 115818) ( -CLOSEDCURVE.DRAWFN 115820 . 116604) (CLOSEDCURVE.EXPANDFN 116606 . 119719) (CLOSEDCURVE.REGIONFN -119721 . 120518) (CLOSEDCURVE.GLOBALREGIONFN 120520 . 121953) (READ.LIST.OF.POINTS 121955 . 123934) ( -CLOSEDCURVE.INPUTFN 123936 . 124581) (CLOSEDCURVE.READCHANGEFN 124583 . 127478) ( -CLOSEDCURVE.TRANSFORMFN 127480 . 129280) (CLOSEDCURVE.TRANSLATEPTSFN 129282 . 130627) (INVISIBLEPARTP -130629 . 130982) (SHOWSKETCHPOINT 130984 . 131289) (SHOWSKETCHXY 131291 . 131809) (KNOTS.REGIONFN -131811 . 132712) (OPENWIRE.GLOBALREGIONFN 132714 . 133578) (CURVE.REGIONFN 133580 . 134521) ( -OPENCURVE.GLOBALREGIONFN 134523 . 135930) (KNOTS.TRANSLATEFN 135932 . 136975) (REGION.CONTAINING.PTS -136977 . 138696)) (138699 160975 (CHANGE.ELTS.BRUSH.SIZE 138709 . 139319) (CHANGE.ELTS.BRUSH 139321 . -139838) (CHANGE.ELTS.BRUSH.SHAPE 139840 . 140241) (SK.CHANGE.BRUSH.SHAPE 140243 . 143755) ( -SK.CHANGE.BRUSH.COLOR 143757 . 148203) (SK.CHANGE.BRUSH.SIZE 148205 . 153163) (SK.CHANGE.ANGLE 153165 - . 156145) (SK.CHANGE.ARC.DIRECTION 156147 . 158526) (SK.SET.DEFAULT.BRUSH.SIZE 158528 . 159227) ( -READSIZECHANGE 159229 . 160973)) (160976 162595 (SK.CHANGE.ELEMENT.KNOTS 160986 . 162593)) (162596 -163243 (SK.INSURE.POINT.LIST 162606 . 163059) (SK.INSURE.POSITION 163061 . 163241)) (164623 196946 ( -SKETCH.CREATE.WIRE 164633 . 165123) (CLOSEDWIRE.EXPANDFN 165125 . 167813) (KNOTS.INSIDEFN 167815 . -168536) (OPEN.WIRE.DRAWFN 168538 . 169130) (WIRE.EXPANDFN 169132 . 172379) ( -SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172381 . 172902) (OPENWIRE.READCHANGEFN 172904 . 175397) ( -OPENWIRE.TRANSFORMFN 175399 . 177522) (OPENWIRE.TRANSLATEFN 177524 . 177948) (OPENWIRE.TRANSLATEPTSFN -177950 . 179229) (WIRE.INPUTFN 179231 . 180862) (SK.READ.WIRE.POINTS 180864 . 181395) ( -SK.READ.POINTS.WITH.FEEDBACK 181397 . 184164) (OPENWIRE.FEEDBACKFN 184166 . 184920) ( -CLOSEDWIRE.FEEDBACKFN 184922 . 186278) (CLOSEDWIRE.REGIONFN 186280 . 187265) ( -CLOSEDWIRE.GLOBALREGIONFN 187267 . 188319) (SK.WIRE.CREATE 188321 . 190084) (WIRE.ADD.POINT.TO.END -190086 . 191002) (READ.ARROW.CHANGE 191004 . 196480) (CHANGE.ELTS.ARROWHEADS 196482 . 196944)) (196947 - 207953 (SKETCH.CREATE.CLOSED.WIRE 196957 . 197518) (CLOSED.WIRE.INPUTFN 197520 . 197875) ( -CLOSED.WIRE.DRAWFN 197877 . 199922) (CLOSEDWIRE.READCHANGEFN 199924 . 204829) (CLOSEDWIRE.TRANSFORMFN -204831 . 206625) (CLOSEDWIRE.TRANSLATEPTSFN 206627 . 207951)) (207954 260660 (SK.EXPAND.ARROWHEADS -207964 . 208314) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208316 . 209697) (ARC.ARROWHEAD.POINTS 209699 . -210922) (SET.ARC.ARROWHEAD.POINTS 210924 . 211905) (SET.OPENCURVE.ARROWHEAD.POINTS 211907 . 212808) ( -SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212810 . 214080) (SET.WIRE.ARROWHEAD.POINTS 214082 . 214835) ( -SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214837 . 216102) (SK.EXPAND.ARROWHEAD 216104 . 217287) (CHANGED.ARROW - 217289 . 220461) (SK.CHANGE.ARROWHEAD 220463 . 220916) (SK.CHANGE.ARROWHEAD1 220918 . 226173) ( -SK.CREATE.ARROWHEAD 226175 . 226695) (SK.ARROWHEAD.CREATE 226697 . 228271) (SK.ARROWHEAD.END.TEST -228273 . 229197) (READ.ARROWHEAD.END 229199 . 231224) (ARROW.HEAD.POSITIONS 231226 . 233066) ( -ARROWHEAD.POINTS.LIST 233068 . 237040) (CURVE.ARROWHEAD.POINTS 237042 . 237905) (LEFT.MOST.IS.BEGINP -237907 . 238788) (WIRE.ARROWHEAD.POINTS 238790 . 240316) (DRAWARROWHEADS 240318 . 242688) ( -\SK.DRAW.TRIANGLE.ARROWHEAD 242690 . 244350) (\SK.ENDPT.OF.ARROW 244352 . 246609) ( -\SK.ADJUST.FOR.ARROWHEADS 246611 . 249116) (SK.SET.ARROWHEAD.LENGTH 249118 . 250262) ( -SK.SET.ARROWHEAD.ANGLE 250264 . 251360) (SK.SET.ARROWHEAD.TYPE 251362 . 254651) (SK.SET.LINE.ARROWHEAD - 254653 . 257066) (SK.UPDATE.ARROWHEAD.FORMAT 257068 . 259178) (SK.SET.LINE.LENGTH.MODE 259180 . -260658)) (260661 262462 (SK.INSURE.ARROWHEADS 260671 . 261853) (SK.ARROWHEADP 261855 . 262460)) ( -265266 327592 (SKETCH.CREATE.TEXT 265276 . 265790) (TEXT.CHANGEFN 265792 . 266184) (TEXT.READCHANGEFN -266186 . 274257) (\SK.READ.FONT.SIZE1 274259 . 276155) (SK.TEXT.ELT.WITH.SAME.FIELDS 276157 . 277797) -(SK.READFONTFAMILY 277799 . 279345) (CLOSE.PROMPT.WINDOW 279347 . 279771) (TEXT.DRAWFN 279773 . 280494 -) (TEXT.DRAWFN1 280496 . 283998) (TEXT.INSIDEFN 284000 . 284389) (TEXT.EXPANDFN 284391 . 286516) ( -SK.TEXT.LINE.REGIONS 286518 . 288392) (TEXT.UPDATE.GLOBAL.REGIONS 288394 . 289626) (REL.MOVE.REGION -289628 . 290165) (LTEXT.LINE.REGIONS 290167 . 293585) (TEXT.INPUTFN 293587 . 294097) (READ.TEXT 294099 - . 294847) (TEXT.POSITION.AND.CREATE 294849 . 297160) (CREATE.TEXT.ELEMENT 297162 . 297980) ( -SK.UPDATE.TEXT.AFTER.CHANGE 297982 . 298384) (SK.TEXT.FROM.TEXTBOX 298386 . 302192) ( -TEXT.SET.GLOBAL.REGIONS 302194 . 303487) (TEXT.REGIONFN 303489 . 304259) (TEXT.GLOBALREGIONFN 304261 - . 304949) (TEXT.TRANSLATEFN 304951 . 306266) (TEXT.TRANSFORMFN 306268 . 307391) (TEXT.TRANSLATEPTSFN -307393 . 307910) (TEXT.UPDATEFN 307912 . 312568) (SK.CHANGE.TEXT 312570 . 325658) (TEXT.SET.SCALES -325660 . 326628) (BREAK.AT.CARRIAGE.RETURNS 326630 . 327590)) (327593 346117 (ADD.KNOWN.SKETCH.FONT -327603 . 328594) (SK.PICK.FONT 328596 . 334128) (SK.CHOOSE.TEXT.FONT 334130 . 338078) (SK.NEXTSIZEFONT - 338080 . 339347) (SK.DECREASING.FONT.LIST 339349 . 341222) (SK.GUESS.FONTSAVAILABLE 341224 . 346115)) - (346544 360687 (SK.SET.FONT 346554 . 348121) (SK.SET.TEXT.FONT 348123 . 349125) (SK.SET.TEXT.SIZE -349127 . 349814) (SK.SET.TEXT.HORIZ.ALIGN 349816 . 351390) (SK.READFONTSIZE 351392 . 353622) ( -SK.COLLECT.FONT.SIZES 353624 . 356542) (SK.SET.TEXT.VERT.ALIGN 356544 . 358586) (SK.SET.TEXT.LOOKS -358588 . 360045) (SK.SET.DEFAULT.TEXT.FACE 360047 . 360685)) (360688 361274 (CREATE.SKETCH.TERMTABLE -360698 . 361272)) (361275 363041 (SK.FONT.LIST 361285 . 361611) (SK.INSURE.FONT 361613 . 362135) ( -SK.INSURE.STYLE 362137 . 362655) (SK.INSURE.TEXT 362657 . 363039)) (363611 420904 ( -SKETCH.CREATE.TEXTBOX 363621 . 365263) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365265 . 367342) ( -SK.BREAK.INTO.LINES 367344 . 378530) (SK.BRUSH.SIZE 378532 . 378913) (SK.TEXTBOX.CREATE 378915 . -379712) (SK.TEXTBOX.CREATE1 379714 . 380778) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380780 . 381320) ( -SK.TEXTBOX.POSITION.IN.BOX 381322 . 383233) (TEXTBOX.CHANGEFN 383235 . 383709) (TEXTBOX.DRAWFN 383711 - . 385747) (SK.TEXTURE.AROUND.REGIONS 385749 . 391822) (ALL.EMPTY.REGIONS 391824 . 392314) ( -TEXTBOX.EXPANDFN 392316 . 399472) (TEXTBOX.INPUTFN 399474 . 401087) (TEXTBOX.INSIDEFN 401089 . 401502) - (TEXTBOX.REGIONFN 401504 . 402358) (TEXTBOX.GLOBALREGIONFN 402360 . 402688) ( -TEXTBOX.SET.GLOBAL.REGIONS 402690 . 404021) (TEXTBOX.TRANSLATEFN 404023 . 405864) ( -TEXTBOX.TRANSLATEPTSFN 405866 . 408649) (TEXTBOX.TRANSFORMFN 408651 . 410319) (TEXTBOX.UPDATEFN 410321 - . 412214) (TEXTBOX.READCHANGEFN 412216 . 417105) (SK.TEXTBOX.TEXT.POSITION 417107 . 417528) ( -SK.TEXTBOX.FROM.TEXT 417530 . 420135) (ADD.EOLS 420137 . 420902)) (421472 424973 ( -SK.SET.TEXTBOX.VERT.ALIGN 421482 . 423362) (SK.SET.TEXTBOX.HORIZ.ALIGN 423364 . 424971)) (425356 -469831 (SKETCH.CREATE.BOX 425366 . 425849) (SK.BOX.DRAWFN 425851 . 427010) (BOX.DRAWFN1 427012 . -429851) (KNOTS.OF.REGION 429853 . 431087) (SK.DRAWAREABOX 431089 . 437690) (SK.DRAWBOX 437692 . 438881 -) (SK.BOX.EXPANDFN 438883 . 442631) (SK.BOX.GETREGIONFN 442633 . 443819) (BOX.SET.SCALES 443821 . -445061) (SK.BOX.INPUTFN 445063 . 446996) (SK.BOX.CREATE 446998 . 447699) (SK.UPDATE.BOX.AFTER.CHANGE -447701 . 448212) (SK.BOX.INSIDEFN 448214 . 448604) (SK.BOX.REGIONFN 448606 . 449319) ( -SK.BOX.GLOBALREGIONFN 449321 . 450059) (SK.BOX.READCHANGEFN 450061 . 453782) (SK.CHANGE.FILLING 453784 - . 457732) (SK.CHANGE.FILLING.COLOR 457734 . 461390) (SK.BOX.TRANSLATEFN 461392 . 462571) ( -SK.BOX.TRANSFORMFN 462573 . 463518) (SK.BOX.TRANSLATEPTSFN 463520 . 465888) (UNSCALE.REGION.TO.GRID -465890 . 466815) (INCREASEREGION 466817 . 467408) (INSUREREGIONSIZE 467410 . 468581) (EXPANDREGION -468583 . 469463) (REGION.FROM.COORDINATES 469465 . 469829)) (470371 496726 (SKETCH.CREATE.ARC 470381 - . 471190) (ARC.DRAWFN 471192 . 472919) (ARC.EXPANDFN 472921 . 475254) (ARC.INPUTFN 475256 . 479474) ( -SK.INVERT.CIRCLE 479476 . 480336) (SK.READ.ARC.ANGLE.POINT 480338 . 480845) (SK.SHOW.ARC 480847 . -481457) (ARC.CREATE 481459 . 482814) (SK.UPDATE.ARC.AFTER.CHANGE 482816 . 483156) (ARC.MOVEFN 483158 - . 484741) (ARC.TRANSLATEPTS 484743 . 486628) (ARC.INSIDEFN 486630 . 486880) (ARC.REGIONFN 486882 . -488018) (ARC.GLOBALREGIONFN 488020 . 489742) (ARC.TRANSLATE 489744 . 490726) (ARC.TRANSFORMFN 490728 - . 493678) (ARC.READCHANGEFN 493680 . 496724)) (496727 505806 (SK.COMPUTE.ARC.ANGLE.PT 496737 . 497663 -) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497665 . 498658) (SK.COMPUTE.ARC.PTS 498660 . 502232) ( -SK.SET.ARC.DIRECTION 502234 . 502808) (SK.SET.ARC.DIRECTION.CW 502810 . 502984) ( -SK.SET.ARC.DIRECTION.CCW 502986 . 503259) (SK.COMPUTE.SLOPE.OF.LINE 503261 . 503753) ( -SK.CREATE.ARC.USING 503755 . 504992) (SET.ARC.SCALES 504994 . 505804)) (505807 506252 ( -SK.INSURE.DIRECTION 505817 . 506250)) (507654 553513 (GETSKETCHELEMENTPROP 507664 . 508972) ( -\SK.GET.ARC.ANGLEPT 508974 . 509535) (\GETSKETCHELEMENTPROP1 509537 . 509791) (\SK.GET.BRUSH 509793 . -510717) (\SK.GET.FILLING 510719 . 511817) (\SK.GET.ARROWHEADS 511819 . 512598) (\SK.GET.FONT 512600 . -513080) (\SK.GET.JUSTIFICATION 513082 . 513606) (\SK.GET.DIRECTION 513608 . 514085) (\SK.GET.DASHING -514087 . 515106) (PUTSKETCHELEMENTPROP 515108 . 517377) (\SK.PUT.FILLING 517379 . 518649) ( -ADDSKETCHELEMENTPROP 518651 . 519456) (REMOVESKETCHELEMENTPROP 519458 . 520247) (\SK.PUT.FONT 520249 - . 521063) (\SK.PUT.JUSTIFICATION 521065 . 522076) (\SK.PUT.DIRECTION 522078 . 522685) ( -\SK.PUT.DASHING 522687 . 524022) (\SK.PUT.BRUSH 524024 . 525943) (\SK.PUT.ARROWHEADS 525945 . 527911) -(SK.COPY.ELEMENT.PROPERTY.LIST 527913 . 528489) (SKETCH.UPDATE 528491 . 529221) (SKETCH.UPDATE1 529223 - . 530511) (\SKELT.GET.SCALE 530513 . 531501) (\SKELT.PUT.SCALE 531503 . 532810) (\SKELT.PUT.DATA -532812 . 534609) (SK.REPLACE.TEXT.IN.ELEMENT 534611 . 535564) (\SKELT.GET.DATA 535566 . 536633) ( -\SK.GET.1STCONTROLPT 536635 . 538147) (\SK.PUT.1STCONTROLPT 538149 . 543622) (\SK.GET.2NDCONTROLPT -543624 . 544539) (\SK.PUT.2NDCONTROLPT 544541 . 548729) (\SK.GET.3RDCONTROLPT 548731 . 549609) ( -\SK.PUT.3RDCONTROLPT 549611 . 553511)) (553514 554095 (LOWERLEFTCORNER 553524 . 553770) ( -UPPERRIGHTCORNER 553772 . 554093))))) + (FILEMAP (NIL (14359 24769 (INIT.SKETCH.ELEMENTS 14369 . 21932) (CREATE.SKETCH.ELEMENT.TYPE 21934 . +23456) (SKETCH.ELEMENT.TYPEP 23458 . 23846) (SKETCH.ELEMENT.NAMEP 23848 . 24111) ( +\CURSOR.IN.MIDDLE.MENU 24113 . 24767)) (24810 25487 (SKETCHINCOLORP 24820 . 25140) (READ.COLOR.CHANGE +25142 . 25485)) (25996 28775 (SK.CREATE.DEFAULT.FILLING 26006 . 26307) (SKFILLINGP 26309 . 26942) ( +SK.INSURE.FILLING 26944 . 28372) (SK.INSURE.COLOR 28374 . 28773)) (28776 34386 (SK.TRANSLATE.MODE +28786 . 29568) (SK.CHANGE.FILLING.MODE 29570 . 33153) (READ.FILLING.MODE 33155 . 34384)) (34387 65061 +(SKETCH.CREATE.CIRCLE 34397 . 35209) (CIRCLE.EXPANDFN 35211 . 38583) (CIRCLE.DRAWFN 38585 . 41586) ( +\CIRCLE.DRAWFN1 41588 . 44183) (CIRCLE.INPUTFN 44185 . 46034) (SK.UPDATE.CIRCLE.AFTER.CHANGE 46036 . +46395) (SK.READ.CIRCLE.POINT 46397 . 46868) (SK.SHOW.CIRCLE 46870 . 47516) (CIRCLE.INSIDEFN 47518 . +47783) (CIRCLE.REGIONFN 47785 . 49466) (CIRCLE.GLOBALREGIONFN 49468 . 50986) (CIRCLE.TRANSLATE 50988 + . 52849) (CIRCLE.READCHANGEFN 52851 . 57467) (CIRCLE.TRANSFORMFN 57469 . 59322) (CIRCLE.TRANSLATEPTS +59324 . 60938) (SK.CIRCLE.CREATE 60940 . 61783) (SET.CIRCLE.SCALE 61785 . 62551) (SK.BRUSH.READCHANGE +62553 . 65059)) (65062 65791 (SK.INSURE.BRUSH 65072 . 65466) (SK.INSURE.DASHING 65468 . 65789)) (67005 + 96499 (SKETCH.CREATE.ELLIPSE 67015 . 67614) (ELLIPSE.EXPANDFN 67616 . 71228) (ELLIPSE.DRAWFN 71230 . +75407) (ELLIPSE.INPUTFN 75409 . 77849) (SK.READ.ELLIPSE.MAJOR.PT 77851 . 78430) ( +SK.SHOW.ELLIPSE.MAJOR.RADIUS 78432 . 79187) (SK.READ.ELLIPSE.MINOR.PT 79189 . 79882) ( +SK.SHOW.ELLIPSE.MINOR.RADIUS 79884 . 80716) (ELLIPSE.INSIDEFN 80718 . 80988) (ELLIPSE.CREATE 80990 . +82365) (SK.UPDATE.ELLIPSE.AFTER.CHANGE 82367 . 82735) (ELLIPSE.REGIONFN 82737 . 84937) ( +ELLIPSE.GLOBALREGIONFN 84939 . 86752) (ELLIPSE.TRANSLATEFN 86754 . 89300) (ELLIPSE.TRANSFORMFN 89302 + . 90579) (ELLIPSE.TRANSLATEPTS 90581 . 92622) (MARK.SPOT 92624 . 93875) (DISTANCEBETWEEN 93877 . +94472) (SK.DISTANCE.TO 94474 . 94859) (SQUARE 94861 . 94903) (COMPUTE.ELLIPSE.ORIENTATION 94905 . +95624) (SK.COMPUTE.ELLIPSE.MINOR.RADIUS.PT 95626 . 96497)) (97612 138668 (SKETCH.CREATE.OPEN.CURVE +97622 . 98175) (OPENCURVE.INPUTFN 98177 . 99045) (SK.CURVE.CREATE 99047 . 100792) (MAXXEXTENT 100794 + . 101653) (MAXYEXTENT 101655 . 102515) (KNOT.SET.SCALE.FIELD 102517 . 103319) (OPENCURVE.DRAWFN +103321 . 104452) (OPENCURVE.EXPANDFN 104454 . 107769) (OPENCURVE.READCHANGEFN 107771 . 110973) ( +OPENCURVE.TRANSFORMFN 110975 . 113473) (OPENCURVE.TRANSLATEFN 113475 . 113897) ( +OPENCURVE.TRANSLATEPTSFN 113899 . 115280) (SKETCH.CREATE.CLOSED.CURVE 115282 . 115788) ( +CLOSEDCURVE.DRAWFN 115790 . 116574) (CLOSEDCURVE.EXPANDFN 116576 . 119689) (CLOSEDCURVE.REGIONFN +119691 . 120488) (CLOSEDCURVE.GLOBALREGIONFN 120490 . 121923) (READ.LIST.OF.POINTS 121925 . 123904) ( +CLOSEDCURVE.INPUTFN 123906 . 124551) (CLOSEDCURVE.READCHANGEFN 124553 . 127448) ( +CLOSEDCURVE.TRANSFORMFN 127450 . 129250) (CLOSEDCURVE.TRANSLATEPTSFN 129252 . 130597) (INVISIBLEPARTP +130599 . 130952) (SHOWSKETCHPOINT 130954 . 131259) (SHOWSKETCHXY 131261 . 131779) (KNOTS.REGIONFN +131781 . 132682) (OPENWIRE.GLOBALREGIONFN 132684 . 133548) (CURVE.REGIONFN 133550 . 134491) ( +OPENCURVE.GLOBALREGIONFN 134493 . 135900) (KNOTS.TRANSLATEFN 135902 . 136945) (REGION.CONTAINING.PTS +136947 . 138666)) (138669 160945 (CHANGE.ELTS.BRUSH.SIZE 138679 . 139289) (CHANGE.ELTS.BRUSH 139291 . +139808) (CHANGE.ELTS.BRUSH.SHAPE 139810 . 140211) (SK.CHANGE.BRUSH.SHAPE 140213 . 143725) ( +SK.CHANGE.BRUSH.COLOR 143727 . 148173) (SK.CHANGE.BRUSH.SIZE 148175 . 153133) (SK.CHANGE.ANGLE 153135 + . 156115) (SK.CHANGE.ARC.DIRECTION 156117 . 158496) (SK.SET.DEFAULT.BRUSH.SIZE 158498 . 159197) ( +READSIZECHANGE 159199 . 160943)) (160946 162565 (SK.CHANGE.ELEMENT.KNOTS 160956 . 162563)) (162566 +163213 (SK.INSURE.POINT.LIST 162576 . 163029) (SK.INSURE.POSITION 163031 . 163211)) (164581 196904 ( +SKETCH.CREATE.WIRE 164591 . 165081) (CLOSEDWIRE.EXPANDFN 165083 . 167771) (KNOTS.INSIDEFN 167773 . +168494) (OPEN.WIRE.DRAWFN 168496 . 169088) (WIRE.EXPANDFN 169090 . 172337) ( +SK.UPDATE.WIRE.ELT.AFTER.CHANGE 172339 . 172860) (OPENWIRE.READCHANGEFN 172862 . 175355) ( +OPENWIRE.TRANSFORMFN 175357 . 177480) (OPENWIRE.TRANSLATEFN 177482 . 177906) (OPENWIRE.TRANSLATEPTSFN +177908 . 179187) (WIRE.INPUTFN 179189 . 180820) (SK.READ.WIRE.POINTS 180822 . 181353) ( +SK.READ.POINTS.WITH.FEEDBACK 181355 . 184122) (OPENWIRE.FEEDBACKFN 184124 . 184878) ( +CLOSEDWIRE.FEEDBACKFN 184880 . 186236) (CLOSEDWIRE.REGIONFN 186238 . 187223) ( +CLOSEDWIRE.GLOBALREGIONFN 187225 . 188277) (SK.WIRE.CREATE 188279 . 190042) (WIRE.ADD.POINT.TO.END +190044 . 190960) (READ.ARROW.CHANGE 190962 . 196438) (CHANGE.ELTS.ARROWHEADS 196440 . 196902)) (196905 + 207911 (SKETCH.CREATE.CLOSED.WIRE 196915 . 197476) (CLOSED.WIRE.INPUTFN 197478 . 197833) ( +CLOSED.WIRE.DRAWFN 197835 . 199880) (CLOSEDWIRE.READCHANGEFN 199882 . 204787) (CLOSEDWIRE.TRANSFORMFN +204789 . 206583) (CLOSEDWIRE.TRANSLATEPTSFN 206585 . 207909)) (207912 260618 (SK.EXPAND.ARROWHEADS +207922 . 208272) (SK.COMPUTE.ARC.ARROWHEAD.POINTS 208274 . 209655) (ARC.ARROWHEAD.POINTS 209657 . +210880) (SET.ARC.ARROWHEAD.POINTS 210882 . 211863) (SET.OPENCURVE.ARROWHEAD.POINTS 211865 . 212766) ( +SK.COMPUTE.CURVE.ARROWHEAD.POINTS 212768 . 214038) (SET.WIRE.ARROWHEAD.POINTS 214040 . 214793) ( +SK.COMPUTE.WIRE.ARROWHEAD.POINTS 214795 . 216060) (SK.EXPAND.ARROWHEAD 216062 . 217245) (CHANGED.ARROW + 217247 . 220419) (SK.CHANGE.ARROWHEAD 220421 . 220874) (SK.CHANGE.ARROWHEAD1 220876 . 226131) ( +SK.CREATE.ARROWHEAD 226133 . 226653) (SK.ARROWHEAD.CREATE 226655 . 228229) (SK.ARROWHEAD.END.TEST +228231 . 229155) (READ.ARROWHEAD.END 229157 . 231182) (ARROW.HEAD.POSITIONS 231184 . 233024) ( +ARROWHEAD.POINTS.LIST 233026 . 236998) (CURVE.ARROWHEAD.POINTS 237000 . 237863) (LEFT.MOST.IS.BEGINP +237865 . 238746) (WIRE.ARROWHEAD.POINTS 238748 . 240274) (DRAWARROWHEADS 240276 . 242646) ( +\SK.DRAW.TRIANGLE.ARROWHEAD 242648 . 244308) (\SK.ENDPT.OF.ARROW 244310 . 246567) ( +\SK.ADJUST.FOR.ARROWHEADS 246569 . 249074) (SK.SET.ARROWHEAD.LENGTH 249076 . 250220) ( +SK.SET.ARROWHEAD.ANGLE 250222 . 251318) (SK.SET.ARROWHEAD.TYPE 251320 . 254609) (SK.SET.LINE.ARROWHEAD + 254611 . 257024) (SK.UPDATE.ARROWHEAD.FORMAT 257026 . 259136) (SK.SET.LINE.LENGTH.MODE 259138 . +260616)) (260619 262420 (SK.INSURE.ARROWHEADS 260629 . 261811) (SK.ARROWHEADP 261813 . 262418)) ( +265217 327543 (SKETCH.CREATE.TEXT 265227 . 265741) (TEXT.CHANGEFN 265743 . 266135) (TEXT.READCHANGEFN +266137 . 274208) (\SK.READ.FONT.SIZE1 274210 . 276106) (SK.TEXT.ELT.WITH.SAME.FIELDS 276108 . 277748) +(SK.READFONTFAMILY 277750 . 279296) (CLOSE.PROMPT.WINDOW 279298 . 279722) (TEXT.DRAWFN 279724 . 280445 +) (TEXT.DRAWFN1 280447 . 283949) (TEXT.INSIDEFN 283951 . 284340) (TEXT.EXPANDFN 284342 . 286467) ( +SK.TEXT.LINE.REGIONS 286469 . 288343) (TEXT.UPDATE.GLOBAL.REGIONS 288345 . 289577) (REL.MOVE.REGION +289579 . 290116) (LTEXT.LINE.REGIONS 290118 . 293536) (TEXT.INPUTFN 293538 . 294048) (READ.TEXT 294050 + . 294798) (TEXT.POSITION.AND.CREATE 294800 . 297111) (CREATE.TEXT.ELEMENT 297113 . 297931) ( +SK.UPDATE.TEXT.AFTER.CHANGE 297933 . 298335) (SK.TEXT.FROM.TEXTBOX 298337 . 302143) ( +TEXT.SET.GLOBAL.REGIONS 302145 . 303438) (TEXT.REGIONFN 303440 . 304210) (TEXT.GLOBALREGIONFN 304212 + . 304900) (TEXT.TRANSLATEFN 304902 . 306217) (TEXT.TRANSFORMFN 306219 . 307342) (TEXT.TRANSLATEPTSFN +307344 . 307861) (TEXT.UPDATEFN 307863 . 312519) (SK.CHANGE.TEXT 312521 . 325609) (TEXT.SET.SCALES +325611 . 326579) (BREAK.AT.CARRIAGE.RETURNS 326581 . 327541)) (327544 346068 (ADD.KNOWN.SKETCH.FONT +327554 . 328545) (SK.PICK.FONT 328547 . 334079) (SK.CHOOSE.TEXT.FONT 334081 . 338029) (SK.NEXTSIZEFONT + 338031 . 339298) (SK.DECREASING.FONT.LIST 339300 . 341173) (SK.GUESS.FONTSAVAILABLE 341175 . 346066)) + (346487 360630 (SK.SET.FONT 346497 . 348064) (SK.SET.TEXT.FONT 348066 . 349068) (SK.SET.TEXT.SIZE +349070 . 349757) (SK.SET.TEXT.HORIZ.ALIGN 349759 . 351333) (SK.READFONTSIZE 351335 . 353565) ( +SK.COLLECT.FONT.SIZES 353567 . 356485) (SK.SET.TEXT.VERT.ALIGN 356487 . 358529) (SK.SET.TEXT.LOOKS +358531 . 359988) (SK.SET.DEFAULT.TEXT.FACE 359990 . 360628)) (360631 361217 (CREATE.SKETCH.TERMTABLE +360641 . 361215)) (361218 362984 (SK.FONT.LIST 361228 . 361554) (SK.INSURE.FONT 361556 . 362078) ( +SK.INSURE.STYLE 362080 . 362598) (SK.INSURE.TEXT 362600 . 362982)) (363554 420847 ( +SKETCH.CREATE.TEXTBOX 363564 . 365206) (SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 365208 . 367285) ( +SK.BREAK.INTO.LINES 367287 . 378473) (SK.BRUSH.SIZE 378475 . 378856) (SK.TEXTBOX.CREATE 378858 . +379655) (SK.TEXTBOX.CREATE1 379657 . 380721) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 380723 . 381263) ( +SK.TEXTBOX.POSITION.IN.BOX 381265 . 383176) (TEXTBOX.CHANGEFN 383178 . 383652) (TEXTBOX.DRAWFN 383654 + . 385690) (SK.TEXTURE.AROUND.REGIONS 385692 . 391765) (ALL.EMPTY.REGIONS 391767 . 392257) ( +TEXTBOX.EXPANDFN 392259 . 399415) (TEXTBOX.INPUTFN 399417 . 401030) (TEXTBOX.INSIDEFN 401032 . 401445) + (TEXTBOX.REGIONFN 401447 . 402301) (TEXTBOX.GLOBALREGIONFN 402303 . 402631) ( +TEXTBOX.SET.GLOBAL.REGIONS 402633 . 403964) (TEXTBOX.TRANSLATEFN 403966 . 405807) ( +TEXTBOX.TRANSLATEPTSFN 405809 . 408592) (TEXTBOX.TRANSFORMFN 408594 . 410262) (TEXTBOX.UPDATEFN 410264 + . 412157) (TEXTBOX.READCHANGEFN 412159 . 417048) (SK.TEXTBOX.TEXT.POSITION 417050 . 417471) ( +SK.TEXTBOX.FROM.TEXT 417473 . 420078) (ADD.EOLS 420080 . 420845)) (421376 424877 ( +SK.SET.TEXTBOX.VERT.ALIGN 421386 . 423266) (SK.SET.TEXTBOX.HORIZ.ALIGN 423268 . 424875)) (425260 +469735 (SKETCH.CREATE.BOX 425270 . 425753) (SK.BOX.DRAWFN 425755 . 426914) (BOX.DRAWFN1 426916 . +429755) (KNOTS.OF.REGION 429757 . 430991) (SK.DRAWAREABOX 430993 . 437594) (SK.DRAWBOX 437596 . 438785 +) (SK.BOX.EXPANDFN 438787 . 442535) (SK.BOX.GETREGIONFN 442537 . 443723) (BOX.SET.SCALES 443725 . +444965) (SK.BOX.INPUTFN 444967 . 446900) (SK.BOX.CREATE 446902 . 447603) (SK.UPDATE.BOX.AFTER.CHANGE +447605 . 448116) (SK.BOX.INSIDEFN 448118 . 448508) (SK.BOX.REGIONFN 448510 . 449223) ( +SK.BOX.GLOBALREGIONFN 449225 . 449963) (SK.BOX.READCHANGEFN 449965 . 453686) (SK.CHANGE.FILLING 453688 + . 457636) (SK.CHANGE.FILLING.COLOR 457638 . 461294) (SK.BOX.TRANSLATEFN 461296 . 462475) ( +SK.BOX.TRANSFORMFN 462477 . 463422) (SK.BOX.TRANSLATEPTSFN 463424 . 465792) (UNSCALE.REGION.TO.GRID +465794 . 466719) (INCREASEREGION 466721 . 467312) (INSUREREGIONSIZE 467314 . 468485) (EXPANDREGION +468487 . 469367) (REGION.FROM.COORDINATES 469369 . 469733)) (470271 496626 (SKETCH.CREATE.ARC 470281 + . 471090) (ARC.DRAWFN 471092 . 472819) (ARC.EXPANDFN 472821 . 475154) (ARC.INPUTFN 475156 . 479374) ( +SK.INVERT.CIRCLE 479376 . 480236) (SK.READ.ARC.ANGLE.POINT 480238 . 480745) (SK.SHOW.ARC 480747 . +481357) (ARC.CREATE 481359 . 482714) (SK.UPDATE.ARC.AFTER.CHANGE 482716 . 483056) (ARC.MOVEFN 483058 + . 484641) (ARC.TRANSLATEPTS 484643 . 486528) (ARC.INSIDEFN 486530 . 486780) (ARC.REGIONFN 486782 . +487918) (ARC.GLOBALREGIONFN 487920 . 489642) (ARC.TRANSLATE 489644 . 490626) (ARC.TRANSFORMFN 490628 + . 493578) (ARC.READCHANGEFN 493580 . 496624)) (496627 505706 (SK.COMPUTE.ARC.ANGLE.PT 496637 . 497563 +) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 497565 . 498558) (SK.COMPUTE.ARC.PTS 498560 . 502132) ( +SK.SET.ARC.DIRECTION 502134 . 502708) (SK.SET.ARC.DIRECTION.CW 502710 . 502884) ( +SK.SET.ARC.DIRECTION.CCW 502886 . 503159) (SK.COMPUTE.SLOPE.OF.LINE 503161 . 503653) ( +SK.CREATE.ARC.USING 503655 . 504892) (SET.ARC.SCALES 504894 . 505704)) (505707 506152 ( +SK.INSURE.DIRECTION 505717 . 506150)) (507523 553382 (GETSKETCHELEMENTPROP 507533 . 508841) ( +\SK.GET.ARC.ANGLEPT 508843 . 509404) (\GETSKETCHELEMENTPROP1 509406 . 509660) (\SK.GET.BRUSH 509662 . +510586) (\SK.GET.FILLING 510588 . 511686) (\SK.GET.ARROWHEADS 511688 . 512467) (\SK.GET.FONT 512469 . +512949) (\SK.GET.JUSTIFICATION 512951 . 513475) (\SK.GET.DIRECTION 513477 . 513954) (\SK.GET.DASHING +513956 . 514975) (PUTSKETCHELEMENTPROP 514977 . 517246) (\SK.PUT.FILLING 517248 . 518518) ( +ADDSKETCHELEMENTPROP 518520 . 519325) (REMOVESKETCHELEMENTPROP 519327 . 520116) (\SK.PUT.FONT 520118 + . 520932) (\SK.PUT.JUSTIFICATION 520934 . 521945) (\SK.PUT.DIRECTION 521947 . 522554) ( +\SK.PUT.DASHING 522556 . 523891) (\SK.PUT.BRUSH 523893 . 525812) (\SK.PUT.ARROWHEADS 525814 . 527780) +(SK.COPY.ELEMENT.PROPERTY.LIST 527782 . 528358) (SKETCH.UPDATE 528360 . 529090) (SKETCH.UPDATE1 529092 + . 530380) (\SKELT.GET.SCALE 530382 . 531370) (\SKELT.PUT.SCALE 531372 . 532679) (\SKELT.PUT.DATA +532681 . 534478) (SK.REPLACE.TEXT.IN.ELEMENT 534480 . 535433) (\SKELT.GET.DATA 535435 . 536502) ( +\SK.GET.1STCONTROLPT 536504 . 538016) (\SK.PUT.1STCONTROLPT 538018 . 543491) (\SK.GET.2NDCONTROLPT +543493 . 544408) (\SK.PUT.2NDCONTROLPT 544410 . 548598) (\SK.GET.3RDCONTROLPT 548600 . 549478) ( +\SK.PUT.3RDCONTROLPT 549480 . 553380)) (553383 553964 (LOWERLEFTCORNER 553393 . 553639) ( +UPPERRIGHTCORNER 553641 . 553962))))) STOP diff --git a/library/SKETCHELEMENTS.LCOM b/library/SKETCHELEMENTS.LCOM index b6cb51285..a0744fc45 100644 Binary files a/library/SKETCHELEMENTS.LCOM and b/library/SKETCHELEMENTS.LCOM differ diff --git a/library/TABLEBROWSER b/library/TABLEBROWSER index df34c2c4f..cc0d3b119 100644 --- a/library/TABLEBROWSER +++ b/library/TABLEBROWSER @@ -1,51 +1,51 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Feb-2021 23:02:39"  -{DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;4 57889 - changes to%: (VARS TABLEBROWSERCOMS) +(FILECREATED " 6-Aug-2022 18:06:57" {DSK}larry>medley>library>TABLEBROWSER.;8 63740 - previous date%: " 1-Dec-2018 17:25:13" -{DSK}kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;3) + :CHANGES-TO (VARS TABLEBROWSERCOMS) + (RECORDS TABLEBROWSER TABLEITEM) + + :PREVIOUS-DATE " 4-Aug-2022 09:32:17" {DSK}larry>medley>library>TABLEBROWSER.;7) (* ; " -Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. +Copyright (c) 1985-1988, 1990, 1993-1995, 1999, 2018, 2021-2022 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT TABLEBROWSERCOMS) (RPAQQ TABLEBROWSERCOMS - ((COMS (* ; "Entries") + ((COMS (* ; "Entries") (FNS TB.MAKE.BROWSER TB.REPLACE.ITEMS) (FNS TB.DELETE.ITEM TB.UNDELETE.ITEM TB.INSERT.ITEM TB.REMOVE.ITEM TB.NORMALIZE.ITEM TB.REDISPLAY.ITEMS TB.SELECT.ITEM TB.UNSELECT.ITEM TB.UNSELECT.ALL.ITEMS) (FNS TB.NUMBER.OF.ITEMS TB.NTH.ITEM TB.COLLECT.ITEMS TB.MAP.ITEMS TB.MAP.DELETED.ITEMS TB.MAP.SELECTED.ITEMS TB.FIND.ITEM TB.ITEM.SELECTED? TB.ITEM.DELETED?) (FNS TB.CLEAR.LINE TB.USERDATA TB.WINDOW)) - (COMS (* ; "Display") + (COMS (* ; "Display") (FNS TB.REPAINTFN TB.RESHAPEFN TB.SCROLLFN TB.DISPLAY.LINES TB.PRINT.LINE TB.FIRST.VISIBLE.ITEM# TB.LAST.VISIBLE.ITEM# TB.ITEM.VISIBLE? TB.ITEM.FROM.YCOORD TB.BOTTOM.OF.ITEM TB.SHOW.DELETION TB.SHOW.SELECTION TB.UPDATE.DISPLAY TB.ITEM.UPDATABLE?)) - (COMS (* ; "Selection") + (COMS (* ; "Selection") (FNS TB.BUTTONEVENTFN TB.DO.UNLESS.BUSY TB.DO.ITEM.SELECTION TB.CONTIGUOUS.SELP TB.DECONSIDERRANGE TB.CONSIDERRANGE TB.DESELECTRANGE TB.RECONSIDERRANGE TB.SELECTRANGE TB.UNDOSELECTION TB.FIND.SELECTED.ITEM TB.REV.FIND.SELECTED.ITEM) (FNS TB.COPYBUTTONEVENTFN TB.SHOW.COPY.SELECTION)) - (COMS (* ; "Misc state change") + (COMS (* ; "Misc state change") (FNS TB.BROWSER.BUSY TB.CLOSE/SHRINK TB.CLOSEFN TB.FINISH.CLOSE TB.FLUSH.WINDOW TB.SET.FONT TB.SHRINKFN TB.EXPANDFN TB.FIND.PREVIOUS.TAIL TB.RENUMBER.TAIL)) - (COMS (* ; "Misc") + (COMS (* ; "Misc") (FNS TB.PROCESS) (INITVARS (TB.DELETEDLINEHEIGHT 1)) (VARS TB.SELECTION.BITMAP) (CURSORS TB.CROSSCURSOR) - (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE) - TABLEBROWSERDECLS) + (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS TB.LEFT.MARGIN) (CONSTANTS * TOCSTATES) (MACROS .COPYKEYDOWNP.) (GLOBALVARS TB.CROSSCURSOR TB.SELECTION.BITMAP TB.DELETEDLINEHEIGHT) - (LOCALVARS . T))) + (LOCALVARS . T) + (RECORDS TABLEBROWSER TABLEITEM))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA TB.USERDATA))) @@ -375,19 +375,23 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b (RPAQ TB.CROSSCURSOR (CURSORCREATE (QUOTE #*(16 16)L@@CN@@GG@@NCHALALCH@NG@@GN@@CL@@CL@@GN@@NG@ALCHCHALG@@NN@@GL@@C ) (QUOTE NIL) 8 8)) (DECLARE%: EVAL@COMPILE DONTCOPY +(DECLARE%: EVAL@COMPILE + +(RPAQQ TB.LEFT.MARGIN 8) -(FILESLOAD (SOURCE) - TABLEBROWSERDECLS) + +(CONSTANTS TB.LEFT.MARGIN) +) (RPAQQ TOCSTATES ((TS.IDLE 0) - (TS.REPLACING 1) - (TS.ADDING 2) - (TS.REMOVING 3) - (TS.EXTENDING.HI 4) - (TS.EXTENDING.LO 5) - (TS.SHRINKING.HI 6) - (TS.SHRINKING.LO 7))) + (TS.REPLACING 1) + (TS.ADDING 2) + (TS.REMOVING 3) + (TS.EXTENDING.HI 4) + (TS.EXTENDING.LO 5) + (TS.SHRINKING.HI 6) + (TS.SHRINKING.LO 7))) (DECLARE%: EVAL@COMPILE (RPAQQ TS.IDLE 0) @@ -420,8 +424,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b (DECLARE%: EVAL@COMPILE (PUTPROPS .COPYKEYDOWNP. MACRO [NIL (OR (KEYDOWNP 'LSHIFT) - (KEYDOWNP 'RSHIFT) - (KEYDOWNP 'COPY]) + (KEYDOWNP 'RSHIFT) + (KEYDOWNP 'COPY]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -433,6 +437,117 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b (LOCALVARS . T) ) + +(DECLARE%: EVAL@COMPILE + +(DATATYPE TABLEBROWSER ((TBREADY FLAG) + (TBHEIGHTEXPLICIT FLAG) (* ; + "True if creator set explicit item height or baseline") + (TBITEMS POINTER) (* ; "List of items in this browser") + (TB#ITEMS WORD) (* ; "Number of items") + (TB#DELETED WORD) (* ; "Number of items marked deleted") + (TB#LINESPERITEM WORD) (* ; + "Number of lines occupied by each item, normally 1 (dunno if any other values work)") + (TBFIRSTSELECTEDITEM WORD) (* ; + "Number of first selected item. If none selected, is > TB#ITEMS") + (TBLASTSELECTEDITEM WORD) (* ; + "Number of last selected item. If none selected, is 0") + (TBITEMHEIGHT WORD) (* ; + "Height of an item, i.e., fontheight*linesperitem") + (TBMAXXPOS WORD) (* ; + "The largest x-position a user printfn has printed to") + (TBFONTHEIGHT WORD) (* ; "Height, ascent, descent of font") + (TBFONTASCENT WORD) + (TBBASELINE WORD) + (TBWINDOW POINTER) (* ; + "Pointer to the display window. Need to snap this link when browser is closed") + (TBLOCK POINTER) (* ; + "Monitor lock guarding some browser operations") + (TBUSERDATA POINTER) (* ; "Arbitrary user storage") + (TBFONT POINTER) (* ; "Pointer to font used by display") + (TBEXTENT POINTER) (* ; + "Window's extent, updated as items are added, deleted, or printfn prints farther to right") + (TBUPDATEFROMHERE POINTER) (* ; + "If changes have occurred while shrunk, this gives the # of first item that needs redisplay") + (TBCOLUMNS POINTER) (* ; + "Number of columns--not yet implemented") + (TBPRINTFN POINTER) (* ; + "(Browser Item Window) -- displays Item at current line position in window") + (TBCOPYFN POINTER) (* ; + "(Browser Item) -- copy selects Item") + (TBFONTCHANGEFN POINTER) (* ; + "(Browser Window) -- called when tb.set.font changes the font") + (TBCLOSEFN POINTER) (* ; + "(Browser Window Close/Shrink) -- called when you try to close or shrink window") + (TBAFTERCLOSEFN POINTER) (* ; + "(Browser Window) -- called to cleanup AFTER a closew") + (TBTITLEEVENTFN POINTER) (* ; + "(Window Browser) -- handles button event in browser's title") + (TBLINETHICKNESS POINTER) (* ; + "Thickness of line for deletions (normally 1)") + (TBORIGIN POINTER) (* ; + "Y position of the top of the first item") + (TBTAILHINT POINTER) (* ; + "A tail of TBITEMS, used to speed up TB.NTH.ITEM") + (TBHEADINGWINDOW POINTER) (* ; + "An optional %"header window%" that should be horizontally scrolled in synchrony with this one") + (NIL POINTER))) + +(DATATYPE TABLEITEM ((TISELECTED FLAG) + (TIDELETED FLAG) + (TIUNDELETABLE FLAG) + (TIUNSELECTABLE FLAG) + (TIUNCOPYSELECTABLE FLAG) + (TIDATA POINTER) + (TI# WORD))) +) + +(/DECLAREDATATYPE 'TABLEBROWSER + '(FLAG FLAG POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER + POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER + POINTER POINTER POINTER POINTER) + '((TABLEBROWSER 0 (FLAGBITS . 0)) + (TABLEBROWSER 0 (FLAGBITS . 16)) + (TABLEBROWSER 0 POINTER) + (TABLEBROWSER 2 (BITS . 15)) + (TABLEBROWSER 3 (BITS . 15)) + (TABLEBROWSER 4 (BITS . 15)) + (TABLEBROWSER 5 (BITS . 15)) + (TABLEBROWSER 6 (BITS . 15)) + (TABLEBROWSER 7 (BITS . 15)) + (TABLEBROWSER 8 (BITS . 15)) + (TABLEBROWSER 9 (BITS . 15)) + (TABLEBROWSER 10 (BITS . 15)) + (TABLEBROWSER 11 (BITS . 15)) + (TABLEBROWSER 12 POINTER) + (TABLEBROWSER 14 POINTER) + (TABLEBROWSER 16 POINTER) + (TABLEBROWSER 18 POINTER) + (TABLEBROWSER 20 POINTER) + (TABLEBROWSER 22 POINTER) + (TABLEBROWSER 24 POINTER) + (TABLEBROWSER 26 POINTER) + (TABLEBROWSER 28 POINTER) + (TABLEBROWSER 30 POINTER) + (TABLEBROWSER 32 POINTER) + (TABLEBROWSER 34 POINTER) + (TABLEBROWSER 36 POINTER) + (TABLEBROWSER 38 POINTER) + (TABLEBROWSER 40 POINTER) + (TABLEBROWSER 42 POINTER) + (TABLEBROWSER 44 POINTER) + (TABLEBROWSER 46 POINTER)) + '48) + +(/DECLAREDATATYPE 'TABLEITEM '(FLAG FLAG FLAG FLAG FLAG POINTER WORD) + '((TABLEITEM 0 (FLAGBITS . 0)) + (TABLEITEM 0 (FLAGBITS . 16)) + (TABLEITEM 0 (FLAGBITS . 32)) + (TABLEITEM 0 (FLAGBITS . 48)) + (TABLEITEM 0 (FLAGBITS . 64)) + (TABLEITEM 2 POINTER) + (TABLEITEM 1 (BITS . 15))) + '4) ) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS @@ -444,19 +559,14 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b ) (/DECLAREDATATYPE 'TABLEBROWSER - '(FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD - WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER - POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER) + '(FLAG FLAG POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER + POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER + POINTER POINTER POINTER POINTER) '((TABLEBROWSER 0 (FLAGBITS . 0)) (TABLEBROWSER 0 (FLAGBITS . 16)) - (TABLEBROWSER 0 (FLAGBITS . 32)) - (TABLEBROWSER 0 (FLAGBITS . 48)) - (TABLEBROWSER 0 (FLAGBITS . 64)) - (TABLEBROWSER 0 (FLAGBITS . 80)) - (TABLEBROWSER 0 (FLAGBITS . 96)) - (TABLEBROWSER 0 (FLAGBITS . 112)) - (TABLEBROWSER 2 POINTER) - (TABLEBROWSER 1 (BITS . 15)) + (TABLEBROWSER 0 POINTER) + (TABLEBROWSER 2 (BITS . 15)) + (TABLEBROWSER 3 (BITS . 15)) (TABLEBROWSER 4 (BITS . 15)) (TABLEBROWSER 5 (BITS . 15)) (TABLEBROWSER 6 (BITS . 15)) @@ -465,7 +575,7 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b (TABLEBROWSER 9 (BITS . 15)) (TABLEBROWSER 10 (BITS . 15)) (TABLEBROWSER 11 (BITS . 15)) - (TABLEBROWSER 12 (BITS . 15)) + (TABLEBROWSER 12 POINTER) (TABLEBROWSER 14 POINTER) (TABLEBROWSER 16 POINTER) (TABLEBROWSER 18 POINTER) @@ -482,91 +592,83 @@ Copyright (c) 1985, 1986, 1987, 1988, 1990, 1993, 1994, 1995, 1999, 2018, 2021 b (TABLEBROWSER 40 POINTER) (TABLEBROWSER 42 POINTER) (TABLEBROWSER 44 POINTER) - (TABLEBROWSER 46 POINTER) - (TABLEBROWSER 48 POINTER)) - '50) + (TABLEBROWSER 46 POINTER)) + '48) -(/DECLAREDATATYPE 'TABLEITEM '(FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER WORD WORD) +(/DECLAREDATATYPE 'TABLEITEM '(FLAG FLAG FLAG FLAG FLAG POINTER WORD) '((TABLEITEM 0 (FLAGBITS . 0)) (TABLEITEM 0 (FLAGBITS . 16)) (TABLEITEM 0 (FLAGBITS . 32)) (TABLEITEM 0 (FLAGBITS . 48)) (TABLEITEM 0 (FLAGBITS . 64)) - (TABLEITEM 0 (FLAGBITS . 80)) - (TABLEITEM 0 (FLAGBITS . 96)) - (TABLEITEM 0 (FLAGBITS . 112)) (TABLEITEM 2 POINTER) - (TABLEITEM 1 (BITS . 15)) - (TABLEITEM 4 (BITS . 15))) - '6) + (TABLEITEM 1 (BITS . 15))) + '4) (ADDTOVAR SYSTEMRECLST (DATATYPE TABLEBROWSER ((TBREADY FLAG) - (TBHEIGHTEXPLICIT FLAG) - (NIL 6 FLAG) - (TBITEMS POINTER) - (TB#ITEMS WORD) - (TB#DELETED WORD) - (TB#LINESPERITEM WORD) - (TBFIRSTSELECTEDITEM WORD) - (TBLASTSELECTEDITEM WORD) - (TBITEMHEIGHT WORD) - (TBMAXXPOS WORD) - (TBFONTHEIGHT WORD) - (TBFONTASCENT WORD) - (TBBASELINE WORD) - (TBWINDOW POINTER) - (TBLOCK POINTER) - (TBUSERDATA POINTER) - (TBFONT POINTER) - (TBEXTENT POINTER) - (TBUPDATEFROMHERE POINTER) - (TBCOLUMNS POINTER) - (TBPRINTFN POINTER) - (TBCOPYFN POINTER) - (TBFONTCHANGEFN POINTER) - (TBCLOSEFN POINTER) - (TBAFTERCLOSEFN POINTER) - (TBTITLEEVENTFN POINTER) - (TBLINETHICKNESS POINTER) - (TBORIGIN POINTER) - (TBTAILHINT POINTER) - (TBHEADINGWINDOW POINTER) - (NIL POINTER))) + (TBHEIGHTEXPLICIT FLAG) + (TBITEMS POINTER) + (TB#ITEMS WORD) + (TB#DELETED WORD) + (TB#LINESPERITEM WORD) + (TBFIRSTSELECTEDITEM WORD) + (TBLASTSELECTEDITEM WORD) + (TBITEMHEIGHT WORD) + (TBMAXXPOS WORD) + (TBFONTHEIGHT WORD) + (TBFONTASCENT WORD) + (TBBASELINE WORD) + (TBWINDOW POINTER) + (TBLOCK POINTER) + (TBUSERDATA POINTER) + (TBFONT POINTER) + (TBEXTENT POINTER) + (TBUPDATEFROMHERE POINTER) + (TBCOLUMNS POINTER) + (TBPRINTFN POINTER) + (TBCOPYFN POINTER) + (TBFONTCHANGEFN POINTER) + (TBCLOSEFN POINTER) + (TBAFTERCLOSEFN POINTER) + (TBTITLEEVENTFN POINTER) + (TBLINETHICKNESS POINTER) + (TBORIGIN POINTER) + (TBTAILHINT POINTER) + (TBHEADINGWINDOW POINTER) + (NIL POINTER))) (DATATYPE TABLEITEM ((TISELECTED FLAG) - (TIDELETED FLAG) - (TIUNDELETABLE FLAG) - (TIUNSELECTABLE FLAG) - (TIUNCOPYSELECTABLE FLAG) - (NIL 3 FLAG) - (TIDATA POINTER) - (TI# WORD) - (NIL WORD))) + (TIDELETED FLAG) + (TIUNDELETABLE FLAG) + (TIUNSELECTABLE FLAG) + (TIUNCOPYSELECTABLE FLAG) + (TIDATA POINTER) + (TI# WORD))) ) (PUTPROPS TABLEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1993 1994 1995 -1999 2018 2021)) +1999 2018 2021 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3214 7565 (TB.MAKE.BROWSER 3224 . 6340) (TB.REPLACE.ITEMS 6342 . 7563)) (7566 16585 ( -TB.DELETE.ITEM 7576 . 8010) (TB.UNDELETE.ITEM 8012 . 8591) (TB.INSERT.ITEM 8593 . 10600) ( -TB.REMOVE.ITEM 10602 . 12134) (TB.NORMALIZE.ITEM 12136 . 12849) (TB.REDISPLAY.ITEMS 12851 . 15170) ( -TB.SELECT.ITEM 15172 . 15477) (TB.UNSELECT.ITEM 15479 . 15834) (TB.UNSELECT.ALL.ITEMS 15836 . 16583)) -(16586 21112 (TB.NUMBER.OF.ITEMS 16596 . 17078) (TB.NTH.ITEM 17080 . 18154) (TB.COLLECT.ITEMS 18156 . -18527) (TB.MAP.ITEMS 18529 . 18893) (TB.MAP.DELETED.ITEMS 18895 . 19342) (TB.MAP.SELECTED.ITEMS 19344 - . 19951) (TB.FIND.ITEM 19953 . 20826) (TB.ITEM.SELECTED? 20828 . 20969) (TB.ITEM.DELETED? 20971 . -21110)) (21113 21954 (TB.CLEAR.LINE 21123 . 21535) (TB.USERDATA 21537 . 21803) (TB.WINDOW 21805 . -21952)) (21979 32237 (TB.REPAINTFN 21989 . 22400) (TB.RESHAPEFN 22402 . 23240) (TB.SCROLLFN 23242 . -23793) (TB.DISPLAY.LINES 23795 . 25052) (TB.PRINT.LINE 25054 . 25574) (TB.FIRST.VISIBLE.ITEM# 25576 . -26013) (TB.LAST.VISIBLE.ITEM# 26015 . 26488) (TB.ITEM.VISIBLE? 26490 . 27010) (TB.ITEM.FROM.YCOORD -27012 . 27322) (TB.BOTTOM.OF.ITEM 27324 . 27737) (TB.SHOW.DELETION 27739 . 28361) (TB.SHOW.SELECTION -28363 . 29132) (TB.UPDATE.DISPLAY 29134 . 31419) (TB.ITEM.UPDATABLE? 31421 . 32235)) (32264 43677 ( -TB.BUTTONEVENTFN 32274 . 32733) (TB.DO.UNLESS.BUSY 32735 . 33042) (TB.DO.ITEM.SELECTION 33044 . 39118) - (TB.CONTIGUOUS.SELP 39120 . 39487) (TB.DECONSIDERRANGE 39489 . 39857) (TB.CONSIDERRANGE 39859 . 40430 -) (TB.DESELECTRANGE 40432 . 41494) (TB.RECONSIDERRANGE 41496 . 41994) (TB.SELECTRANGE 41996 . 42936) ( -TB.UNDOSELECTION 42938 . 43215) (TB.FIND.SELECTED.ITEM 43217 . 43440) (TB.REV.FIND.SELECTED.ITEM 43442 - . 43675)) (43678 45177 (TB.COPYBUTTONEVENTFN 43688 . 44908) (TB.SHOW.COPY.SELECTION 44910 . 45175)) ( -45212 51519 (TB.BROWSER.BUSY 45222 . 45339) (TB.CLOSE/SHRINK 45341 . 45973) (TB.CLOSEFN 45975 . 46076) - (TB.FINISH.CLOSE 46078 . 46731) (TB.FLUSH.WINDOW 46733 . 47260) (TB.SET.FONT 47262 . 49560) ( -TB.SHRINKFN 49562 . 49665) (TB.EXPANDFN 49667 . 50432) (TB.FIND.PREVIOUS.TAIL 50434 . 51176) ( -TB.RENUMBER.TAIL 51178 . 51517)) (51541 51914 (TB.PROCESS 51551 . 51912))))) + (FILEMAP (NIL (3194 7545 (TB.MAKE.BROWSER 3204 . 6320) (TB.REPLACE.ITEMS 6322 . 7543)) (7546 16565 ( +TB.DELETE.ITEM 7556 . 7990) (TB.UNDELETE.ITEM 7992 . 8571) (TB.INSERT.ITEM 8573 . 10580) ( +TB.REMOVE.ITEM 10582 . 12114) (TB.NORMALIZE.ITEM 12116 . 12829) (TB.REDISPLAY.ITEMS 12831 . 15150) ( +TB.SELECT.ITEM 15152 . 15457) (TB.UNSELECT.ITEM 15459 . 15814) (TB.UNSELECT.ALL.ITEMS 15816 . 16563)) +(16566 21092 (TB.NUMBER.OF.ITEMS 16576 . 17058) (TB.NTH.ITEM 17060 . 18134) (TB.COLLECT.ITEMS 18136 . +18507) (TB.MAP.ITEMS 18509 . 18873) (TB.MAP.DELETED.ITEMS 18875 . 19322) (TB.MAP.SELECTED.ITEMS 19324 + . 19931) (TB.FIND.ITEM 19933 . 20806) (TB.ITEM.SELECTED? 20808 . 20949) (TB.ITEM.DELETED? 20951 . +21090)) (21093 21934 (TB.CLEAR.LINE 21103 . 21515) (TB.USERDATA 21517 . 21783) (TB.WINDOW 21785 . +21932)) (21959 32217 (TB.REPAINTFN 21969 . 22380) (TB.RESHAPEFN 22382 . 23220) (TB.SCROLLFN 23222 . +23773) (TB.DISPLAY.LINES 23775 . 25032) (TB.PRINT.LINE 25034 . 25554) (TB.FIRST.VISIBLE.ITEM# 25556 . +25993) (TB.LAST.VISIBLE.ITEM# 25995 . 26468) (TB.ITEM.VISIBLE? 26470 . 26990) (TB.ITEM.FROM.YCOORD +26992 . 27302) (TB.BOTTOM.OF.ITEM 27304 . 27717) (TB.SHOW.DELETION 27719 . 28341) (TB.SHOW.SELECTION +28343 . 29112) (TB.UPDATE.DISPLAY 29114 . 31399) (TB.ITEM.UPDATABLE? 31401 . 32215)) (32244 43657 ( +TB.BUTTONEVENTFN 32254 . 32713) (TB.DO.UNLESS.BUSY 32715 . 33022) (TB.DO.ITEM.SELECTION 33024 . 39098) + (TB.CONTIGUOUS.SELP 39100 . 39467) (TB.DECONSIDERRANGE 39469 . 39837) (TB.CONSIDERRANGE 39839 . 40410 +) (TB.DESELECTRANGE 40412 . 41474) (TB.RECONSIDERRANGE 41476 . 41974) (TB.SELECTRANGE 41976 . 42916) ( +TB.UNDOSELECTION 42918 . 43195) (TB.FIND.SELECTED.ITEM 43197 . 43420) (TB.REV.FIND.SELECTED.ITEM 43422 + . 43655)) (43658 45157 (TB.COPYBUTTONEVENTFN 43668 . 44888) (TB.SHOW.COPY.SELECTION 44890 . 45155)) ( +45192 51499 (TB.BROWSER.BUSY 45202 . 45319) (TB.CLOSE/SHRINK 45321 . 45953) (TB.CLOSEFN 45955 . 46056) + (TB.FINISH.CLOSE 46058 . 46711) (TB.FLUSH.WINDOW 46713 . 47240) (TB.SET.FONT 47242 . 49540) ( +TB.SHRINKFN 49542 . 49645) (TB.EXPANDFN 49647 . 50412) (TB.FIND.PREVIOUS.TAIL 50414 . 51156) ( +TB.RENUMBER.TAIL 51158 . 51497)) (51521 51894 (TB.PROCESS 51531 . 51892))))) STOP diff --git a/library/TABLEBROWSER.LCOM b/library/TABLEBROWSER.LCOM index b3d5cc61d..9993f9a15 100644 Binary files a/library/TABLEBROWSER.LCOM and b/library/TABLEBROWSER.LCOM differ diff --git a/lispusers/DINFO b/lispusers/DINFO index 7381b73b3..a4f12404a 100644 --- a/lispusers/DINFO +++ b/lispusers/DINFO @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 3-Feb-2022 11:57:39" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>DINFO.;5 65271 +(FILECREATED " 4-Aug-2022 09:56:25" {DSK}larry>medley>lispusers>DINFO.;2 65548 - :CHANGES-TO (FNS DINFO.UPDATE.TEXT.DISPLAY) + :CHANGES-TO (FNS DINFO.UPDATE.FMENU DINFO.UPDATE.MENU.DISPLAY DINFO.UPDATE.HISTORY + DINFO.UPDATE.GRAPH.DISPLAY DINFO.LAYOUTGRAPH) - :PREVIOUS-DATE "21-Jan-2022 23:16:01" -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>DINFO.;3) + :PREVIOUS-DATE " 3-Feb-2022 11:57:39" {DSK}larry>medley>lispusers>DINFO.;1) (* ; " @@ -628,10 +628,10 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. (SHOULDNT]) (DINFO.UPDATE.FMENU - [LAMBDA (GRAPH NEW.NODE) (* jow "20-May-86 15:13") - - (* * Update the display of GRAPH's FreeMenu. - If NEW.NODE is not specified, use Top node of GRAPH, and change Top node title.) + [LAMBDA (GRAPH NEW.NODE) (* jow "20-May-86 15:13") + + (* * Update the display of GRAPH's FreeMenu. + If NEW.NODE is not specified, use Top node of GRAPH, and change Top node title.) (LET* [(W (fetch (DINFOGRAPH FMENU.WINDOW) of GRAPH)) (NODELST (fetch (DINFOGRAPH NODELST) of GRAPH)) @@ -712,7 +712,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. (DEFINEQ (DINFO.UPDATE.MENU.DISPLAY - [LAMBDA (GRAPH NODE) (* drc%: "25-Jan-86 18:20") + [LAMBDA (GRAPH NODE) (* drc%: "25-Jan-86 18:20") (LET* [(DINFOW (fetch (DINFOGRAPH WINDOW) of GRAPH)) (WINDOW (fetch (DINFOGRAPH SUBNODE.MENU.WINDOW) of GRAPH)) [CHILDREN (DREVERSE (for ID in (fetch (DINFONODE CHILDREN) of NODE) @@ -764,9 +764,8 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. (REDISPLAYW WINDOW) (replace (DINFOGRAPH SUBNODE.MENU.WINDOW) of GRAPH with WINDOW) (LET [(BITS (fetch (REGION BOTTOM) of (WINDOWPROP WINDOW 'REGION] - - (* Slide DINFOW up if our new menu is off the screen) - + (* Slide DINFOW up if our new menu is + off the screen) (AND (ILESSP BITS 0) (RELMOVEW DINFOW (create POSITION XCOORD _ 0 @@ -780,7 +779,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. (CADR ITEM]) (DINFO.UPDATE.HISTORY - [LAMBDA (GRAPH NODE SEL DISPLAY?) (* drc%: "25-Jan-86 18:21") + [LAMBDA (GRAPH NODE SEL DISPLAY?) (* drc%: "25-Jan-86 18:21") (LET* ((DINFOW (fetch (DINFOGRAPH WINDOW) of GRAPH)) (OLDWINDOW (fetch (DINFOGRAPH HISTORY.MENU.WINDOW) of GRAPH)) (OLDITEMS (fetch (DINFOGRAPH HISTORY.ITEMS) of GRAPH)) @@ -839,17 +838,15 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. (DEFINEQ (DINFO.UPDATE.GRAPH.DISPLAY - [LAMBDA (DINFO.GRAPH NODE FORCE?) (* drc%: "27-Jan-86 16:19") + [LAMBDA (DINFO.GRAPH NODE FORCE?) (* drc%: "27-Jan-86 16:19") (LET [(DINFOW (fetch (DINFOGRAPH WINDOW) of DINFO.GRAPH)) (LOCATION (CONS (fetch (DINFONODE PARENT) of NODE) (fetch (DINFONODE CHILDREN) of NODE] (if (AND (NOT FORCE?) (EQUAL LOCATION (fetch (DINFOGRAPH LAST.GRAPH.LOCATION) of DINFO.GRAPH))) - then - - (* don't need to relayout grapher display -- - just change which node is inverted.) - + then (* don't need to relayout grapher + display -- just change which node is + inverted.) (DINFO.INVERT.NODE (fetch (DINFOGRAPH GRAPH.WINDOW) of DINFO.GRAPH) NODE DINFO.GRAPH) else (DINFO.SHOWGRAPH (DINFO.LAYOUTGRAPH DINFO.GRAPH NODE) @@ -944,7 +941,7 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. else (OPENW WINDOW]) (DINFO.LAYOUTGRAPH - [LAMBDA (DINFO.GRAPH NODE) (* drc%: "25-Jan-86 18:20") + [LAMBDA (DINFO.GRAPH NODE) (* drc%: "25-Jan-86 18:20") (LET* [(WINDOW (fetch (DINFOGRAPH WINDOW) of DINFO.GRAPH)) (FONT (OR (FONTP (fetch (DINFOGRAPH MENUFONT) of DINFO.GRAPH)) MENUFONT)) @@ -1115,21 +1112,21 @@ Copyright (c) 1985-1987, 2020-2021 by Xerox Corporation. ) (PUTPROPS DINFO COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4678 6137 (DINFOGRAPHPROP 4678 . 6137)) (7391 24529 (DINFO 7401 . 9015) (DINFO.UPDATE -9017 . 11881) (DINFOGRAPH 11883 . 12301) (DINFO.SPECIAL.UPDATE 12303 . 14001) (DINFO.READ.GRAPH 14003 - . 15858) (DINFO.WRITE.GRAPH 15860 . 16950) (DINFO.SELECT.GRAPH 16952 . 17859) (DINFO.DEFAULT.MENU -17861 . 20385) (DINFO.FIND 20387 . 22973) (DINFO.LOOKUP 22975 . 24527)) (24530 27224 ( -DINFO.READ.KOTO.GRAPH 24540 . 27222)) (27225 29539 (DINFO.SETUP.WINDOW 27235 . 27916) (DINFO.CLOSEFN -27918 . 28351) (DINFO.SHRINKFN 28353 . 28549) (DINFO.EXPANDFN 28551 . 29108) (DINFO.ICONFN 29110 . -29537)) (29540 40800 (DINFO.ADD.FMENU 29550 . 30645) (DINFO.CREATE.FMENU 30647 . 34596) ( -DINFO.FMW.CLOSEFN 34598 . 35443) (DINFO.FMENU.HANDLER 35445 . 36084) (DINFO.UPDATE.FMENU 36086 . 38291 -) (DINFO.TOGGLE.MENU 38293 . 38883) (DINFO.TOGGLE.GRAPH 38885 . 39384) (DINFO.TOGGLE.HISTORY 39386 . -39930) (DINFO.TOGGLE.TEXT 39932 . 40798)) (40801 48499 (DINFO.UPDATE.MENU.DISPLAY 40811 . 44831) ( -DINFO.UPDATE.FROM.MENU 44833 . 45132) (DINFO.UPDATE.HISTORY 45134 . 47668) (DINFO.HISTORIC.UPDATE -47670 . 48497)) (48500 58666 (DINFO.UPDATE.GRAPH.DISPLAY 48510 . 49828) (DINFO.UPDATE.FROM.GRAPH 49830 - . 50273) (DINFO.GET.GRAPH.WINDOW 50275 . 50860) (DINFO.CREATE.GRAPH.WINDOW 50862 . 51979) ( -DINFO.SHOWGRAPH 51981 . 53706) (DINFO.INVERT.NODE 53708 . 55096) (DINFO.LAYOUTGRAPH 55098 . 58664)) ( -58667 64610 (DINFO.UPDATE.TEXT.DISPLAY 58677 . 60625) (DINFO.TITLEMENUFN 60627 . 61752) ( -DINFO.OPENTEXTSTREAM 61754 . 62970) (DINFO.SHOWSEL 62972 . 63705) (DINFO.GET.FILENAME 63707 . 64608))) + (FILEMAP (NIL (4744 6203 (DINFOGRAPHPROP 4744 . 6203)) (7457 24595 (DINFO 7467 . 9081) (DINFO.UPDATE +9083 . 11947) (DINFOGRAPH 11949 . 12367) (DINFO.SPECIAL.UPDATE 12369 . 14067) (DINFO.READ.GRAPH 14069 + . 15924) (DINFO.WRITE.GRAPH 15926 . 17016) (DINFO.SELECT.GRAPH 17018 . 17925) (DINFO.DEFAULT.MENU +17927 . 20451) (DINFO.FIND 20453 . 23039) (DINFO.LOOKUP 23041 . 24593)) (24596 27290 ( +DINFO.READ.KOTO.GRAPH 24606 . 27288)) (27291 29605 (DINFO.SETUP.WINDOW 27301 . 27982) (DINFO.CLOSEFN +27984 . 28417) (DINFO.SHRINKFN 28419 . 28615) (DINFO.EXPANDFN 28617 . 29174) (DINFO.ICONFN 29176 . +29603)) (29606 40850 (DINFO.ADD.FMENU 29616 . 30711) (DINFO.CREATE.FMENU 30713 . 34662) ( +DINFO.FMW.CLOSEFN 34664 . 35509) (DINFO.FMENU.HANDLER 35511 . 36150) (DINFO.UPDATE.FMENU 36152 . 38341 +) (DINFO.TOGGLE.MENU 38343 . 38933) (DINFO.TOGGLE.GRAPH 38935 . 39434) (DINFO.TOGGLE.HISTORY 39436 . +39980) (DINFO.TOGGLE.TEXT 39982 . 40848)) (40851 48646 (DINFO.UPDATE.MENU.DISPLAY 40861 . 44982) ( +DINFO.UPDATE.FROM.MENU 44984 . 45283) (DINFO.UPDATE.HISTORY 45285 . 47815) (DINFO.HISTORIC.UPDATE +47817 . 48644)) (48647 58943 (DINFO.UPDATE.GRAPH.DISPLAY 48657 . 50109) (DINFO.UPDATE.FROM.GRAPH 50111 + . 50554) (DINFO.GET.GRAPH.WINDOW 50556 . 51141) (DINFO.CREATE.GRAPH.WINDOW 51143 . 52260) ( +DINFO.SHOWGRAPH 52262 . 53987) (DINFO.INVERT.NODE 53989 . 55377) (DINFO.LAYOUTGRAPH 55379 . 58941)) ( +58944 64887 (DINFO.UPDATE.TEXT.DISPLAY 58954 . 60902) (DINFO.TITLEMENUFN 60904 . 62029) ( +DINFO.OPENTEXTSTREAM 62031 . 63247) (DINFO.SHOWSEL 63249 . 63982) (DINFO.GET.FILENAME 63984 . 64885))) )) STOP diff --git a/lispusers/DINFO.LCOM b/lispusers/DINFO.LCOM index 1226d12a2..d4f6f9868 100644 Binary files a/lispusers/DINFO.LCOM and b/lispusers/DINFO.LCOM differ diff --git a/library/TABLEBROWSERDECLS b/obsolete/library/TABLEBROWSERDECLS similarity index 100% rename from library/TABLEBROWSERDECLS rename to obsolete/library/TABLEBROWSERDECLS diff --git a/library/TABLEBROWSERDECLS.LCOM b/obsolete/library/TABLEBROWSERDECLS.LCOM similarity index 100% rename from library/TABLEBROWSERDECLS.LCOM rename to obsolete/library/TABLEBROWSERDECLS.LCOM diff --git a/library/TBDECLS b/obsolete/library/TBDECLS similarity index 100% rename from library/TBDECLS rename to obsolete/library/TBDECLS diff --git a/library/TBDECLS.LCOM b/obsolete/library/TBDECLS.LCOM similarity index 100% rename from library/TBDECLS.LCOM rename to obsolete/library/TBDECLS.LCOM diff --git a/lispusers/ARCHIVEBROWSER b/obsolete/lispusers/ARCHIVEBROWSER similarity index 100% rename from lispusers/ARCHIVEBROWSER rename to obsolete/lispusers/ARCHIVEBROWSER diff --git a/lispusers/ARCHIVEBROWSER.LCOM b/obsolete/lispusers/ARCHIVEBROWSER.LCOM similarity index 100% rename from lispusers/ARCHIVEBROWSER.LCOM rename to obsolete/lispusers/ARCHIVEBROWSER.LCOM diff --git a/lispusers/ARCHIVETOOL b/obsolete/lispusers/ARCHIVETOOL similarity index 100% rename from lispusers/ARCHIVETOOL rename to obsolete/lispusers/ARCHIVETOOL diff --git a/lispusers/ARCHIVETOOL.LCOM b/obsolete/lispusers/ARCHIVETOOL.LCOM similarity index 100% rename from lispusers/ARCHIVETOOL.LCOM rename to obsolete/lispusers/ARCHIVETOOL.LCOM