--- a/UIPainter.st Wed Feb 17 21:15:58 1999 +0100
+++ b/UIPainter.st Thu Feb 18 13:54:09 1999 +0100
@@ -197,7 +197,7 @@
'Opens a System Browser on the aspect methods.'
#fileLoad
-'Opens a dialog to load a window specification from a classes windowSpec method.'
+'Opens a dialog to load a window specification from a classes spec method.'
#fileLoadSubspec
'Opens a dialog to load a sub specification from a classes windowSpec method.'
@@ -266,13 +266,13 @@
'Shows or hides the gallery window.'
#settingsGridManager
-'Opens a dialog to show/hide the grid points or to change the distances between them.'
+'Opens a dialog to toggle grid display or to change the grids spacing.'
#settingsRedefineAspectMethods
'Toggles the permission to overwrite existing aspect methods.'
#settingsAspectsAsInstances
-'Genrate aspects as instance variables (or bindings, if off).'
+'Generate aspects as instance variables (or bindings, if off).'
#settingsTranscriptHelp
'Toggles display of help texts (after opening a new GUI Painter).'
@@ -870,327 +870,327 @@
#(#Menu
- #(
- #(#MenuItem
- #label: 'About'
- #translateLabel: true
- #activeHelpKey: #about
- #labelImage: #(#ResourceRetriever nil #menuIcon)
- #submenuChannel: #menuAbout
- )
- #(#MenuItem
- #label: 'File'
- #translateLabel: true
- #activeHelpKey: #file
- #enabled: #enableChannel
- #submenu:
- #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'About'
+ #translateLabel: true
+ #activeHelpKey: #about
+ #labelImage: #(#ResourceRetriever nil #menuIcon)
+ #submenuChannel: #menuAbout
+ )
+ #(#MenuItem
+ #label: 'File'
+ #translateLabel: true
+ #activeHelpKey: #file
+ #enabled: #enableChannel
+ #submenu:
+ #(#Menu
- #(
- #(#MenuItem
- #label: 'New'
- #translateLabel: true
- #value: #doNew
- #activeHelpKey: #fileNew
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Load...'
- #translateLabel: true
- #value: #doLoad
- #activeHelpKey: #fileLoad
- )
- #(#MenuItem
- #label: 'Load Subspec...'
- #translateLabel: true
- #value: #doLoadSubspec
- #activeHelpKey: #fileLoadSubspec
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Save'
- #translateLabel: true
- #value: #doSave
- #activeHelpKey: #fileSave
- )
- #(#MenuItem
- #label: 'Save As...'
- #translateLabel: true
- #value: #doSaveAs
- #activeHelpKey: #fileSaveAs
- )
- #(#MenuItem
- #label: 'Define Class And Selector...'
- #translateLabel: true
- #value: #doDefineClassAndSelector
- #activeHelpKey: #fileSaveAs
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Pick A Window Spec...'
- #translateLabel: true
- #value: #doPickAView
- #activeHelpKey: #filePickAnInterface
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Show Window Spec'
- #translateLabel: true
- #value: #doWindowSpec
- #activeHelpKey: #fileShowWindowSpec
- )
- #(#MenuItem
- #label: 'Browse Class'
- #translateLabel: true
- #value: #doBrowseClass
- #activeHelpKey: #fileBrowseClass
- #enabled: #hasSpecClass
- )
- #(#MenuItem
- #label: 'Browse Aspect Methods'
- #translateLabel: true
- #value: #doBrowseAspectMethods
- #activeHelpKey: #fileBrowseAspectMethods
- #enabled: #hasSpecClass
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Exit'
- #translateLabel: true
- #value: #closeRequest
- #activeHelpKey: #fileExit
- )
- ) nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Edit'
- #translateLabel: true
- #activeHelpKey: #edit
- #submenuChannel: #menuEdit
- )
- #(#MenuItem
- #label: 'Align'
- #translateLabel: true
- #activeHelpKey: #align
- #submenuChannel: #menuAlign
- )
- #(#MenuItem
- #label: 'Generate'
- #translateLabel: true
- #activeHelpKey: #generate
- #submenu:
- #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'New'
+ #translateLabel: true
+ #value: #doNew
+ #activeHelpKey: #fileNew
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Load...'
+ #translateLabel: true
+ #value: #doLoad
+ #activeHelpKey: #fileLoad
+ )
+ #(#MenuItem
+ #label: 'Load Subspec...'
+ #translateLabel: true
+ #value: #doLoadSubspec
+ #activeHelpKey: #fileLoadSubspec
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Save'
+ #translateLabel: true
+ #value: #doSave
+ #activeHelpKey: #fileSave
+ )
+ #(#MenuItem
+ #label: 'Save As...'
+ #translateLabel: true
+ #value: #doSaveAs
+ #activeHelpKey: #fileSaveAs
+ )
+ #(#MenuItem
+ #label: 'Define Class And Selector...'
+ #translateLabel: true
+ #value: #doDefineClassAndSelector
+ #activeHelpKey: #fileSaveAs
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Pick A Window Spec...'
+ #translateLabel: true
+ #value: #doPickAView
+ #activeHelpKey: #filePickAnInterface
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Show Window Spec'
+ #translateLabel: true
+ #value: #doWindowSpec
+ #activeHelpKey: #fileShowWindowSpec
+ )
+ #(#MenuItem
+ #label: 'Browse Class'
+ #translateLabel: true
+ #value: #doBrowseClass
+ #activeHelpKey: #fileBrowseClass
+ #enabled: #hasSpecClass
+ )
+ #(#MenuItem
+ #label: 'Browse Aspect Methods'
+ #translateLabel: true
+ #value: #doBrowseAspectMethods
+ #activeHelpKey: #fileBrowseAspectMethods
+ #enabled: #hasSpecClass
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Exit'
+ #translateLabel: true
+ #value: #closeRequest
+ #activeHelpKey: #fileExit
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Edit'
+ #translateLabel: true
+ #activeHelpKey: #edit
+ #submenuChannel: #menuEdit
+ )
+ #(#MenuItem
+ #label: 'Align'
+ #translateLabel: true
+ #activeHelpKey: #align
+ #submenuChannel: #menuAlign
+ )
+ #(#MenuItem
+ #label: 'Generate'
+ #translateLabel: true
+ #activeHelpKey: #generate
+ #submenu:
+ #(#Menu
- #(
- #(#MenuItem
- #label: 'Aspect Methods'
- #translateLabel: true
- #value: #doGenerateAspectMethods
- #activeHelpKey: #generateAspectMethods
- #enabled: #hasSpecClass
- )
- #(#MenuItem
- #label: 'Menu Stub Methods'
- #translateLabel: true
- #value: #doGenerateMenuMethods
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Hook Methods'
- #translateLabel: true
- #value: #doGenerateHookMethods
- #activeHelpKey: #generateHookMethods
- #enabled: #hasSpecClass
- )
- ) nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Test'
- #translateLabel: true
- #activeHelpKey: #test
- #submenu:
- #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Aspect Methods'
+ #translateLabel: true
+ #value: #doGenerateAspectMethods
+ #activeHelpKey: #generateAspectMethods
+ #enabled: #hasSpecClass
+ )
+ #(#MenuItem
+ #label: 'Menu Stub Methods'
+ #translateLabel: true
+ #value: #doGenerateMenuMethods
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Hook Methods'
+ #translateLabel: true
+ #value: #doGenerateHookMethods
+ #activeHelpKey: #generateHookMethods
+ #enabled: #hasSpecClass
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Test'
+ #translateLabel: true
+ #activeHelpKey: #test
+ #submenu:
+ #(#Menu
- #(
- #(#MenuItem
- #label: 'Start Application'
- #translateLabel: true
- #value: #doStartApplication
- #activeHelpKey: #testStartApplication
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Geometry Test Mode'
- #translateLabel: true
- #activeHelpKey: #testGeometryTestMode
- #indication: #testMode:
- )
- ) nil
- nil
- )
- )
- #(#MenuItem
- #label: 'Settings'
- #translateLabel: true
- #activeHelpKey: #settings
- #submenu:
- #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Start Application'
+ #translateLabel: true
+ #value: #doStartApplication
+ #activeHelpKey: #testStartApplication
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Geometry Test Mode'
+ #translateLabel: true
+ #activeHelpKey: #testGeometryTestMode
+ #indication: #testMode:
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'Settings'
+ #translateLabel: true
+ #activeHelpKey: #settings
+ #submenu:
+ #(#Menu
- #(
- #(#MenuItem
- #label: 'Canvas'
- #translateLabel: true
- #activeHelpKey: #settingsCanvas
- #indication: #painterShown
- )
- #(#MenuItem
- #label: 'Gallery'
- #translateLabel: true
- #activeHelpKey: #settingsGallery
- #indication: #galleryShown
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Redefine Aspect Methods'
- #translateLabel: true
- #activeHelpKey: #settingsRedefineAspectMethods
- #enabled: #hasSpecClass
- #indication: #redefineAspectMethods:
- )
- #(#MenuItem
- #label: 'Aspects As Instances'
- #translateLabel: true
- #activeHelpKey: #settingsAspectsAsInstances
- #enabled: #hasSpecClass
- #indication: #generateAspectsAsInstanceVariables:
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Fonts'
- #submenuChannel: #menuFont
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Undo Manager...'
- #translateLabel: true
- #value: #openUndoMenu
- #activeHelpKey: #settingsUndoManager
- #enabled: #hasUndoHistory
- )
- #(#MenuItem
- #label: 'Grid Manager...'
- #translateLabel: true
- #value: #doDefineGrid
- #activeHelpKey: #settingsGridManager
- )
- ) nil
- nil
- )
- )
- #(#MenuItem
- #label: 'History'
- #translateLabel: true
- #activeHelpKey: #history
- #submenuChannel: #menuHistory
- )
- #(#MenuItem
- #label: 'Help'
- #translateLabel: true
- #startGroup: #right
- #activeHelpKey: #help
- #submenu:
- #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Canvas'
+ #translateLabel: true
+ #activeHelpKey: #settingsCanvas
+ #indication: #painterShown
+ )
+ #(#MenuItem
+ #label: 'Gallery'
+ #translateLabel: true
+ #activeHelpKey: #settingsGallery
+ #indication: #galleryShown
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Redefine Aspect Methods'
+ #translateLabel: true
+ #activeHelpKey: #settingsRedefineAspectMethods
+ #enabled: #hasSpecClass
+ #indication: #redefineAspectMethods:
+ )
+ #(#MenuItem
+ #label: 'Aspects As Instances'
+ #translateLabel: true
+ #activeHelpKey: #settingsAspectsAsInstances
+ #enabled: #hasSpecClass
+ #indication: #generateAspectsAsInstanceVariables:
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+"/ #(#MenuItem
+"/ #label: 'Fonts'
+"/ #submenuChannel: #menuFont
+"/ )
+"/ #(#MenuItem
+"/ #label: '-'
+"/ )
+ #(#MenuItem
+ #label: 'Undo Manager...'
+ #translateLabel: true
+ #value: #openUndoMenu
+ #activeHelpKey: #settingsUndoManager
+ #enabled: #hasUndoHistory
+ )
+ #(#MenuItem
+ #label: 'Grid Manager...'
+ #translateLabel: true
+ #value: #doDefineGrid
+ #activeHelpKey: #settingsGridManager
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
+ #label: 'History'
+ #translateLabel: true
+ #activeHelpKey: #history
+ #submenuChannel: #menuHistory
+ )
+ #(#MenuItem
+ #label: 'Help'
+ #translateLabel: true
+ #startGroup: #right
+ #activeHelpKey: #help
+ #submenu:
+ #(#Menu
- #(
- #(#MenuItem
- #label: 'Tutorial'
- #translateLabel: true
- #value: #openHTMLDocument:
- #activeHelpKey: #helpTutorial
- #argument: 'tools/uipainter/TOP.html'
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Functions'
- #translateLabel: true
- #value: #openHTMLDocument:
- #activeHelpKey: #helpFunctions
- #argument: 'tools/uipainter/Functions.html'
- )
- #(#MenuItem
- #label: 'Examples'
- #translateLabel: true
- #value: #openHTMLDocument:
- #activeHelpKey: #helpExamples
- #argument: 'tools/uipainter/Examples.html'
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Help Tool'
- #translateLabel: true
- #value: #openHTMLDocument:
- #activeHelpKey: #helpHelpTool
- #argument: 'tools/uipainter/HelpTool.html'
- )
- #(#MenuItem
- #label: 'Layout Tool'
- #translateLabel: true
- #value: #openHTMLDocument:
- #activeHelpKey: #helpLayoutTool
- #argument: 'tools/uipainter/LayoutTool.html'
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Selected Widget'
- #translateLabel: true
- #value: #doOpenWidgetDocumentation
- #activeHelpKey: #helpSelectedWidget
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Show Help Texts'
- #translateLabel: true
- #activeHelpKey: #helpShowHelp
- #indication: #showingHelp:
- )
- ) nil
- nil
- )
- )
- ) nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'Tutorial'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpTutorial
+ #argument: 'tools/uipainter/TOP.html'
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Functions'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpFunctions
+ #argument: 'tools/uipainter/Functions.html'
+ )
+ #(#MenuItem
+ #label: 'Examples'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpExamples
+ #argument: 'tools/uipainter/Examples.html'
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Help Tool'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpHelpTool
+ #argument: 'tools/uipainter/HelpTool.html'
+ )
+ #(#MenuItem
+ #label: 'Layout Tool'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpLayoutTool
+ #argument: 'tools/uipainter/LayoutTool.html'
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Selected Widget'
+ #translateLabel: true
+ #value: #doOpenWidgetDocumentation
+ #activeHelpKey: #helpSelectedWidget
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Show Help Texts'
+ #translateLabel: true
+ #activeHelpKey: #helpShowHelp
+ #indication: #showingHelp:
+ )
+ ) nil
+ nil
+ )
+ )
+ ) nil
+ nil
)
"Modified: / 23.8.1998 / 16:09:22 / cg"