(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Sep-94 11:52:56" ("compiled on " {DSK}lispusers>IDEASKETCH.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "13-Oct-88 17:50:59" {ERINYES}MEDLEY>IDEASKETCH.;1 14200 previous date%: "18-Feb-87 17:04:55" {PHYLUM}IDEASKETCH.;9) WRITEW.CREATE :D8 (P 0 SKW I 6 INITIALGRID I 5 BRINGUPMENU I 4 INITIALSCALE I 3 TITLE I 2 SCREENREGION I 1 SKETCHREGION I 0 SKETCH) Y@ABCDF Hg Hg Hg Hg Hg Hg H(85 SK.SET.TEXT.VERT.ALIGN 74 SK.SET.TEXT.HORIZ.ALIGN 63 SK.SET.ARROWHEAD.TYPE 52 SK.SET.LINE.ARROWHEAD 41 SK.SET.MOVE.MODE 30 SK.SET.LINE.LENGTH.MODE 16 SKETCHW.CREATE 9 SK.WRITING.MENU) (80 TOP 69 LEFT 58 LINE 47 LAST 36 POINTS 25 NO) () SK.TOGGLE.DEFAULT.ARROWHEAD :D8 (I 0 W) 1@g HHgð•g„g(10 GETWINDOWUSERPROP) (44 LAST 38 NEITHER 31 LAST 5 SKETCHCONTEXT) () SK.WRITING.MENU :D8 (P 4 ELEMENT I 0 MENUTITLE F 5 ALLOWSKETCHPUTFLG F 6 BOLDFONT) `oooAHµ‚±ªIoooU´oU´oo HdI¿di ¿dg¿V HdI¿d@¿dg ¿dg¿jdnÿdhHdI ¿\g \ɲ LÉLdÉh»Jµ KhZ¹HX±ÿK&º°÷(210 GETPROP 144 FONTNAMELIST 139 FONTCREATE 109 \APPEND2 104 \APPEND2 99 \APPEND2 94 \APPEND2 89 \APPEND2 84 \APPEND2 79 \APPEND2 74 \APPEND2) (235 SKETCHTYPE 226 SKETCHTYPE 216 SKETCHTYPE 205 SKETCHTYPE 174 DEFAULTMENUHELDFN 165 CLRPROMPT 130 SKETCHW.SELECTIONFN 4 |MENUTYPE#|) ( 69 ((Redisplay REDISPLAYW "repaints the sketch image.")) 64 ((Get SK.GET.FROM.FILE "gets a sketch from a file.")) 56 ((Put SK.PUT.ON.FILE "saves this sketch on a file")) 48 ((HardCopy HARDCOPYIMAGEW "sends a copy of the current window contents on the default printer." (SUBITEMS ("To a file" HARDCOPYIMAGEW.TOFILE "Puts image on a file; prompts for filename and format") ("To a printer" HARDCOPYIMAGEW.TOPRINTER "Sends image to a printer of your choosing") ("Whole sketch" SK.LIST.IMAGE "Sends the image of the whole sketch at the current scale to the printer." (SUBITEMS ("To a file" HARDCOPYIMAGEW.TOFILE "Puts image on a file; prompts for filename and format") ("To a printer" HARDCOPYIMAGEW.TOPRINTER "Sends image to a printer of your choosing"))) (Hardcopy% Display SK.SET.HARDCOPY.MODE "Makes the display correspond to the hardcopy image on the default printer.") (Normal% Display SK.UNSET.HARDCOPY.MODE "Changes the display to use display fonts.")))) 43 (("Move view" SKETCH.ZOOM "makes a new region the part of the sketch visible." (SUBITEMS ("Move view" SKETCH.ZOOM "changes the scale of the display.") (AutoZoom SKETCH.AUTOZOOM "changes the scale around a selected point.") (Home SKETCH.HOME "returns to the origin at the original scale") ("Fit it" SK.FRAME.IT "moves so that the entire sketch just fits in the window") ("Restore view" SK.RESTORE.VIEW "Moves to a previously saved view." (SUBITEMS ("Restore view" SK.RESTORE.VIEW "Moves to a previously saved view.") ("Save view" SK.NAME.CURRENT.VIEW "saves the current view (position and scale) of the sketch for easy return.") ("Forget view" SK.FORGET.VIEW "Deletes a previously saved view."))) ("Coord window" ADD.GLOBAL.DISPLAY "creates a window that shows the cursor in global coordinates." (SUBITEMS ("Coord window" ADD.GLOBAL.DISPLAY "creates a window that shows the cursor position in global coordinates.") ("Grid coord window" ADD.GLOBAL.GRIDDED.DISPLAY "creates a window that shows the grid position nearest the cursor in global coordinates."))) (New% window SKETCH.NEW.VIEW "opens another viewer onto this sketch")))) 38 (("font LARGE" (SK.SEL.AND.MAKE (QUOTE (TEXT LARGER))) "Makes the font larger.") ("font small" (SK.SEL.AND.MAKE (QUOTE (TEXT SMALLER))) "Makes the font of selected items smaller.") ("BOLD" (SK.SEL.AND.MAKE (QUOTE (TEXT BOLD))) "makes selected text bold." (SUBITEMS ("Default BOLD" (SK.SET.DEFAULT.TEXT.FACE (QUOTE (BOLD REGULAR REGULAR))) "makes the default text bold.") ("Default unbold" (SK.SET.DEFAULT.TEXT.FACE (QUOTE (MEDIUM REGULAR REGULAR))) "makes the default text unbold."))) ("line size" (SK.SEL.AND.MAKE (LIST (QUOTE SIZE) (READBRUSHSIZE))) "sets the line size of selected elements." (SUBITEMS ("Default line size" (SK.SET.DEFAULT.BRUSH.SIZE (READBRUSHSIZE)) "sets the line size of any newly constructed lines."))) ("More Menu" SK.SKETCH.MENU "pops up the normal sketch command menu.")) 20 (TEXTBOX) 15 ((Change SK.CHANGE.ELT "Changes a property of a piece.")) 10 (("Move points" SK.MOVE.POINTS "Moves a collection of control points."))) SK.ADD.SUBITEM.TO.MENU :D8 (P 1 ITEM P 0 ITEMS I 3 NOERRORFLG I 2 NEWSUBITEM I 1 ITEMLABEL I 0 ITEMLST) @Ø@É€@1AH YdµJAH YµC²0hdIZd´dið¬3µ gJhhgBhh±°o ±£³/Id[d´dið¬3µ gKhhgBhh °rId³hgBhh °X³IgBhh °@Idgð²¿BI ³$IBh °gBhI¿@ô‚±ÿ@ ¿±ÿ(281 UPDATE/MENU/IMAGE 242 \NCONC2 227 MEMBER 198 \NCONC2 174 \NCONC2 148 \NCONC2 99 ERROR 37 MEMBER 26 SASSOC) (269 MENU 252 SUBITEMS 212 SUBITEMS 187 SUBITEMS 162 SUBITEMS 135 SUBITEMS 125 QUOTE 76 SUBITEMS 66 QUOTE 12 MENU 5 MENU) ( 94 "Couldn't find item in item lst.") SK.SEL.AND.MAKE :D8 (I 1 W I 0 CHANGECOMMAND) g@Ai A (18 SK.APPLY.CHANGE.COMMAND 12 SK.SELECT.MULTIPLE.ITEMS) (4 SK.ELEMENTS.CHANGEFN) () (PRETTYCOMPRINT IDEASKETCHCOMS) (RPAQQ IDEASKETCHCOMS ((FILES SKETCH) (COMS (* stuff for creating a writing specialized sketch window. ) (FNS WRITEW.CREATE SK.TOGGLE.DEFAULT.ARROWHEAD SK.WRITING.MENU SK.ADD.SUBITEM.TO.MENU SK.SEL.AND.MAKE)) (COMS (* stuff to add writingtool to background menu) (P (SK.ADD.SUBITEM.TO.MENU BackgroundMenuCommands (QUOTE Sketch) (QUOTE ("IdeaSketch" (QUOTE (WRITEW.CREATE NIL NIL (GETREGION) NIL NIL T T)) "Opens an idea sketch window.")) T)) (VARS (BackgroundMenu NIL))))) (FILESLOAD SKETCH) (SK.ADD.SUBITEM.TO.MENU BackgroundMenuCommands (QUOTE Sketch) (QUOTE ("IdeaSketch" (QUOTE ( WRITEW.CREATE NIL NIL (GETREGION) NIL NIL T T)) "Opens an idea sketch window.")) T) (RPAQQ BackgroundMenu NIL) (PUTPROPS IDEASKETCH COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988)) NIL