--- a/UIPainter.st Wed May 20 02:28:44 1998 +0200
+++ b/UIPainter.st Wed May 20 02:29:34 1998 +0200
@@ -143,16 +143,16 @@
'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.'
@@ -206,10 +206,10 @@
'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.'
@@ -245,7 +245,7 @@
'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.'
@@ -266,7 +266,7 @@
'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.'
@@ -275,12 +275,14 @@
'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'!
@@ -499,6 +501,7 @@
#name: 'selectorLabel'
#layout: #(#AlignmentOrigin 77 0.11 39 0 1 0.5)
#label: 'Selector:'
+ #translateLabel: true
#adjust: #right
#resizeForLabel: true
)
@@ -512,6 +515,7 @@
#name: 'classLabel'
#layout: #(#AlignmentOrigin 77 0.11 64 0 1 0.5)
#label: 'Class:'
+ #translateLabel: true
#adjust: #right
#resizeForLabel: true
)
@@ -525,6 +529,7 @@
#name: 'superClassLabel'
#layout: #(#AlignmentOrigin 77 0.11 89 0 1 0.5)
#label: 'Superclass:'
+ #translateLabel: true
#adjust: #right
#resizeForLabel: true
)
@@ -538,6 +543,7 @@
)
)
#label: 'Define Class And Selector'
+ #translateLabel: true
#labelPosition: #topLeft
)
#(#UISubSpecification
@@ -549,6 +555,8 @@
)
)
)
+
+ "Modified: / 20.5.1998 / 02:18:19 / cg"
!
dialogSpecForDefiningGridParameters
@@ -605,6 +613,7 @@
#name: 'HorizontalPixelsLabel'
#layout: #(#AlignmentOrigin 148 0 99 0 1 0.5)
#label: 'Horizontal Pixels:'
+ #translateLabel: true
#adjust: #right
#resizeForLabel: true
)
@@ -618,6 +627,7 @@
#name: 'VerticalPixelsLabel'
#layout: #(#AlignmentOrigin 149 0 124 0 1 0.5)
#label: 'Vertical Pixels:'
+ #translateLabel: true
#adjust: #right
#resizeForLabel: true
)
@@ -630,6 +640,7 @@
)
)
#label: 'Grid Parameter'
+ #translateLabel: true
#labelPosition: #topLeft
)
#(#UISubSpecification
@@ -641,6 +652,8 @@
)
)
)
+
+ "Modified: / 20.5.1998 / 02:12:26 / cg"
!
windowSpec
@@ -843,11 +856,13 @@
#(
#(#MenuItem
#label: 'About'
+ #translateLabel: true
#labelImage: #(#ResourceRetriever nil #menuIcon)
#submenuChannel: #menuAbout
)
#(#MenuItem
#label: 'File'
+ #translateLabel: true
#enabled: #enableChannel
#submenu:
#(#Menu
@@ -855,6 +870,7 @@
#(
#(#MenuItem
#label: 'New'
+ #translateLabel: true
#value: #doNew
#activeHelpKey: #fileNew
)
@@ -863,11 +879,13 @@
)
#(#MenuItem
#label: 'Load...'
+ #translateLabel: true
#value: #doLoad
#activeHelpKey: #fileLoad
)
#(#MenuItem
#label: 'Load Subspec...'
+ #translateLabel: true
#value: #doLoadSubspec
#activeHelpKey: #fileLoadSubspec
)
@@ -876,16 +894,19 @@
)
#(#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
)
@@ -894,6 +915,7 @@
)
#(#MenuItem
#label: 'Pick A Window Spec...'
+ #translateLabel: true
#value: #doPickAView
#activeHelpKey: #filePickAnInterface
)
@@ -902,17 +924,20 @@
)
#(#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
@@ -922,6 +947,7 @@
)
#(#MenuItem
#label: 'Exit'
+ #translateLabel: true
#value: #closeRequest
#activeHelpKey: #fileExit
)
@@ -931,20 +957,24 @@
)
#(#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
@@ -954,6 +984,7 @@
)
#(#MenuItem
#label: 'Hook Methods'
+ #translateLabel: true
#value: #doGenerateHookMethods
#activeHelpKey: #generateHookMethods
#enabled: #hasSpecClass
@@ -964,12 +995,14 @@
)
#(#MenuItem
#label: 'Test'
+ #translateLabel: true
#submenu:
#(#Menu
#(
#(#MenuItem
#label: 'Start Application'
+ #translateLabel: true
#value: #doStartApplication
#activeHelpKey: #testStartApplication
)
@@ -978,6 +1011,7 @@
)
#(#MenuItem
#label: 'Geometry Test Mode'
+ #translateLabel: true
#activeHelpKey: #testGeometryTestMode
#indication: #testMode:
)
@@ -987,17 +1021,20 @@
)
#(#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
)
@@ -1006,6 +1043,7 @@
)
#(#MenuItem
#label: 'Redefine Aspect Methods'
+ #translateLabel: true
#activeHelpKey: #settingsRedefineAspectMethods
#enabled: #hasSpecClass
#indication: #redefineAspectMethods:
@@ -1022,12 +1060,14 @@
)
#(#MenuItem
#label: 'Undo Manager...'
+ #translateLabel: true
#value: #openUndoMenu
#activeHelpKey: #settingsUndoManager
#enabled: #hasUndoHistory
)
#(#MenuItem
#label: 'Grid Manager...'
+ #translateLabel: true
#value: #doDefineGrid
#activeHelpKey: #settingsGridManager
)
@@ -1037,10 +1077,12 @@
)
#(#MenuItem
#label: 'History'
+ #translateLabel: true
#submenuChannel: #menuHistory
)
#(#MenuItem
#label: 'Help'
+ #translateLabel: true
#startGroup: #right
#submenu:
#(#Menu
@@ -1048,6 +1090,7 @@
#(
#(#MenuItem
#label: 'Tutorial'
+ #translateLabel: true
#value: #openHTMLDocument:
#activeHelpKey: #helpTutorial
#argument: 'tools/uipainter/TOP.html'
@@ -1057,12 +1100,14 @@
)
#(#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'
@@ -1072,12 +1117,14 @@
)
#(#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'
@@ -1087,6 +1134,7 @@
)
#(#MenuItem
#label: 'Selected Widget'
+ #translateLabel: true
#value: #doOpenWidgetDocumentation
#activeHelpKey: #helpSelectedWidget
)
@@ -1095,6 +1143,7 @@
)
#(#MenuItem
#label: 'Show Help Texts'
+ #translateLabel: true
#activeHelpKey: #helpShowHelp
#indication: #showHelp:
)
@@ -1105,6 +1154,8 @@
) nil
nil
)
+
+ "Modified: / 20.5.1998 / 01:44:19 / cg"
!
menuAlign
@@ -1128,6 +1179,7 @@
#(
#(#MenuItem
#label: 'Left'
+ #translateLabel: true
#value: #alignSelectionLeft
#activeHelpKey: #alignSelectionLeft
#enabled: #canMoveOrAlignSelection
@@ -1135,6 +1187,7 @@
)
#(#MenuItem
#label: 'Right'
+ #translateLabel: true
#value: #alignSelectionRight
#activeHelpKey: #alignSelectionRight
#enabled: #canMoveOrAlignSelection
@@ -1142,6 +1195,7 @@
)
#(#MenuItem
#label: 'Left & Right'
+ #translateLabel: true
#value: #alignSelectionLeftAndRight
#activeHelpKey: #alignSelectionLeftAndRight
#enabled: #canMoveOrAlignSelection
@@ -1149,6 +1203,7 @@
)
#(#MenuItem
#label: 'Top'
+ #translateLabel: true
#value: #alignSelectionTop
#activeHelpKey: #alignSelectionTop
#enabled: #canMoveOrAlignSelection
@@ -1156,6 +1211,7 @@
)
#(#MenuItem
#label: 'Bottom'
+ #translateLabel: true
#value: #alignSelectionBottom
#activeHelpKey: #alignSelectionBottom
#enabled: #canMoveOrAlignSelection
@@ -1163,6 +1219,7 @@
)
#(#MenuItem
#label: 'Top & Bottom'
+ #translateLabel: true
#value: #alignSelectionTopAndBottom
#activeHelpKey: #alignSelectionTopAndBottom
#enabled: #canMoveOrAlignSelection
@@ -1173,12 +1230,14 @@
)
#(#MenuItem
#label: 'Centered Horizontal'
+ #translateLabel: true
#value: #alignSelectionCenterHor
#activeHelpKey: #alignSelectionCenterHor
#enabled: #canMoveOrAlignSelection
)
#(#MenuItem
#label: 'Centered Vertical'
+ #translateLabel: true
#value: #alignSelectionCenterVer
#activeHelpKey: #alignSelectionCenterVer
#enabled: #canMoveOrAlignSelection
@@ -1188,12 +1247,14 @@
)
#(#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
@@ -1203,12 +1264,14 @@
)
#(#MenuItem
#label: 'Spread Horizontal'
+ #translateLabel: true
#value: #spreadSelectionHor
#activeHelpKey: #spreadSelectionHor
#enabled: #canMoveOrAlignSelection
)
#(#MenuItem
#label: 'Spread Vertical'
+ #translateLabel: true
#value: #spreadSelectionVer
#activeHelpKey: #spreadSelectionVer
#enabled: #canMoveOrAlignSelection
@@ -1216,6 +1279,8 @@
) nil
nil
)
+
+ "Modified: / 20.5.1998 / 01:42:57 / cg"
!
menuEdit
@@ -1239,6 +1304,7 @@
#(
#(#MenuItem
#label: 'Undo'
+ #translateLabel: true
#nameKey: #undo
#value: #undoLast
#activeHelpKey: #editUndo
@@ -1250,6 +1316,7 @@
)
#(#MenuItem
#label: 'Cut'
+ #translateLabel: true
#value: #deleteSelection
#activeHelpKey: #editCut
#enabled: #valueOfCanCut
@@ -1257,6 +1324,7 @@
)
#(#MenuItem
#label: 'Copy'
+ #translateLabel: true
#value: #copySelection
#activeHelpKey: #editCopy
#enabled: #valueOfCanCopy
@@ -1264,6 +1332,7 @@
)
#(#MenuItem
#label: 'Paste'
+ #translateLabel: true
#value: #pasteBuffer
#activeHelpKey: #pasteBuffer
#enabled: #valueOfCanPaste
@@ -1271,6 +1340,7 @@
)
#(#MenuItem
#label: 'Delete'
+ #translateLabel: true
#value: #deleteTotalSelection
#activeHelpKey: #editDelete
#enabled: #valueOfCanCut
@@ -1281,6 +1351,7 @@
)
#(#MenuItem
#label: 'Paste With Layout'
+ #translateLabel: true
#value: #pasteWithLayout
#activeHelpKey: #pasteWithLayout
#enabled: #valueOfCanPasteWithKeepingLayout
@@ -1290,11 +1361,13 @@
)
#(#MenuItem
#label: 'Move'
+ #translateLabel: true
#enabled: #canMoveSelection
#submenuChannel: #menuMove
)
#(#MenuItem
#label: 'Dimension'
+ #translateLabel: true
#enabled: #hasSelection
#submenu:
#(#Menu
@@ -1302,18 +1375,21 @@
#(
#(#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
@@ -1323,12 +1399,14 @@
)
#(#MenuItem
#label: 'Copy Layout'
+ #translateLabel: true
#value: #copyLayout
#activeHelpKey: #editDimensionCopyLayout
#enabled: #hasSingleSelection
)
#(#MenuItem
#label: 'Copy Extent'
+ #translateLabel: true
#value: #copyExtent
#activeHelpKey: #editDimensionCopyExtent
#enabled: #hasSingleSelection
@@ -1338,24 +1416,28 @@
)
#(#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
@@ -1369,6 +1451,7 @@
)
#(#MenuItem
#label: 'Open Widget Documentation'
+ #translateLabel: true
#value: #doOpenWidgetDocumentation
#activeHelpKey: #editOpenSpecDocumentation
)
@@ -1377,18 +1460,22 @@
)
#(#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
@@ -1412,6 +1499,7 @@
#(
#(#MenuItem
#label: 'Up'
+ #translateLabel: true
#value: #doStepUp
#activeHelpKey: #moveWidgetUp
#enabled: #canChangeOrderInContainer
@@ -1419,6 +1507,7 @@
)
#(#MenuItem
#label: 'Down'
+ #translateLabel: true
#value: #doStepDown
#activeHelpKey: #moveWidgetDown
#enabled: #canChangeOrderInContainer
@@ -1426,6 +1515,7 @@
)
#(#MenuItem
#label: 'Into'
+ #translateLabel: true
#value: #doStepIn
#activeHelpKey: #moveWidgetInto
#enabled: #canMoveSelectionIntoContainer
@@ -1433,6 +1523,7 @@
)
#(#MenuItem
#label: 'Out'
+ #translateLabel: true
#value: #doStepOut
#activeHelpKey: #moveWidgetOut
#enabled: #canMoveSelectionOutOfContainer
@@ -1441,6 +1532,8 @@
) nil
nil
)
+
+ "Modified: / 20.5.1998 / 01:47:48 / cg"
!
menuToolbar
@@ -2088,15 +2181,17 @@
(modified or: [self painter isModified or: [self helpTool modified]])
ifTrue:
[
- ((YesNoBox title:'Window Spec was modified!!')
- noText:'Cancel';
- yesText:'Waste it and proceed';
+ ((YesNoBox title:(resources string:'Window Spec was modified !!'))
+ noText:(resources string:'Cancel');
+ 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