"

 COPYRIGHT (c) 1995 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

ApplicationModel subclass:#UIHelpTool

	instanceVariableNames:'isModified specClass dictionary listSelection maxCharsPerLine

		modifiedHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

!UIHelpTool class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    used by the UIPainter to add help text to any component which will be shown

    during runing an application with enabled activeHelp mode.

    [author:]

        Claus Atzkern

"

! !

!UIHelpTool class methodsFor:'instance creation'!

openOnClass:aClass

    "

     UIHelpTool openOnClass:UIPainter

    "

    |helpTool|

    helpTool := UIHelpTool new.

    helpTool openInterface:#standAloneSpec.

    helpTool helpSpecFrom:aClass

! !

!UIHelpTool class methodsFor:'constants'!

label

    ^ 'Help'

! !

!UIHelpTool class methodsFor:'help specs'!

helpSpec

    "return a dictionary filled with helpKey -> helptext associations.

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:UIHelpTool    

    "

  ^ super helpSpec addPairsFrom:#(

#activeHelpAccessKey

'This ID is used to access an active help text for the selected component'

)

! !

!UIHelpTool class methodsFor:'interface specs'!

keyMenu

    "this window spec was automatically generated by the ST/X MenuEditor"

    "do not manually edit this - the builder may not be able to

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:UIHelpTool andSelector:#keyMenu

     (Menu new fromLiteralArrayEncoding:(UIHelpTool keyMenu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'save as ...'

                #'value:' #saveAs

            )

             #(#MenuItem

                #'label:' '-'

            )

             #(#MenuItem

                #'label:' 'remove'

                #'value:' #removeKey

            )

          ) nil

          nil

      )

    "Created: / 27.10.1997 / 00:55:20 / cg"

!

menuPanelStandAlone

    "this window spec was automatically generated by the ST/X MenuEditor"

    "do not manually edit this - the builder may not be able to

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:UIHelpTool andSelector:#menuPanelStandAlone

     (Menu new fromLiteralArrayEncoding:(UIHelpTool menuPanelStandAlone)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'file'

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'reload'

                          #'value:' #doReload

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'quit'

                          #'value:' #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #'label:' 'code'

                #'submenu:' 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #'label:' 'class'

                          #'value:' #doFromClass

                      )

                       #(#MenuItem

                          #'label:' '-'

                      )

                       #(#MenuItem

                          #'label:' 'install help spec.'

                          #'value:' #doInstallHelpSpec

                      )

                    ) nil

                    nil

                )

            )

          ) nil

          nil

      )

!

standAloneSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:UIHelpTool andSelector:#standAloneSpec

     UIHelpTool new openInterface:#standAloneSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'HelpTool'

              #'layout:' #(#LayoutFrame 219 0 193 0 814 0 690 0)

              #'label:' 'HelpTool'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1160 870)

              #'bounds:' #(#Rectangle 219 193 815 691)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#MenuPanelSpec

                    #'name:' 'menuPanelStandAlone'

                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 25 0)

                    #'menu:' #menuPanelStandAlone

                )

                 #(#VariableHorizontalPanelSpec

                    #'name:' 'variableHorizontalPanel1'

                    #'layout:' #(#LayoutFrame 0 0.0 25 0.0 0 1.0 0 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#TextEditorSpec

                              #'name:' 'textView'

                              #'hasHorizontalScrollBar:' true

                              #'hasVerticalScrollBar:' true

                              #'miniScrollerHorizontal:' true

                              #'miniScrollerVertical:' true

                          )

                           #(#SequenceViewSpec

                              #'name:' 'selectionList'

                              #'model:' #listModel

                              #'menu:' #keyMenu

                              #'hasHorizontalScrollBar:' true

                              #'hasVerticalScrollBar:' true

                              #'miniScrollerHorizontal:' true

                              #'miniScrollerVertical:' true

                              #'useIndex:' false

                              #'sequenceList:' #listChannel

                          )

                        )

                    )

                    #'handles:' #(#Any 0.647651 1.0)

                )

              )

          )

      )

!

windowSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec

     UIHelpTool new openInterface:#windowSpec

    "

    "UIHelpTool open"

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'HelpTool'

              #'layout:' #(#LayoutFrame 199 0 167 0 484 0 437 0)

              #'label:' 'unnamed canvas'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1160 870)

              #'bounds:' #(#Rectangle 199 167 485 438)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'keyLabel'

                    #'layout:' #(#AlignmentOrigin 3 0.0 42 0.0 0 1)

                    #'label:' 'Key:'

                    #'adjust:' #left

                    #'resizeForLabel:' true

                )

                 #(#ComboBoxSpec

                    #'name:' 'comboBox'

                    #'layout:' #(#LayoutFrame 48 0 22 0 -3 1.0 44 0)

                    #'activeHelpKey:' #activeHelpAccessKey

                    #'tabable:' true

                    #'model:' #listModel

                    #'type:' #symbolOrNil

                    #'comboList:' #listChannel

                )

                 #(#TextEditorSpec

                    #'name:' 'textView'

                    #'layout:' #(#LayoutFrame 3 0.0 45 0.0 -3 1.0 -3 1.0)

                    #'hasHorizontalScrollBar:' true

                    #'hasVerticalScrollBar:' true

                    #'miniScrollerHorizontal:' true

                    #'miniScrollerVertical:' true

                )

              )

          )

      )

! !

!UIHelpTool methodsFor:'accessing'!

dictionary

    "return the value of the instance variable 'dictionary' (automatically generated)"

    ^ dictionary!

dictionary:aDictionary

    "set the value of the instance variable 'dictionary' (automatically generated)"

    (dictionary := aDictionary) isNil ifTrue:[

        dictionary := IdentityDictionary new.

    ].

    self updateList

!

helpKey

    listSelection size ~~ 0 ifTrue:[

        ^ listSelection asSymbol

    ].

    ^ nil

!

helpKey:aKey

    |key|

    aKey size ~~ 0 ifTrue:[

        key := aKey asString

    ].

    self listModel value:key

!

helpSpecFrom:aClass

    "read help text from an application associated with the class

    "

    |help|

    specClass  := self applicationClassAssociatedWith:aClass.

    isModified := false.

    (specClass respondsTo:#helpSpec) ifTrue:[

        help := specClass helpSpec

    ] ifFalse:[

        specClass := nil

    ].

    self dictionary:help

!

modifiedHolder:aValueHolder

    "set the value holder set to true in case of modifying attributes

    "

    modifiedHolder notNil ifTrue:[

        modifiedHolder removeDependent:self. 

    ].

    (modifiedHolder := aValueHolder) notNil ifTrue:[

        modifiedHolder addDependent:self.

        self editTextView notNil ifTrue: [

            self editTextView modifiedChannel onChangeSend:#value to:[

                modifiedHolder notNil ifTrue:[

                    self editTextView modifiedChannel value ifTrue:[

                        modifiedHolder value:true

                    ]

                ]

            ]

        ]

    ]

!

updateList

    "update list from dictionary

    "

    self listChannel value:(dictionary keys asSortedCollection)

! !

!UIHelpTool methodsFor:'accessing menu'!

keyMenu

    "this window spec was automatically generated by the UI Builder"

    ^ self class keyMenu

    "Created: / 27.10.1997 / 00:55:20 / cg"

! !

!UIHelpTool methodsFor:'actions'!

accept

    "accept the text

    "

    |view key txt list listChgd|

    (listSelection size == 0 or:[(view := self editTextView) isNil]) ifFalse:[

        txt    := view contents asString.

        key    := listSelection asSymbol.

        list   := self listChannel value.

        (listChgd := (dictionary at:key ifAbsent:nil) isNil) ifTrue:[

            list add:key.

        ].

        dictionary at:key put:txt.

        isModified := true.

        listChgd ifTrue:[

            self updateList

        ].

        modifiedHolder notNil ifTrue: [modifiedHolder value:true]

    ]

!

installHelpSpecInto:aClass

    "install help text

    "

    |cls src superHelpSpecKeys helpSpec|

    cls := self applicationClassAssociatedWith:aClass.

    cls isNil ifTrue:[

        ^ self information:'No application class defined!!'.

    ].

    isModified not ifTrue:[

        ^nil

    ].

    superHelpSpecKeys := cls superclass helpSpec keys.

    helpSpec := IdentityDictionary new.

    dictionary associationsDo:

    [:asso|

        (superHelpSpecKeys includes: asso key) ifFalse: [helpSpec at: asso key put: asso value]

    ].

    helpSpec isEmpty ifTrue:[

        ^nil

    ].

    src  := '' writeStream.

    src nextPutAll:

'helpSpec

    "return a dictionary filled with helpKey -> helptext associations.

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:', cls name asString ,'    

    "

  ^ super helpSpec addPairsFrom:#(

'.

    helpSpec keys asSortedCollection

    do:[:key |

        |txt t|

        txt := helpSpec at:key.

        src nextPutLine:key storeString.

        t := txt asString replaceAll:(Character cr) with:(Character space).

        (t endsWith:Character space) ifTrue:[

            t := t copyWithoutLast:1

        ].

        src nextPutLine:t storeString; cr.

    ].

    src nextPutLine:')'.

    Compiler compile:(src contents)