(FILECREATED "18-Feb-87 17:05:12" ("compiled on " {PHYLUM}IDEASKETCH.;9) "12-Nov-85 14:59:23" recompiled changes: SK.SEL.AND.MAKE in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "18-Feb-87 17:04:55" {PHYLUM}IDEASKETCH.;9 10353 changes to: (FNS SK.SEL.AND.MAKE) previous date: "20-Mar-86 17:52:35" {PHYLUM}IDEASKETCH.;8) WRITEW.CREATE D1 (P 0 SKW I 6 INITIALGRID I 5 BRINGUPMENU I 4 INITIALSCALE I 3 TITLE I 2 SCREENREGION I 1 SKETCHREGION I 0 SKETCH) =@ABCDF Hg Hg Hg Hg Hg Hg H(71Q SK.SET.TEXT.VERT.ALIGN 62Q SK.SET.TEXT.HORIZ.ALIGN 53Q SK.SET.ARROWHEAD.TYPE 44Q SK.SET.LINE.ARROWHEAD 35Q SK.SET.MOVE.MODE 26Q SK.SET.LINE.LENGTH.MODE 14Q SKETCHW.CREATE 7 SK.WRITING.MENU) (66Q TOP 57Q LEFT 50Q LINE 41Q LAST 32Q POINTS 23Q NO) () SK.TOGGLE.DEFAULT.ARROWHEAD D1 (I 0 W) '@g HHggg(6 GETWINDOWUSERPROP) (42Q LAST 36Q NEITHER 31Q LAST 3 SKETCHCONTEXT) () SK.WRITING.MENU D1 (I 0 MENUTITLE F 5 ALLOWSKETCHPUTFLG) `oooAHIoooUoUoo HdIdi dg` HdId@dg dgjdndhHdI g\dLdhJKhZYHXEK&Z(161Q FONTNAMELIST 156Q FONTCREATE 122Q \APPEND2 117Q \APPEND2 114Q \APPEND2 111Q \APPEND2 106Q \APPEND2 103Q \APPEND2 100Q \APPEND2 75Q \APPEND2) (273Q SKETCHTYPE 264Q SKETCHTYPE 255Q SKETCHTYPE 247Q SKETCHTYPE 213Q DEFAULTMENUHELDFN 204Q CLRPROMPT 153Q BOLDFONT 145Q SKETCHW.SELECTIONFN 2 MENUTYPE#) ( 72Q ((Redisplay REDISPLAYW "repaints the sketch image.")) 66Q ((Get SK.GET.FROM.FILE "gets a sketch from a file.")) 57Q ((Put SK.PUT.ON.FILE "saves this sketch on a file")) 50Q ((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.")))) 44Q (("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")))) 40Q (("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.")) 17Q (TEXTBOX) 13Q ((Change SK.CHANGE.ELT "Changes a property of a piece.")) 7 (("Move points" SK.MOVE.POINTS "Moves a collection of control points."))) SK.ADD.SUBITEM.TO.MENU D1 (P 1 ITEM P 0 ITEMS I 3 NOERRORFLG I 2 NEWSUBITEM I 1 ITEMLABEL I 0 ITEMLST) @d`1AH YdAAH YC,hdIZddi3 gJhhgBhho )Id[ddi3 gKhhgBhh _IdhgBhh JIgBhh 7IdgBI IBh gBhI@`<@ 3(357Q UPDATE/MENU/IMAGE 315Q \NCONC2 300Q MEMBER 247Q \NCONC2 224Q \NCONC2 177Q \NCONC2 124Q ERROR 35Q MEMBER 24Q SASSOC) (344Q MENUTYPE# 324Q SUBITEMS 263Q SUBITEMS 236Q SUBITEMS 212Q SUBITEMS 164Q SUBITEMS 154Q QUOTE 100Q SUBITEMS 70Q QUOTE 12Q MENU 5 MENUTYPE#) ( 121Q "Couldn't find item in item lst.") SK.SEL.AND.MAKE D1 (I 1 W I 0 CHANGECOMMAND) g@Ai A (14Q SK.APPLY.CHANGE.COMMAND 10Q SK.SELECT.MULTIPLE.ITEMS) (2 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)) NIL