hg/stx-libtool2: comparison UIHelpTool.st

equal deleted inserted replaced

-:b989732e3610
+:4276358d937b
 <resource: #help>
 ^super helpSpec addPairsFrom:#(
 #addHelpTextKey
-'Adds the help text key to the help spec.'
+'Adds the key to the help spec.'
 #currentHelpTexts
 'Selected help text key.'
 #deleteHelpTextKey
-'Deletes the help text key from the help spec.'
+'Deletes the key from the help spec.'
+#updateHelpTextKey
+'Refetch the help spec.'
 #fileLoad
 'Opens a dialog for selecting and loading a help spec from a class.'
 #fileSave
-'Saves current help spec.'
+'Saves the current help spec.'
+#fileUpdate
+'Reload the help spec.'
 #helpTextView
 'Shows the help text.'
 #listOfHelpSpecClasses
-'List of the classes where help specs can be/are implemented.'
+'Classes where help specs can be/are implemented.'
 #listOfHelpTexts
-'List of the help text keys.'
+'List of help text keys.'
 #removeHelpTextKey
-'Removes the help text key from the widget.'
+'Removes the help message from the widget.'
 )
 ! !
 !UIHelpTool class methodsFor:'interface specs'!
 #(#WindowSpec
 #label: 'Help Tool'
 #name: 'Help Tool'
 #min: #(#Point 10 10)
 #max: #(#Point 1160 870)
-#bounds: #(#Rectangle 93 147 379 418)
+#bounds: #(#Rectangle 218 175 504 446)
 )
 #component:
 #(#SpecCollection
 #collection: #(
 #(#VariableVerticalPanelSpec
 #name: 'VariableVerticalPanel'
 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
 #component:
 #(#SpecCollection
 #collection: #(
-#(#VariableHorizontalPanelSpec
+#(#ViewSpec
-#name: 'VariableHorizontalPanel'
+#name: 'Box1'
 #component:
 #(#SpecCollection
 #collection: #(
-#(#SequenceViewSpec
+#(#HorizontalPanelViewSpec
-#name: 'listOfHelpKeysView'
+#name: 'HorizontalPanel1'
-#activeHelpKey: #listOfHelpTexts
+#layout: #(#LayoutFrame 0 0 0 0 0 1 25 0)
-#tabable: true
+#horizontalLayout: #fit
-#model: #listModel
+#verticalLayout: #fit
-#hasHorizontalScrollBar: true
+#horizontalSpace: 3
-#hasVerticalScrollBar: true
+#verticalSpace: 3
-#miniScrollerHorizontal: true
-#useIndex: false
-#sequenceList: #listChannel
-)
-#(#ViewSpec
-#name: 'Box'
 #component:
 #(#SpecCollection
 #collection: #(
-#(#HorizontalPanelViewSpec
+#(#ActionButtonSpec
-#name: 'HorizontalPanel1'
+#label: 'Add'
-#layout: #(#LayoutFrame 0 0.0 2 0 0 1.0 26 0)
+#name: 'AddButton'
-#horizontalLayout: #fit
+#activeHelpKey: #addHelpTextKey
-#verticalLayout: #fit
+#translateLabel: true
-#horizontalSpace: 3
+#tabable: true
-#verticalSpace: 3
+#model: #doAdd
+#extent: #(#Point 69 25)
+)
+#(#ActionButtonSpec
+#label: 'Remove'
+#name: 'RemoveButton'
+#activeHelpKey: #removeHelpTextKey
+#translateLabel: true
+#tabable: true
+#model: #doRemove
+#extent: #(#Point 69 25)
+)
+#(#ActionButtonSpec
+#label: 'Update'
+#name: 'UpdateButton'
+#activeHelpKey: #updateHelpTextKey
+#translateLabel: true
+#tabable: true
+#model: #doUpdate
+#extent: #(#Point 69 25)
+)
+#(#ActionButtonSpec
+#label: 'Delete'
+#name: 'DeleteButton'
+#activeHelpKey: #deleteHelpTextKey
+#translateLabel: true
+#tabable: true
+#model: #doDelete
+#extent: #(#Point 70 25)
+)
+)
+)
+)
+#(#VariableHorizontalPanelSpec
+#name: 'VariableHorizontalPanel'
+#layout: #(#LayoutFrame 0 0 25 0 0 1 0 1)
+#component:
+#(#SpecCollection
+#collection: #(
+#(#SequenceViewSpec
+#name: 'listOfHelpKeysView'
+#activeHelpKey: #listOfHelpTexts
+#tabable: true
+#model: #listModel
+#hasHorizontalScrollBar: true
+#hasVerticalScrollBar: true
+#miniScrollerHorizontal: true
+#useIndex: false
+#sequenceList: #listChannel
+)
+#(#ViewSpec
+#name: 'Box'
 #component:
 #(#SpecCollection
 #collection: #(
-#(#ActionButtonSpec
+#(#InputFieldSpec
-#attributes:
+#name: 'helpKeyInputField'
-#(#tabable
+#layout: #(#LayoutFrame 2 0.0 2 0 -2 1.0 25 0)
-true
+#activeHelpKey: #currentHelpTexts
-)
-#label: 'Add'
-#name: 'AddButton'
-#activeHelpKey: #addHelpTextKey
-#translateLabel: true
 #tabable: true
-#model: #doAdd
+#model: #listModel
-#extent: #(#Point 44 24)
+#immediateAccept: false
+#acceptOnPointerLeave: false
 )
-#(#ActionButtonSpec
+#(#SequenceViewSpec
-#attributes:
+#name: 'listOfHelpSpecClassesView'
-#(#tabable
+#layout: #(#LayoutFrame 0 0.0 27 0 0 1.0 0 1.0)
-true
+#activeHelpKey: #listOfHelpSpecClasses
-)
-#label: 'Remove'
-#name: 'RemoveButton'
-#activeHelpKey: #removeHelpTextKey
-#translateLabel: true
 #tabable: true
-#model: #doRemove
+#model: #selectionOfHelpSpecClass
-#extent: #(#Point 44 24)
+#hasHorizontalScrollBar: true
-)
+#hasVerticalScrollBar: true
-#(#ActionButtonSpec
+#miniScrollerHorizontal: true
-#attributes:
+#miniScrollerVertical: true
-#(#tabable
+#valueChangeSelector: #helpSpecClassSelected
-true
+#useIndex: false
-)
+#sequenceList: #listOfHelpSpecClasses
-#label: 'Delete'
-#name: 'DeleteButton'
-#activeHelpKey: #deleteHelpTextKey
-#translateLabel: true
-#tabable: true
-#model: #doDelete
-#extent: #(#Point 44 24)
 )
 )
 )
 )
-#(#InputFieldSpec
-#attributes:
-#(#tabable
-true
-)
-#name: 'helpKeyInputField'
-#layout: #(#LayoutFrame 0 0.0 29 0 0 1.0 51 0)
-#activeHelpKey: #currentHelpTexts
-#tabable: true
-#model: #listModel
-#immediateAccept: false
-#acceptOnPointerLeave: false
-)
-#(#SequenceViewSpec
-#name: 'listOfHelpSpecClassesView'
-#layout: #(#LayoutFrame 0 0.0 54 0 0 1.0 0 1.0)
-#activeHelpKey: #listOfHelpSpecClasses
-#tabable: true
-#model: #selectionOfHelpSpecClass
-#hasHorizontalScrollBar: true
-#hasVerticalScrollBar: true
-#miniScrollerHorizontal: true
-#miniScrollerVertical: true
-#valueChangeSelector: #helpSpecClassSelected
-#useIndex: false
-#sequenceList: #listOfHelpSpecClasses
-)
 )
 )
+#handles: #(#Any 0.5 1.0)
 )
 )
 )
-#handles: #(#Any 0.5 1.0)
 )
 #(#TextEditorSpec
 #name: 'helpTextView'
 #activeHelpKey: #helpTextView
 #tabable: true
 #translateLabel: true
 #value: #doLoad
 #activeHelpKey: #fileLoad
 )
 #(#MenuItem
+#label: 'Update'
+#translateLabel: true
+#value: #doUpdate
+#activeHelpKey: #fileUpdate
+)
+#(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Save'
 #translateLabel: true
 'between' aClass and ApplicationModel"
 |list listOfHelpSpecClassesView|
 modified := false.
-specClass notNil
+specClass  := self getHelpSpecClassFromClass:aClass.
-ifTrue:
+self rebuild.
-[
+!
+buildFromClass: aClass andSelector: aSelector
+"sets aSelector and reads the help dictionary from aClass"
+specSelector := aSelector.
+self buildFromClass:aClass
+!
+rebuild
+"reads the help dictionary from aClass and find remaining classes
+'between' aClass and ApplicationModel"
+|list listOfHelpSpecClassesView|
+specClass notNil ifTrue:[
 dictionary   := Dictionary new.
 dictionaries := Dictionary new.
 ].
-specClass  := self getHelpSpecClassFromClass:aClass.
 (specClass isClass and: [specClass isLoaded])
 ifTrue:
 [
 (specClass class implements:specSelector) ifFalse:[
 dictionaries at: specClass name put: dictionary
 ].
 self helpSpecClassSelected.
 ].
 self updateList
-"Modified: / 21.8.1998 / 15:48:00 / cg"
-!
-buildFromClass: aClass andSelector: aSelector
-"sets aSelector and reads the help dictionary from aClass"
-specSelector := aSelector.
-self buildFromClass:aClass
 ! !
 !UIHelpTool methodsFor:'callbacks'!
 !UIHelpTool methodsFor:'startup / release'!
 closeRequest
 "asks for permission before closing"
-(self masterApplication isNil and:[self askForModification]) ifTrue:[super closeRequest]
+(self masterApplication isNil and:[self askForModification]) ifTrue:[
+super closeRequest
+]
 !
 initialize
 "initializes instance variables"
 doSave
 "saves the help dictionaries on specClass"
 self installHelpSpecsOnClass:specClass
+!
+doUpdate
+"reread the helpspecs and update my lists"
+specClass isNil ifTrue:[
+^ self warn:'No spec loaded'.
+].
+(self askForModification) ifTrue:[
+self rebuild
+]
 ! !
 !UIHelpTool class methodsFor:'documentation'!
 version

changeset 1340	4276358d937b
parent 1336	3c84dc6f8d4b
child 1506	6525741c998e