hg/stx-libtool2: comparison UIPainter.st

equal deleted inserted replaced

-:51876d557fed
+:0ac5a26498c1
 #centerSelectionVer
 'Centers the selected widgets vertically in their contained widget.'
 #changePositionDown
-'Changes the position of the widgets to the bottom.'
+'Moves the selected widget(s) towards the bottom.'
 #changePositionLeft
-'Changes the position of the widgets to the left.'
+'Moves the selected widget(s) towards the left.'
 #changePositionRight
-'Changes the position of the widgets to the right.'
+'Moves the selected widget(s) towards the right.'
 #changePositionUp
-'Changes the position of the widgets to the top.'
+'Moves the selected widget(s) towards the top.'
 #editDimensionCopyExtent
 'Copies the extent of the selected widgets.'
 #editDimensionCopyLayout
 #filePickAnInterface
 'Changes the cursor for moving it over another interface application to load its window spec.'
 #fileSave
-'Saves current window spec on current class and if modified the help spec.'
+'Saves the window spec in the current class.'
 #fileSaveAs
-'Opens a dialog to select or create a class and selector in order to save current window spec.'
+'Opens a dialog to select class and selector for saving the window spec.'
 #fileShowWindowSpec
 'Opens a Workspace showing the current window spec.'
 #generateAspectMethods
 #moveWidgetUp
 'Moves the selected widget one step up.'
 #pasteBuffer
-'Pastes the widgets of the clipboard at current mouse position.'
+'Pastes the widgets of the clipboard at the current mouse position.'
 #pasteWithLayout
 'Pastes the widgets of the clipboard without a changing of their layouts.'
 #settingsCanvas
 #settingsTranscriptHelp
 'Turns on/off showing help texts in a transcript (after opening of a new GUI Painter).'
 #settingsUndoManager
-'Opens a dialog to reverse a certain number of last edit action.'
+'Opens a dialog to undo modifications.'
 #spreadSelectionHor
 'Sets the horizontal spaces between the selected widgets as the same.'
 #spreadSelectionVer
 'Sets the vertical spaces between the selected widgets as the same.'
 #testGeometryTestMode
-'Turns on/off the geometry test mode in order to define ratios of variable panels.'
+'Toggles geometry test mode in order to define ratios of variable panels.'
 #testStartApplication
-'Starts current application on current window spec.'
+'Starts the application with the current window spec.'
 )
+"Modified: / 20.5.1998 / 02:09:00 / cg"
 ! !
 !UIPainter class methodsFor:'helpers'!
 convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
 #(
 #(#LabelSpec
 #name: 'selectorLabel'
 #layout: #(#AlignmentOrigin 77 0.11 39 0 1 0.5)
 #label: 'Selector:'
+#translateLabel: true
 #adjust: #right
 #resizeForLabel: true
 )
 #(#InputFieldSpec
 #name: 'methodNameField'
 )
 #(#LabelSpec
 #name: 'classLabel'
 #layout: #(#AlignmentOrigin 77 0.11 64 0 1 0.5)
 #label: 'Class:'
+#translateLabel: true
 #adjust: #right
 #resizeForLabel: true
 )
 #(#InputFieldSpec
 #name: 'classNameField'
 )
 #(#LabelSpec
 #name: 'superClassLabel'
 #layout: #(#AlignmentOrigin 77 0.11 89 0 1 0.5)
 #label: 'Superclass:'
+#translateLabel: true
 #adjust: #right
 #resizeForLabel: true
 )
 #(#ComboBoxSpec
 #name: 'superclassNameComboBox'
 #comboList: #superclassNameDefaults
 )
 )
 )
 #label: 'Define Class And Selector'
+#translateLabel: true
 #labelPosition: #topLeft
 )
 #(#UISubSpecification
 #name: 'subSpec'
 #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
 #minorKey: #windowSpecForCommitWithoutChannels
 )
 )
 )
 )
+"Modified: / 20.5.1998 / 02:18:19 / cg"
 !
 dialogSpecForDefiningGridParameters
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 )
 #(#LabelSpec
 #name: 'HorizontalPixelsLabel'
 #layout: #(#AlignmentOrigin 148 0 99 0 1 0.5)
 #label: 'Horizontal Pixels:'
+#translateLabel: true
 #adjust: #right
 #resizeForLabel: true
 )
 #(#InputFieldSpec
 #name: 'HorizontalPixelsField'
 )
 #(#LabelSpec
 #name: 'VerticalPixelsLabel'
 #layout: #(#AlignmentOrigin 149 0 124 0 1 0.5)
 #label: 'Vertical Pixels:'
+#translateLabel: true
 #adjust: #right
 #resizeForLabel: true
 )
 #(#InputFieldSpec
 #name: 'VerticalPixelsField'
 #type: #numberOrNil
 )
 )
 )
 #label: 'Grid Parameter'
+#translateLabel: true
 #labelPosition: #topLeft
 )
 #(#UISubSpecification
 #name: 'subSpec'
 #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
 #minorKey: #windowSpecForCommitWithoutChannels
 )
 )
 )
 )
+"Modified: / 20.5.1998 / 02:12:26 / cg"
 !
 windowSpec
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 #(#Menu
 #(
 #(#MenuItem
 #label: 'About'
+#translateLabel: true
 #labelImage: #(#ResourceRetriever nil #menuIcon)
 #submenuChannel: #menuAbout
 )
 #(#MenuItem
 #label: 'File'
+#translateLabel: true
 #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
 #submenuChannel: #menuEdit
 )
 #(#MenuItem
 #label: 'Align'
+#translateLabel: true
 #submenuChannel: #menuAlign
 )
 #(#MenuItem
 #label: 'Generate'
+#translateLabel: true
 #submenu:
 #(#Menu
 #(
 #(#MenuItem
 #label: 'Aspect Methods'
+#translateLabel: true
 #value: #doGenerateAspectMethods
 #activeHelpKey: #generateAspectMethods
 #enabled: #hasSpecClass
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Hook Methods'
+#translateLabel: true
 #value: #doGenerateHookMethods
 #activeHelpKey: #generateHookMethods
 #enabled: #hasSpecClass
 )
 ) nil
 nil
 )
 )
 #(#MenuItem
 #label: 'Test'
+#translateLabel: true
 #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
 #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
 #(#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
 #submenuChannel: #menuHistory
 )
 #(#MenuItem
 #label: 'Help'
+#translateLabel: true
 #startGroup: #right
 #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: #showHelp:
 )
 ) nil
 nil
 )
 )
 ) nil
 nil
 )
+"Modified: / 20.5.1998 / 01:44:19 / cg"
 !
 menuAlign
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 #(#Menu
 #(
 #(#MenuItem
 #label: 'Left'
+#translateLabel: true
 #value: #alignSelectionLeft
 #activeHelpKey: #alignSelectionLeft
 #enabled: #canMoveOrAlignSelection
 #labelImage: #(#ResourceRetriever #UIPainter #iconAlignL 'Left')
 )
 #(#MenuItem
 #label: 'Right'
+#translateLabel: true
 #value: #alignSelectionRight
 #activeHelpKey: #alignSelectionRight
 #enabled: #canMoveOrAlignSelection
 #labelImage: #(#ResourceRetriever #UIPainter #iconAlignR 'Right')
 )
 #(#MenuItem
 #label: 'Left & Right'
+#translateLabel: true
 #value: #alignSelectionLeftAndRight
 #activeHelpKey: #alignSelectionLeftAndRight
 #enabled: #canMoveOrAlignSelection
 #labelImage: #(#ResourceRetriever #UIPainter #iconAlignLR 'Left & Right')
 )
 #(#MenuItem
 #label: 'Top'
+#translateLabel: true
 #value: #alignSelectionTop
 #activeHelpKey: #alignSelectionTop
 #enabled: #canMoveOrAlignSelection
 #labelImage: #(#ResourceRetriever #UIPainter #iconAlignT 'Top')
 )
 #(#MenuItem
 #label: 'Bottom'
+#translateLabel: true
 #value: #alignSelectionBottom
 #activeHelpKey: #alignSelectionBottom
 #enabled: #canMoveOrAlignSelection
 #labelImage: #(#ResourceRetriever #UIPainter #iconAlignB 'Bottom')
 )
 #(#MenuItem
 #label: 'Top & Bottom'
+#translateLabel: true
 #value: #alignSelectionTopAndBottom
 #activeHelpKey: #alignSelectionTopAndBottom
 #enabled: #canMoveOrAlignSelection
 #labelImage: #(#ResourceRetriever #UIPainter #iconAlignTB 'Top & Bottom')
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Centered Horizontal'
+#translateLabel: true
 #value: #alignSelectionCenterHor
 #activeHelpKey: #alignSelectionCenterHor
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Centered Vertical'
+#translateLabel: true
 #value: #alignSelectionCenterVer
 #activeHelpKey: #alignSelectionCenterVer
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Center Horizontal In Frame'
+#translateLabel: true
 #value: #centerSelectionHor
 #activeHelpKey: #centerSelectionHor
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Center Vertical In Frame'
+#translateLabel: true
 #value: #centerSelectionVer
 #activeHelpKey: #centerSelectionVer
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Spread Horizontal'
+#translateLabel: true
 #value: #spreadSelectionHor
 #activeHelpKey: #spreadSelectionHor
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Spread Vertical'
+#translateLabel: true
 #value: #spreadSelectionVer
 #activeHelpKey: #spreadSelectionVer
 #enabled: #canMoveOrAlignSelection
 )
 ) nil
 nil
 )
+"Modified: / 20.5.1998 / 01:42:57 / cg"
 !
 menuEdit
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 #(#Menu
 #(
 #(#MenuItem
 #label: 'Undo'
+#translateLabel: true
 #nameKey: #undo
 #value: #undoLast
 #activeHelpKey: #editUndo
 #enabled: #hasUndoHistory
 #shortcutKeyCharacter: #Cmdu
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Cut'
+#translateLabel: true
 #value: #deleteSelection
 #activeHelpKey: #editCut
 #enabled: #valueOfCanCut
 #shortcutKeyCharacter: #Cut
 )
 #(#MenuItem
 #label: 'Copy'
+#translateLabel: true
 #value: #copySelection
 #activeHelpKey: #editCopy
 #enabled: #valueOfCanCopy
 #shortcutKeyCharacter: #Copy
 )
 #(#MenuItem
 #label: 'Paste'
+#translateLabel: true
 #value: #pasteBuffer
 #activeHelpKey: #pasteBuffer
 #enabled: #valueOfCanPaste
 #shortcutKeyCharacter: #Paste
 )
 #(#MenuItem
 #label: 'Delete'
+#translateLabel: true
 #value: #deleteTotalSelection
 #activeHelpKey: #editDelete
 #enabled: #valueOfCanCut
 #shortcutKeyCharacter: #Delete
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Paste With Layout'
+#translateLabel: true
 #value: #pasteWithLayout
 #activeHelpKey: #pasteWithLayout
 #enabled: #valueOfCanPasteWithKeepingLayout
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Move'
+#translateLabel: true
 #enabled: #canMoveSelection
 #submenuChannel: #menuMove
 )
 #(#MenuItem
 #label: 'Dimension'
+#translateLabel: true
 #enabled: #hasSelection
 #submenu:
 #(#Menu
 #(
 #(#MenuItem
 #label: 'Default Extent'
+#translateLabel: true
 #value: #setToDefaultExtent
 #activeHelpKey: #editDimensionDefaultExtent
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Default Width'
+#translateLabel: true
 #value: #setToDefaultWidth
 #activeHelpKey: #editDimensionDefaultWidth
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Default Height'
+#translateLabel: true
 #value: #setToDefaultHeight
 #activeHelpKey: #editDimensionDefaultHeight
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Copy Layout'
+#translateLabel: true
 #value: #copyLayout
 #activeHelpKey: #editDimensionCopyLayout
 #enabled: #hasSingleSelection
 )
 #(#MenuItem
 #label: 'Copy Extent'
+#translateLabel: true
 #value: #copyExtent
 #activeHelpKey: #editDimensionCopyExtent
 #enabled: #hasSingleSelection
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Paste Layout'
+#translateLabel: true
 #value: #pasteLayout
 #activeHelpKey: #editDimensionPasteLayout
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Paste Extent'
+#translateLabel: true
 #value: #pasteExtent
 #activeHelpKey: #editDimensionPasteExtent
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Paste Width'
+#translateLabel: true
 #value: #pasteWidth
 #activeHelpKey: #editDimensionPasteWidth
 #enabled: #canMoveOrAlignSelection
 )
 #(#MenuItem
 #label: 'Paste Height'
+#translateLabel: true
 #value: #pasteHeight
 #activeHelpKey: #editDimensionPasteHeight
 #enabled: #canMoveOrAlignSelection
 )
 ) nil
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Open Widget Documentation'
+#translateLabel: true
 #value: #doOpenWidgetDocumentation
 #activeHelpKey: #editOpenSpecDocumentation
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Inspect View'
+#translateLabel: true
 #value: #doInspectView
 #activeHelpKey: #editInspectView
 #enabled: #hasOneSelectionOtherThanCanvas
 )
 #(#MenuItem
 #label: 'Inspect Spec'
+#translateLabel: true
 #value: #doInspectSpec
 #activeHelpKey: #editInspectSpec
 )
 ) nil
 nil
 )
+"Modified: / 20.5.1998 / 01:46:00 / cg"
 !
 menuMove
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 #(#Menu
 #(
 #(#MenuItem
 #label: 'Up'
+#translateLabel: true
 #value: #doStepUp
 #activeHelpKey: #moveWidgetUp
 #enabled: #canChangeOrderInContainer
 #labelImage: #(#ResourceRetriever #ToolApplicationModel #upIcon 'Up')
 )
 #(#MenuItem
 #label: 'Down'
+#translateLabel: true
 #value: #doStepDown
 #activeHelpKey: #moveWidgetDown
 #enabled: #canChangeOrderInContainer
 #labelImage: #(#ResourceRetriever #ToolApplicationModel #downIcon 'Down')
 )
 #(#MenuItem
 #label: 'Into'
+#translateLabel: true
 #value: #doStepIn
 #activeHelpKey: #moveWidgetInto
 #enabled: #canMoveSelectionIntoContainer
 #labelImage: #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Into')
 )
 #(#MenuItem
 #label: 'Out'
+#translateLabel: true
 #value: #doStepOut
 #activeHelpKey: #moveWidgetOut
 #enabled: #canMoveSelectionOutOfContainer
 #labelImage: #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Out')
 )
 ) nil
 nil
 )
+"Modified: / 20.5.1998 / 01:47:48 / cg"
 !
 menuToolbar
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 self askForSectionModification.
 (modified or: [self painter isModified or: [self helpTool modified]])
 ifTrue:
 [
-((YesNoBox title:'Window Spec was modified!!')
+((YesNoBox title:(resources string:'Window Spec was modified !!'))
-noText:'Cancel';
+noText:(resources string:'Cancel');
-yesText:'Waste it and proceed';
+yesText:(resources string:'Forget it and proceed');
 showAtPointer;
 accepted) ifFalse: [^false].
 modified := false.
 self painter resetModification
 ].
 ^true
+"Modified: / 20.5.1998 / 02:03:16 / cg"
 !
 askForSaving
 "asks for defining an application class"

changeset 838	0ac5a26498c1
parent 827	aa8f49da0f22
child 851	2f65d898243e