hg/stx-libtool2: comparison UIHelpTool.st

equal deleted inserted replaced

-:8f8767c6f32f
+:9b705e31d38e
 hereby transferred.
 "
-ApplicationModel subclass:#UIHelpTool
+ToolApplicationModel subclass:#UIHelpTool
-	instanceVariableNames:'specClass dictionary dictionaries listSelection modified
+	instanceVariableNames:'specClass specSelector dictionary dictionaries listSelection
-		modifiedHolder maxCharsPerLine'
+		modifiedHolder maxCharsPerLine modified'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
 this selector is called by the widget's view when the mouse cursor moves over.
 If the application does not responds to that selector, and the activeHelp mode
 is enabled, an active help bubble is shown at the widget's view.
 [author:]
-Claus Atzkern
+Claus Atzkern, eXept Software AG
+Thomas Zwick, eXept Software AG
 "
 ! !
 !UIHelpTool class methodsFor:'instance creation'!
 openOnClass:aClass
 "
-UIHelpTool openOnClass:UIPainter
+UIHelpTool openOnClass:self
 "
-UIHelpTool open helpSpecFrom:aClass
+UIHelpTool new openOnClass:aClass
+! !
+!UIHelpTool class methodsFor:'accessing'!
+resourceType
+"get the type of resource of the method generated by the Help Tool"
+^#help
 ! !
 !UIHelpTool class methodsFor:'constants'!
 <resource: #help>
 ^super helpSpec addPairsFrom:#(
 #addHelpTextKey
-'Adds help text key.'
+'Adds the help text key to the help spec.'
 #currentHelpTexts
 'Selected help text key.'
 #deleteHelpTextKey
-'Deletes the help text from the help spec.'
+'Deletes the help text key from the help spec.'
+#fileLoad
+'Opens a dialog for selecting and loading a help spec from a class.'
+#fileSave
+'Saves current help spec.'
 #helpTextView
 'Shows the help text.'
 #listOfHelpSpecClasses
 #(#FullSpec
 #window:
 #(#WindowSpec
 #name: 'Help Tool'
-#layout: #(#LayoutFrame 140 0 231 0 425 0 501 0)
+#layout: #(#LayoutFrame 155 0 273 0 440 0 543 0)
 #label: 'Help Tool'
 #min: #(#Point 10 10)
 #max: #(#Point 1160 870)
-#bounds: #(#Rectangle 140 231 426 502)
+#bounds: #(#Rectangle 155 273 441 544)
 #usePreferredExtent: false
 )
 #component:
 #(#SpecCollection
 #collection:
 #(
-#(#SequenceViewSpec
+#(#VariableVerticalPanelSpec
-#name: 'listOfHelpKeysView'
+#name: 'VariableVerticalPanel'
-#layout: #(#LayoutFrame 3 0 2 0 -1 0.5 -1 0.5)
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-#activeHelpKey: #listOfHelpTexts
+#component:
-#tabable: true
+#(#SpecCollection
-#model: #listModel
+#collection:
-#hasHorizontalScrollBar: true
+#(
-#hasVerticalScrollBar: true
+#(#VariableHorizontalPanelSpec
-#miniScrollerHorizontal: true
+#name: 'VariableHorizontalPanel'
-#useIndex: false
+#component:
-#sequenceList: #listChannel
+#(#SpecCollection
-)
+#collection:
-#(#ActionButtonSpec
+#(
-#name: 'AddButton'
+#(#SequenceViewSpec
-#layout: #(#LayoutFrame 2 0.5 2 0 -1 0.67 26 0)
+#name: 'listOfHelpKeysView'
-#activeHelpKey: #addHelpTextKey
+#activeHelpKey: #listOfHelpTexts
-#label: 'Add'
+#tabable: true
-#tabable: true
+#model: #listModel
-#model: #add
+#hasHorizontalScrollBar: true
-)
+#hasVerticalScrollBar: true
-#(#ActionButtonSpec
+#miniScrollerHorizontal: true
-#name: 'RemoveButton'
+#useIndex: false
-#layout: #(#LayoutFrame 1 0.67 2 0 -1 0.83 26 0)
+#sequenceList: #listChannel
-#activeHelpKey: #removeHelpTextKey
+)
-#label: 'Remove'
+#(#ViewSpec
-#tabable: true
+#name: 'Box'
-#model: #remove
+#component:
-)
+#(#SpecCollection
-#(#ActionButtonSpec
+#collection:
-#name: 'DeleteButton'
+#(
-#layout: #(#LayoutFrame 1 0.83 2 0 -2 1 26 0)
+#(#InputFieldSpec
-#activeHelpKey: #deleteHelpTextKey
+#name: 'helpKeyInputField'
-#label: 'Delete'
+#layout: #(#LayoutFrame 0 0.0 29 0 0 1.0 51 0)
-#tabable: true
+#activeHelpKey: #currentHelpTexts
-#model: #delete
+#tabable: true
-)
+#model: #listModel
-#(#InputFieldSpec
+#immediateAccept: false
-#name: 'helpKeyInputField'
+)
-#layout: #(#LayoutFrame 1 0.5 29 0 -3 1 51 0)
+#(#SequenceViewSpec
-#activeHelpKey: #currentHelpTexts
+#name: 'listOfHelpSpecClassesView'
-#tabable: true
+#layout: #(#LayoutFrame 0 0.0 54 0 0 1.0 0 1.0)
-#model: #listModel
+#activeHelpKey: #listOfHelpSpecClasses
-#immediateAccept: false
+#tabable: true
-)
+#model: #selectionOfHelpSpecClass
-#(#SequenceViewSpec
+#hasHorizontalScrollBar: true
-#name: 'listOfHelpSpecClassesView'
+#hasVerticalScrollBar: true
-#layout: #(#LayoutFrame 1 0.5 54 0 -3 1 -1 0.5)
+#miniScrollerHorizontal: true
-#activeHelpKey: #listOfHelpSpecClasses
+#miniScrollerVertical: true
-#tabable: true
+#valueChangeSelector: #helpSpecClassSelected
-#model: #selectionOfHelpSpecClass
+#useIndex: false
-#hasHorizontalScrollBar: true
+#sequenceList: #listOfHelpSpecClasses
-#hasVerticalScrollBar: true
+)
-#miniScrollerHorizontal: true
+#(#HorizontalPanelViewSpec
-#miniScrollerVertical: true
+#name: 'HorizontalPanel1'
-#valueChangeSelector: #helpSpecClassSelected
+#layout: #(#LayoutFrame 0 0.0 2 0 0 1.0 26 0)
-#useIndex: false
+#component:
-#sequenceList: #listOfHelpSpecClasses
+#(#SpecCollection
-)
+#collection:
-#(#TextEditorSpec
+#(
-#name: 'helpTextView'
+#(#ActionButtonSpec
-#layout: #(#LayoutFrame 3 0.0 1 0.5 -1 1.0 -3 1.0)
+#name: 'AddButton'
-#activeHelpKey: #helpTextView
+#activeHelpKey: #addHelpTextKey
-#tabable: true
+#label: 'Add'
-#hasHorizontalScrollBar: true
+#tabable: true
-#hasVerticalScrollBar: true
+#model: #doAdd
-#miniScrollerHorizontal: true
+#extent: #(#Point 44 24)
-#miniScrollerVertical: true
+)
+#(#ActionButtonSpec
+#name: 'RemoveButton'
+#activeHelpKey: #removeHelpTextKey
+#label: 'Remove'
+#tabable: true
+#model: #doRemove
+#extent: #(#Point 45 24)
+)
+#(#ActionButtonSpec
+#name: 'DeleteButton'
+#activeHelpKey: #deleteHelpTextKey
+#label: 'Delete'
+#tabable: true
+#model: #doDelete
+#extent: #(#Point 45 24)
+)
+)
+)
+#horizontalLayout: #fit
+#verticalLayout: #fit
+#horizontalSpace: 3
+#verticalSpace: 3
+)
+)
+)
+)
+)
+)
+#handles: #(#Any 0.5 1.0)
+)
+#(#TextEditorSpec
+#name: 'helpTextView'
+#activeHelpKey: #helpTextView
+#tabable: true
+#hasHorizontalScrollBar: true
+#hasVerticalScrollBar: true
+#miniScrollerHorizontal: true
+#miniScrollerVertical: true
+)
+)
+)
+#handles: #(#Any 0.5 1.0)
 )
 )
 )
 )
 !
 #(#FullSpec
 #window:
 #(#WindowSpec
 #name: 'Help Tool'
-#layout: #(#LayoutFrame 534 0 276 0 1033 0 675 0)
+#layout: #(#LayoutFrame 191 0 334 0 660 0 663 0)
 #label: 'Help Tool'
-#min: #(#Point 10 10)
+#min: #(#Point 300 300)
-#max: #(#Point 1160 870)
+#max: #(#Point 1152 900)
-#bounds: #(#Rectangle 534 276 1034 676)
+#bounds: #(#Rectangle 191 334 661 664)
 #menu: #menu
 #usePreferredExtent: false
 )
 #component:
 #(#SpecCollection
 #collection:
 #(
 #(#UISubSpecification
-#name: 'UISubSpecification1'
+#name: 'windowSpec'
-#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -26 1.0)
 #minorKey: #windowSpec
+)
+#(#UISubSpecification
+#name: 'windowSpecForInfoBar'
+#layout: #(#LayoutFrame 0 0 -24 1 0 1 0 1)
+#majorKey: #ToolApplicationModel
+#minorKey: #windowSpecForInfoBar
 )
 )
 )
 )
 ! !
 #submenu:
 #(#Menu
 #(
 #(#MenuItem
-#label: 'Reload'
+#label: 'Load'
-#value: #doReload
+#value: #doLoad
+#activeHelpKey: #fileLoad
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Save'
 #value: #doSave
-)
+#activeHelpKey: #fileSave
-#(#MenuItem
-#label: '-'
-)
-#(#MenuItem
-#label: 'Define Class...'
-#value: #doFromClass
 )
 #(#MenuItem
 #label: '-'
 )
 #(#MenuItem
 #label: 'Exit'
 #value: #closeRequest
+#activeHelpKey: #fileExit
+)
+) nil
+nil
+)
+)
+#(#MenuItem
+#label: 'Edit'
+#submenu:
+#(#Menu
+#(
+#(#MenuItem
+#label: 'Add'
+#value: #doAdd
+#activeHelpKey: #addHelpTextKey
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
+#label: 'Delete'
+#value: #doDelete
+#activeHelpKey: #deleteHelpTextKey
+)
+) nil
+nil
+)
+)
+#(#MenuItem
+#label: 'Help'
+#startGroup: #right
+#submenu:
+#(#Menu
+#(
+#(#MenuItem
+#label: 'Documentation'
+#value: #openHTMLDocument:
+#activeHelpKey: #helpHelpTool
+#argument: 'tools/uipainter/HelpTool.html'
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
+#label: 'Show Help Texts'
+#activeHelpKey: #helpShowHelp
+#indication: #showHelp:
 )
 ) nil
 nil
 )
 )
 aKey size ~~ 0 ifTrue:[
 key := aKey asString
 ].
 self listModel value:key
-!
-helpSpecFrom:aClass
-"read the help dictionary from aClass and find remaining classes
-'between' aClass and ApplicationModel
-"
-|help|
-modified := false.
-specClass notNil
-ifTrue:
-[
-dictionary   := Dictionary new.
-dictionaries := Dictionary new.
-].
-specClass  := self applicationClassAssociatedWith:aClass.
-(specClass isClass and: [specClass isLoaded])
-ifTrue:
-[
-(specClass class implements:#helpSpec) ifFalse:[
-dictionaries at: specClass name put: dictionary
-].
-self listOfHelpSpecClasses contents:  (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
-(self listOfHelpSpecClasses includes: #ApplicationModel)
-ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
-self selectionOfHelpSpecClass value: specClass name.
-(builder componentAt: #listOfHelpSpecClassesView) selection:
-(self listOfHelpSpecClasses value indexOf: specClass name).
-self helpSpecClassSelected.
-].
-self updateList
 !
 modified
 "answer whether the help tool was modified
 "
 listOfHelpSpecClasses
 "get the value holder of the specClass and its superclasses
 which are subclasses of ApplicationModel
 "
 |holder|
 (holder := builder bindingAt:#listOfHelpSpecClasses) isNil ifTrue:[
 builder aspectAt:#listOfHelpSpecClasses put: (holder := List new)
 ].
 ^ holder
 |holder|
 (holder := builder bindingAt:#selectionOfHelpSpecClass) isNil ifTrue:[
 builder aspectAt:#selectionOfHelpSpecClass put: (holder := ValueHolder new)
 ].
 ^ holder
+! !
+!UIHelpTool methodsFor:'building'!
+buildFromClass:aClass
+"read the help dictionary from aClass and find remaining classes
+'between' aClass and ApplicationModel
+"
+|help|
+modified := false.
+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 listOfHelpSpecClasses contents:  (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
+(self listOfHelpSpecClasses includes: #ApplicationModel)
+ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
+self selectionOfHelpSpecClass value: specClass name.
+(builder componentAt: #listOfHelpSpecClassesView) selection:
+(self listOfHelpSpecClasses value indexOf: specClass name).
+self helpSpecClassSelected.
+].
+self updateList
+!
+buildFromClass: aClass andSelector: aSelector
+specSelector := aSelector.
+self buildFromClass:aClass
 ! !
 !UIHelpTool methodsFor:'callbacks'!
 ]
 ! !
+!UIHelpTool methodsFor:'help'!
+defaultInfoLabel
+"get default label for the info bar"
+specClass isClass
+ifTrue:
+[
+(specClass class implements: specSelector)
+ifFalse:
+[
+^specSelector isNil
+ifTrue:  [specClass name, ' >> ? (no selector defined)']
+ifFalse: [specClass name, ' >> ', specSelector, ' (not implemented)']
+].
+^specClass name, ' >> ', specSelector
+].
+^'No class and selector defined.'
+! !
 !UIHelpTool methodsFor:'private'!
-applicationClassAssociatedWith:aClass
+askForModification
-"get application class keeping the associated help text or nil
+"ask for modification"
-"
-|cls|
+modified
+ifTrue:
-((cls := self resolveName:aClass) notNil and:[cls includesBehavior:UISpecification]) ifTrue:[
+[
-^UISpecificationTool
+((YesNoBox title: 'List was modified!!')
-].
+noText:'Cancel';
-^cls
+yesText:'Waste it and proceed';
+showAtPointer;
+accepted) ifFalse: [^false].
+modified := false
+].
+^true
 !
 editTextView
 extractHelpSpecForClass: aClass
 "extract the help dictionary of aClass, it current and return it
 "
 |helpSpecSuperClass superHelpSpecKeys helpSpec|
-((aClass class implements: #helpSpec)
+((aClass class implements: specSelector)
-and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class implements: #helpSpec] ifNone: nil) notNil])
+and: [(helpSpecSuperClass := aClass allSuperclasses detect: [:cls| cls class implements: specSelector] ifNone: nil) notNil])
 ifTrue:
 [
 superHelpSpecKeys := helpSpecSuperClass helpSpec keys.
 helpSpec := Dictionary new.
 aClass helpSpec associationsDo:
 dictionary := dictTemp
 !
+getHelpSpecClassFromClass:aClass
+"get application class keeping the associated help text or nil
+"
+|cls|
+((cls := self resolveName:aClass) notNil and:[cls respondsTo: #helpSpecClass]) ifTrue:[
+^cls helpSpecClass
+].
+^cls
+!
 installHelpSpecOnClass:aClass
 "save the help dicts in aClass which is subclass of ApplicationModel"
 |cls src helpSpec|
-cls := self applicationClassAssociatedWith:aClass.
+cls := self getHelpSpecClassFromClass: aClass.
 cls isNil ifTrue:[
 self information:'No application class defined!!'.
 ^nil
 ].
 at: cls name
 ifAbsent: [specClass notNil
 ifTrue:  [dictionaries at: aClass put: (self extractHelpSpecForClass: (Smalltalk at: aClass))]
 ifFalse: [dictionary size > 0 ifTrue: [dictionary] ifFalse: [Dictionary new]]].
-(cls class implements: #helpSpec)
+(cls class implements: specSelector)
 ifTrue:
 [
 |superclassHelpKeys implementedHelpSpec hasChanged|
 implementedHelpSpec := Dictionary new.
-superclassHelpKeys := (cls superclass respondsTo: #helpSpec)
+superclassHelpKeys := (cls superclass respondsTo: specSelector)
 ifTrue:  [cls superclass helpSpec keys]
 ifFalse: [Array new].
 cls helpSpec associationsDo: [:h| (superclassHelpKeys includes: h key)
 ifFalse: [implementedHelpSpec at: h key put: h value]].
 ifFalse: [helpSpec at: h key put: h value]].
 ]
 ].
 helpSpec isEmpty ifTrue:[
-^(cls superclass respondsTo: #helpSpec) ifTrue: [cls class removeSelector: #helpSpec].
+^(cls superclass respondsTo: specSelector) ifTrue: [cls class removeSelector: specSelector].
 ].
 src  := '' writeStream.
 src nextPutAll:
-'helpSpec\' withCRs,
+specSelector, '\' withCRs,
 (ResourceSpecEditor codeGenerationCommentForClass: UIHelpTool) withCRs,
 '\\' withCRs,
 '    "\' withCRs,
 '     UIHelpTool openOnClass:', cls name asString ,'
 "
 <resource: #help>
-^super helpSpec addPairsFrom:#(
+^super ', specSelector, ' addPairsFrom:#(
 '.
 helpSpec keys asSortedCollection
 do:[:key |
 installHelpSpecsOnClass:aClass
 "save the help dicts on aClass and its superclasses which are subclasses of ApplicationModel
 "
 |cls helpSpecClasses|
+cls := self getHelpSpecClassFromClass:aClass.
+cls isNil ifTrue: [^self information:'No application class defined!!'].
 modified ifFalse:[
+masterApplication isNil ifTrue: [self information:'Nothing was modified!!'].
 ^nil
 ].
-cls := aClass isClass ifTrue: [aClass name] ifFalse: [aClass].
 (helpSpecClasses := self listOfHelpSpecClasses value) notNil
 ifTrue:
 [
-(helpSpecClasses includes: cls) ifFalse: [helpSpecClasses add: cls].
+(helpSpecClasses includes: cls name) ifFalse: [helpSpecClasses add: cls name].
 helpSpecClasses do: [:clsName| (self installHelpSpecOnClass: clsName) isNil ifTrue: [^modified := false]].
 ]
 ifFalse:
 [
 self installHelpSpecOnClass: cls
 ].
 modified := false.
+!
+resourceMessage: aString
+"extract from aString the specClass and the specSelector"
+(aString notNil and: [self askForModification])
+ifTrue:
+[
+|msg cls sel|
+msg := aString asCollectionOfWords.
+(msg size == 2 and:
+[(cls := self resolveName:(msg at:1)) notNil])
+ifTrue:
+[
+specClass := cls name.
+specSelector := (msg at: 2) asSymbol.
+^true
+]
+].
+^false
 !
 updateList
 "update the list channel from dictionary
 !UIHelpTool methodsFor:'startup / release'!
 closeRequest
 "before closing the help tool, ask for permission
 "
-(modified and:[self masterApplication isNil]) ifTrue:[
+(self masterApplication isNil and:[self askForModification]) ifTrue:[super closeRequest]
-(self confirm:'Exit without saving your modifications?') ifFalse:[
-^ self
-]
-].
-^super closeRequest
 !
 initialize
 "initialize instance variables
 "
 super initialize.
+specSelector := #helpSpec.
 dictionary   := Dictionary new.
 dictionaries := Dictionary new.
 modified   := false.
 !
+loadFromMessage:aString
+"load a spec from class and selector"
+(aString notNil and: [self askForModification])
+ifTrue:
+[
+|msg cls sel|
+msg := aString asCollectionOfWords.
+(msg size == 2 and:
+[(cls := self resolveName:(msg at:1)) notNil and:
+[cls class implements: (sel := (msg at: 2) asSymbol)]])
+ifTrue:
+[
+self buildFromClass: (specClass := cls name) andSelector: (specSelector := sel).
+^true
+]
+].
+^false
+!
 openInterface:aSymbol
-"open interface
+"do not open as stand alone
 "
-super openInterface: #windowSpecForStandAlone
+!
+openOnClass:aClass
+"open the UIHelpTool on aClass
+"
+super openInterface: #windowSpecForStandAlone.
+self masterApplication isNil ifTrue: [(builder componentAt: #RemoveButton) beInvisible].
+builder window label: 'Help Tool'.
+self buildFromClass: aClass
 ! !
 !UIHelpTool methodsFor:'user actions'!
 accept
 modified := true.
 modifiedHolder notNil ifTrue: [modifiedHolder value:true]
 ]
 !
-add
+doAdd
 "add help key
 "
-self listModel value: (builder componentAt: #helpKeyInputField asSymbol) contents.
+|helpKey|
-self accept
+(helpKey := (builder componentAt: #helpKeyInputField asSymbol) contents) size > 0
-!
+ifTrue:
+[
-delete
+self listModel value: helpKey.
+self accept
+]
+ifFalse:
+[
+self warn: 'First define a help key!!'
+]
+!
+doDelete
 "delete selected help key
 "
 listSelection notNil
 ifTrue:
 [
 dictionary removeKey: listSelection asSymbol ifAbsent: nil.
-self remove.
+self doRemove.
 self updateList.
 modified := true.
 modifiedHolder notNil ifTrue: [modifiedHolder value:true]
 ]
-!
+ifFalse:
+[
-doFromClass
+self warn: 'First select a help key!!'
-"setup new specification from a class accessed through to a dialog
-"
-|cls cls2 accepted|
-specClass notNil ifTrue:[cls := specClass name asValue]
-ifFalse:[cls := '' asValue].
-[true] whileTrue:[
-accepted :=
-(DialogBox new
-addTextLabel:'Class name:';
-addInputFieldOn:cls;
-addAbortButton;
-addOkButton;
-open
-) accepted.
-accepted ifFalse:[^ self].
-cls2 := self applicationClassAssociatedWith:cls value.
-(cls2 notNil and: [cls2 respondsTo: #helpSpec]) ifTrue:[
-^ self helpSpecFrom:cls2
-].
-self warn:'No help spec found in class ', cls value asBoldText, '!!'.
 ]
+!
+doLoad
+"open a Resource Selection Browser in order to get a resource message"
+self loadFromMessage:
+(ResourceSelectionBrowser
+request: 'Load ', self class resourceType asUppercaseFirst, ' Spec From Class'
+onSuperclass: nil
+andClass: specClass
+andSelector: specSelector ? self class resourceType
+withResourceTypes: (Array with: self class resourceType))
+!
+doNew
+"reset the help tool
+"
+specClass := listSelection := nil.
+self dictionary: nil.
+self dictionaries: nil.
+self listOfHelpSpecClasses removeAll.
+modified := false.
 !
 doReload
 "reload the help dictionaries
 "
 model value:oldSel.
 modified := false.
 !
+doRemove
+"remove selected help key
+"
+listSelection notNil
+ifTrue:
+[
+self listModel value: nil.
+self updateList.
+modifiedHolder notNil ifTrue: [modifiedHolder value:true]
+]
+ifFalse:
+[
+self warn: 'First select a help key!!'
+]
+!
 doSave
 "save the help dictionaries
 "
 self installHelpSpecsOnClass:specClass
-!
-remove
-"remove selected help key
-"
-self listModel value: nil.
-self updateList.
-modifiedHolder notNil ifTrue: [modifiedHolder value:true]
-!
-reset
-"reset the help tool
-"
-specClass := listSelection := nil.
-self dictionary: nil.
-self dictionaries: nil.
-self listOfHelpSpecClasses removeAll.
-modified := false.
 ! !
 !UIHelpTool class methodsFor:'documentation'!
 version

changeset 750	9b705e31d38e
parent 740	e7362f3ab5e5
child 761	91e524583390