"

 COPYRIGHT (c) 1997 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:#ToolApplicationModel

	instanceVariableNames:'timeBlock'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Framework'

!

ToolApplicationModel class instanceVariableNames:'history clipboard settings showHelp'

"

 The following class instance variables are inherited by this class:

	ApplicationModel - ClassResources

	Model - 

	Object - 

"

!

!ToolApplicationModel class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 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

"

    Standard framework for tools; provides hooks for history management,

    showing help texts, about menu, help menu etc.

    See concrete subclasses for examples.

    [author:]

        Thomas Zwick

"

! !

!ToolApplicationModel class methodsFor:'accessing'!

authorLinesForAboutBox

    "extract the author(s) from the documentation method."

    |firstClassWithDocumentation src s line lines|

    firstClassWithDocumentation := self class withAllSuperclasses detect:[:metacls| metacls implements:#documentation].

    firstClassWithDocumentation notNil ifTrue:[

        (firstClassWithDocumentation inheritsFrom:ToolApplicationModel class) ifTrue:[

            src := (firstClassWithDocumentation compiledMethodAt:#documentation) source.

            src notNil ifTrue:[

                s := src readStream.

                s upToAll:'[author:]'.

                s nextLine.   "/ skip to end

                line := s nextLine.   "/ line after [author:]

                lines := OrderedCollection new.

                [line notNil and:[line notEmpty]] whileTrue:[

                    line := line trimBlanks.

                    line size > 1 ifTrue:[

                        lines add:line trimBlanks.

                        line := s nextLine.

                    ] ifFalse:[

                        line := nil

                    ]

                ].

                ^ lines.

            ]

        ]

    ].

    ^ #('unnown')

    "Created: / 1.2.1998 / 15:41:43 / cg"

    "Modified: / 1.2.1998 / 15:59:10 / cg"

!

label

    |label|

    label := ''.

    self name do:

    [:c|

        c isUppercase ifTrue: [label := label, $ ].

        label := label, c

    ].

    ^label trimBlanks

!

settings

    ^settings ? (settings := IdentityDictionary new)

!

showHelp

    ^showHelp ? (showHelp := true)

!

showHelp: aBoolean

    ^showHelp := aBoolean

! !

!ToolApplicationModel class methodsFor:'clipboard'!

clipboard

    ^clipboard

!

clipboard: anEditObject

    clipboard := anEditObject

! !

!ToolApplicationModel class methodsFor:'help specs'!

helpSpec

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

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:ToolApplicationModel    

    "

  ^ super helpSpec addPairsFrom:#(

#about

'About functions.'

#aboutSTX

'Opens an InfoBox about running ST/X.'

#aboutThisAppliaction

'Opens an InfoBox about release and author of current application.'

#add

'Add functions.'

#commitCancel

'Cancels last edit action.'

#commitOK

'Accepts last edit action.'

#edit

'Edit functions.'

#editCopy

'Copies the selected item(s) to the clipboard.'

#editCut

'Cuts the selected item(s) and places it to the clipboard.'

#editDelete

'Deletes the selected item(s).'

#editMoveDown

'Moves the selected item one step down.'

#editMoveIn

'Moves the selected item into next item as child item.'

#editMoveOut

'Moves the selected item out of parent item.'

#editMoveUp

'Moves the selected item one step up.'

#editPaste

'Pastes the contents of the clipboard.'

#editUndo

'Reverses the last action.'

#file

'File functions.'

#fileBrowseClass

'Opens a System Browser on current class and selector.'

#fileDefineClass

'Opens a dialog to define current class.'

#fileDefineClassAndSelector

'Opens a dialog to define current class and selector.'

#fileExit

'Exits current application.'

#help

'Help functions.'

#helpShowHelp

'Turns on/off displaying help texts.'

#helpTutorial

'Opens a HTML-Browser on the documentation file of the current application.'

#history

'History functions.'

#historyEmptyMenu

'Deletes all items of the history.'

#historyMenuItem

'Evaluates the text of the menu item for loading.'

#test

'Test functions.'

)

! !

!ToolApplicationModel class methodsFor:'history'!

getHistory

    history isNil ifTrue: [history := OrderedCollection new].

    ^history

!

historyMaxSize

    ^10

! !

!ToolApplicationModel class methodsFor:'interface specs'!

windowSpecForCommit

    <resource: #canvas>

    ^

       #(#FullSpec

           #(#WindowSpec

          )

           #(#SpecCollection

               #(

                 #(#ActionButtonSpec

                )

                 #(#ActionButtonSpec

                )

              )

          )

      )

!

windowSpecForCommitWithoutChannels

    <resource: #canvas>

    ^

       #(#FullSpec

           #(#WindowSpec

          )

           #(#SpecCollection

               #(

                 #(#ActionButtonSpec

                )

                 #(#ActionButtonSpec

                )

              )

          )

      )

!

windowSpecForInfoBar

    <resource: #canvas>

    ^

       #(#FullSpec

           #(#WindowSpec

          )

           #(#SpecCollection

               #(

                 #(#ViewSpec

                     #(#SpecCollection

                         #(

                           #(#LabelSpec

                          )

                        )

                    )

                )

              )

          )

      )

!

windowSpecForInfoBarWithClock

    <resource: #canvas>

    ^

       #(#FullSpec

           #(#WindowSpec

          )

           #(#SpecCollection

               #(

                 #(#ViewSpec

                     #(#SpecCollection

                         #(

                           #(#LabelSpec

                          )

                           #(#LabelSpec

                          )

                        )

                    )

                )

              )

          )

      )

! !

!ToolApplicationModel class methodsFor:'menu specs'!

menuAbout

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

            )

             #(#MenuItem

            )

             #(#MenuItem

            )

          ) nil

          nil

      )

!

menuHelp

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

            )

             #(#MenuItem

            )

             #(#MenuItem

            )

          ) nil

          nil