--- a/UIHelpTool.st Wed May 20 01:16:23 1998 +0200
+++ b/UIHelpTool.st Wed May 20 01:16:44 1998 +0200
@@ -176,11 +176,11 @@
#window:
#(#WindowSpec
#name: 'Help Tool'
- #layout: #(#LayoutFrame 155 0 273 0 440 0 543 0)
+ #layout: #(#LayoutFrame 29 0 447 0 314 0 717 0)
#label: 'Help Tool'
#min: #(#Point 10 10)
#max: #(#Point 1160 870)
- #bounds: #(#Rectangle 155 273 441 544)
+ #bounds: #(#Rectangle 29 447 315 718)
#usePreferredExtent: false
)
#component:
@@ -250,6 +250,7 @@
#name: 'AddButton'
#activeHelpKey: #addHelpTextKey
#label: 'Add'
+ #translateLabel: true
#tabable: true
#model: #doAdd
#extent: #(#Point 44 24)
@@ -258,14 +259,16 @@
#name: 'RemoveButton'
#activeHelpKey: #removeHelpTextKey
#label: 'Remove'
+ #translateLabel: true
#tabable: true
#model: #doRemove
- #extent: #(#Point 45 24)
+ #extent: #(#Point 44 24)
)
#(#ActionButtonSpec
#name: 'DeleteButton'
#activeHelpKey: #deleteHelpTextKey
#label: 'Delete'
+ #translateLabel: true
#tabable: true
#model: #doDelete
#extent: #(#Point 45 24)
@@ -300,6 +303,8 @@
)
)
)
+
+ "Modified: / 20.5.1998 / 01:08:59 / cg"
!
windowSpecForStandAlone
@@ -373,12 +378,14 @@
#(
#(#MenuItem
#label: 'File'
+ #translateLabel: true
#submenu:
#(#Menu
#(
#(#MenuItem
- #label: 'Load'
+ #label: 'Load...'
+ #translateLabel: true
#value: #doLoad
#activeHelpKey: #fileLoad
)
@@ -387,6 +394,7 @@
)
#(#MenuItem
#label: 'Save'
+ #translateLabel: true
#value: #doSave
#activeHelpKey: #fileSave
)
@@ -395,6 +403,7 @@
)
#(#MenuItem
#label: 'Exit'
+ #translateLabel: true
#value: #closeRequest
#activeHelpKey: #fileExit
)
@@ -404,12 +413,14 @@
)
#(#MenuItem
#label: 'Edit'
+ #translateLabel: true
#submenu:
#(#Menu
#(
#(#MenuItem
#label: 'Add'
+ #translateLabel: true
#value: #doAdd
#activeHelpKey: #addHelpTextKey
)
@@ -418,6 +429,7 @@
)
#(#MenuItem
#label: 'Delete'
+ #translateLabel: true
#value: #doDelete
#activeHelpKey: #deleteHelpTextKey
)
@@ -428,6 +440,7 @@
#(#MenuItem
#label: 'Help'
#startGroup: #right
+ #translateLabel: true
#submenu:
#(#Menu
@@ -435,6 +448,7 @@
#(#MenuItem
#label: 'Documentation'
#value: #openHTMLDocument:
+ #translateLabel: true
#activeHelpKey: #helpHelpTool
#argument: 'tools/uipainter/HelpTool.html'
)
@@ -443,6 +457,7 @@
)
#(#MenuItem
#label: 'Show Help Texts'
+ #translateLabel: true
#activeHelpKey: #helpShowHelp
#indication: #showHelp:
)
@@ -453,6 +468,8 @@
) nil
nil
)
+
+ "Modified: / 20.5.1998 / 01:08:12 / cg"
! !
!UIHelpTool methodsFor:'accessing'!
@@ -1094,8 +1111,10 @@
]
ifFalse:
[
- self warn: 'First define a help key!!'
+ self warn:'No key was entered !!'
]
+
+ "Modified: / 20.5.1998 / 01:15:06 / cg"
!
doDelete
@@ -1112,8 +1131,10 @@
]
ifFalse:
[
- self warn: 'First select a help key!!'
+ self warn:'No key selected !!'
]
+
+ "Modified: / 20.5.1998 / 01:15:00 / cg"
!
doLoad
@@ -1167,8 +1188,10 @@
]
ifFalse:
[
- self warn: 'First select a help key!!'
+ self warn:'No key selected !!'
]
+
+ "Modified: / 20.5.1998 / 01:15:11 / cg"
!
doSave