"

 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.

"

"{ Package: 'stx:libtool2' }"

ToolApplicationModel subclass:#UIHelpTool

	instanceVariableNames:'specClass specSelector dictionary dictionaries modifiedHolder

		modified listOfKeys listOfKeysModel listOfClasses

		listOfClassesModel contentsModifiedChannel editModel editTextView'

	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

"

    The Help Tool allows you to define help dictionaries for the widgets in

    window applications. The tool are able to run stand alone or in other master 

    applications like the GUI Painter and the Menu Editor.

    If the application responds to the selector #showHelp:aHelpText for:aView,

    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.

    [instance variables:]

        specClass       <Symbol>        class implementing the help spec

        specSelector    <Symbol>        selector returning the help spec

        dictionary      <Dictionary>    dictionary containing pairs of help keys/texts

        dictionaries    <Dictionary>    dictionary containing pairs of help spec classes/help dictionaries

        listSelection   <String>        current selected help key

        maxCharsPerLine <Integer>       maximum number of allowed characters per text line

        modifiedHolder  <ValueHolder>   value holder for setting as modified

        modified        <Boolean>       flag whether the help spec was modified

    [author:]

        Claus Atzkern, eXept Software AG

        Thomas Zwick, eXept Software AG

"

! !

!UIHelpTool class methodsFor:'instance creation'!

open

    ^ self openOnClass:nil.

"/    |className cls|

"/

"/    className := Dialog request:(ClassResources string:'Open on which class ?').

"/    className size > 0 ifTrue:[

"/        cls := Smalltalk at:className asSymbol.

"/        cls notNil ifTrue:[

"/            ^ self openOnClass:cls.

"/        ].

"/        self warn:(ClassResources string:'No such class').

"/    ].

"/

"/    "Created: / 20.5.1998 / 00:55:05 / cg"

"/

    "Modified: / 20.5.1998 / 01:06:07 / cg"

!

openOnClass:aClass

    "opens a Help Tool on aClass"

    ^ self openOnClass:aClass andSelector:#helpSpec

    "

     UIHelpTool openOnClass:self

    "

    "Modified: / 20.5.1998 / 01:06:14 / cg"

!

openOnClass:aClass andSelector: aSelector

    "opens a Help Tool on aClass and aSelector"

    ^self new openOnClass:aClass andSelector: aSelector

! !

!UIHelpTool class methodsFor:'constants'!

label

    "returns the label; used if embedded as sub canvas in the GUI Painter or Menu Editor"

    ^'Help'

! !

!UIHelpTool class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:UIHelpTool    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#addHelpTextKey

'Adds the key to the help spec.'

#currentHelpTexts

'Selected help text key.'

#deleteHelpTextKey

'Deletes the key from the help spec.'

#fileLoad

'Opens a dialog for selecting and loading a help spec from a class.'

#fileSave

'Saves the current help spec.'

#fileUpdate

'Reload the help spec.'

#helpTextView

'Shows the help text. Menu action ''Accept'' commits changes'

#listOfClasses

'Classes where help specs can be/are implemented.'

#listOfHelpTexts

'List of help text keys.'

#removeHelpTextKey

'Removes the help message from the widget.'

#updateHelpTextKey

'Refetch the help spec.'

)

! !

!UIHelpTool class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec

     UIHelpTool new openInterface:#windowSpec

     UIHelpTool open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Help Tool'

          #name: 'Help Tool'

          #min: #(#Point 10 10)

          #max: #(#Point 1160 870)

          #bounds: #(#Rectangle 31 306 317 577)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#VariableVerticalPanelSpec

              #name: 'VariableVerticalPanel'

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

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#VariableHorizontalPanelSpec

                    #name: 'VariableHorizontalPanel'

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#SelectionInListModelViewSpec

                          #name: 'listOfKeys'

                          #activeHelpKey: #listOfHelpTexts

                          #model: #listOfKeysModel

                          #menu: #listOfKeysMenu

                          #hasHorizontalScrollBar: true

                          #hasVerticalScrollBar: true

                          #miniScrollerHorizontal: true

                          #listModel: #listOfKeys

                          #useIndex: false

                          #highlightMode: #line

                        )

                       #(#ViewSpec

                          #name: 'Box'

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#InputFieldSpec

                                #name: 'helpKeyInputField'

                                #layout: #(#LayoutFrame 2 0.0 2 0 -2 1.0 25 0)

                                #activeHelpKey: #currentHelpTexts

                                #tabable: true

                                #model: #editModel

                                #immediateAccept: true

                                #acceptOnReturn: false

                                #acceptOnTab: false

                                #acceptOnPointerLeave: false

                              )

                             #(#SelectionInListModelViewSpec

                                #name: 'listOfClasses'

                                #layout: #(#LayoutFrame 0 0.0 27 0 0 1.0 0 1.0)

                                #activeHelpKey: #listOfClasses

                                #model: #listOfClassesModel

                                #hasHorizontalScrollBar: true

                                #hasVerticalScrollBar: true

                                #miniScrollerHorizontal: true

                                #miniScrollerVertical: true

                                #listModel: #listOfClasses

                                #useIndex: false

                                #highlightMode: #line

                              )

                             )

                          )

                        )

                       )

                    )

                    #handles: #(#Any 0.5 1.0)

                  )

                 #(#ViewSpec

                    #name: 'Box1'

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#MenuPanelSpec

                          #name: 'helpTextMenu'

                          #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 24 0)

                          #menu: #helpTextMenu

                          #textDefault: true

                        )

                       #(#TextEditorSpec

                          #name: 'helpTextView'

                          #layout: #(#LayoutFrame 0 0.0 24 0.0 0 1.0 0 1.0)

                          #activeHelpKey: #helpTextView

                          #tabable: true

                          #hasHorizontalScrollBar: true

                          #hasVerticalScrollBar: true

                          #miniScrollerHorizontal: true

                          #miniScrollerVertical: true

                          #modifiedChannel: #contentsModifiedChannel

                          #postBuildCallback: #postBuildTextView:

                        )

                       )

                    )

                  )

                 )

              )

              #handles: #(#Any 0.5 1.0)

            )

           )

        )

      )

!

windowSpecForStandAlone

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpecForStandAlone

     UIHelpTool new openInterface:#windowSpecForStandAlone

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpecForStandAlone

        #window: 

       #(#WindowSpec

          #label: 'Help Tool'

          #name: 'Help Tool'

          #min: #(#Point 300 300)

          #max: #(#Point 1152 900)

          #bounds: #(#Rectangle 83 333 796 896)

          #menu: #menu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#UISubSpecification

              #name: 'windowSpec'

              #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

            )

           )

        )

      )

! !

!UIHelpTool class methodsFor:'menu specs'!

helpTextMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:UIHelpTool andSelector:#helpTextMenu

     (Menu new fromLiteralArrayEncoding:(UIHelpTool helpTextMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #activeHelpKey: #commitOK

            #enabled: #contentsModifiedChannel

            #label: 'Accept'

            #itemValue: #accept

            #translateLabel: true

          )

         #(#MenuItem

            #activeHelpKey: #commitCancel

            #enabled: #contentsModifiedChannel

            #label: 'Cancel'

            #itemValue: #cancel

            #translateLabel: true

          )

         )

        nil

        nil

      )

!

listOfKeysMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:UIHelpTool andSelector:#listOfKeysMenu

     (Menu new fromLiteralArrayEncoding:(UIHelpTool listOfKeysMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #activeHelpKey: #deleteHelpTextKey

            #label: 'Delete'

            #itemValue: #doDelete

            #translateLabel: true

          )

         )

        nil

        nil

      )

!

menu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:UIHelpTool andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(UIHelpTool menu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'File'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #activeHelpKey: #fileLoad

                  #label: 'Load...'

                  #itemValue: #doLoad

                  #translateLabel: true

                )

               #(#MenuItem

                  #activeHelpKey: #fileSave

                  #label: 'Save'

                  #itemValue: #doSave

                  #translateLabel: true

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #activeHelpKey: #fileExit

                  #label: 'Exit'

                  #itemValue: #closeRequest

                  #translateLabel: true

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #label: 'Edit'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #activeHelpKey: #deleteHelpTextKey

                  #label: 'Delete'

                  #itemValue: #doDelete

                  #translateLabel: true

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #activeHelpKey: #help

            #label: 'Help'

            #translateLabel: true

            #startGroup: #right

            #submenuChannel: #menuHelp

          )

         )

        nil