hg/stx-libtool2: comparison UIHelpTool.st

equal deleted inserted replaced

-:1973e297b5a2
+:13793eec85d5
 #(#FullSpec
 #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:
 #(#SpecCollection
 #collection:
 #(
 #(#ActionButtonSpec
 #name: 'AddButton'
 #activeHelpKey: #addHelpTextKey
 #label: 'Add'
+#translateLabel: true
 #tabable: true
 #model: #doAdd
 #extent: #(#Point 44 24)
 )
 #(#ActionButtonSpec
 #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)
 )
 )
 #handles: #(#Any 0.5 1.0)
 )
 )
 )
 )
+"Modified: / 20.5.1998 / 01:08:59 / cg"
 !
 windowSpecForStandAlone
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 #(#Menu
 #(
 #(#MenuItem
 #label: 'File'
+#translateLabel: true
 #submenu:
 #(#Menu
 #(
 #(#MenuItem
-#label: 'Load'
+#label: 'Load...'
+#translateLabel: true
 #value: #doLoad
 #activeHelpKey: #fileLoad
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Save'
+#translateLabel: true
 #value: #doSave
 #activeHelpKey: #fileSave
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Exit'
+#translateLabel: true
 #value: #closeRequest
 #activeHelpKey: #fileExit
 )
 ) nil
 nil
 )
 )
 #(#MenuItem
 #label: 'Edit'
+#translateLabel: true
 #submenu:
 #(#Menu
 #(
 #(#MenuItem
 #label: 'Add'
+#translateLabel: true
 #value: #doAdd
 #activeHelpKey: #addHelpTextKey
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Delete'
+#translateLabel: true
 #value: #doDelete
 #activeHelpKey: #deleteHelpTextKey
 )
 ) nil
 nil
 )
 )
 #(#MenuItem
 #label: 'Help'
 #startGroup: #right
+#translateLabel: true
 #submenu:
 #(#Menu
 #(
 #(#MenuItem
 #label: 'Documentation'
 #value: #openHTMLDocument:
+#translateLabel: true
 #activeHelpKey: #helpHelpTool
 #argument: 'tools/uipainter/HelpTool.html'
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Show Help Texts'
+#translateLabel: true
 #activeHelpKey: #helpShowHelp
 #indication: #showHelp:
 )
 ) nil
 nil
 )
 )
 ) nil
 nil
 )
+"Modified: / 20.5.1998 / 01:08:12 / cg"
 ! !
 !UIHelpTool methodsFor:'accessing'!
 dictionaries
 self listModel value: helpKey.
 self accept
 ]
 ifFalse:
 [
-self warn: 'First define a help key!!'
+self warn:'No key was entered !!'
 ]
+"Modified: / 20.5.1998 / 01:15:06 / cg"
 !
 doDelete
 "deletes the selected help key"
 modified := true.
 modifiedHolder notNil ifTrue: [modifiedHolder value:true]
 ]
 ifFalse:
 [
-self warn: 'First select a help key!!'
+self warn:'No key selected !!'
 ]
+"Modified: / 20.5.1998 / 01:15:00 / cg"
 !
 doLoad
 "opens a Resource Selection Browser in order to get a resource message"
 self updateList.
 modifiedHolder notNil ifTrue: [modifiedHolder value:true]
 ]
 ifFalse:
 [
-self warn: 'First select a help key!!'
+self warn:'No key selected !!'
 ]
+"Modified: / 20.5.1998 / 01:15:11 / cg"
 !
 doSave
 "saves the help dictionaries on specClass"

changeset 835	13793eec85d5
parent 833	ff2f237a309a
child 868	dfa9d6df10d8