"

 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-Advanced-Tools'

!

ToolApplicationModel class instanceVariableNames:'history clipboard 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

!

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:#(

#aboutSTX

'Opens an InfoBox about running ST/X.'

#aboutThisAppliaction

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

#fileExit

'Exits current application.'

#editCut

'Cuts selected item and place it to the clipboard.'

#editCopy

'Copies selected item to the clipboard.'

#editPaste

'Pastes contents of the clipboard.'

#editUndo

'Reverses the last action.'

#editMoveDown

'Moves selected item one step down.'

#editMoveUp

'Moves selected item one step up.'

#editMoveIn

'Moves selected item into next item as child.'

#editMoveOut

'Moves selected item out of parent item.'

#fileDefineClassAndSelector

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

#historyMenuItem

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

#historyEmptyMenu

'Deletes all items of the history.'

#helpShowHelp

'Toggles on/off displaying help texts.'

#helpTutorial

'Opens a HTML-browser with a tutorial for beginners.'

)

! !

!ToolApplicationModel class methodsFor:'history'!

getHistory

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

    ^history

!

historyMaxSize

    ^10

! !

!ToolApplicationModel class methodsFor:'interface specs'!

windowSpecForCommit

    "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:ToolApplicationModel andSelector:#windowSpecForCommit

     ToolApplicationModel new openInterface:#windowSpecForCommit

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'unnamed canvas'

              #'layout:' #(#LayoutFrame 325 0 361 0 624 0 420 0)

              #'label:' 'unnamed canvas'

              #'min:' #(#Point 100 22)

              #'max:' #(#Point 1152 900)

              #'bounds:' #(#Rectangle 325 361 625 421)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#ActionButtonSpec

                    #'name:' 'cancelButton'

                    #'layout:' #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)

                    #'label:' 'Cancel'

                    #'tabable:' true

                    #'model:' #cancel

                    #'enableChannel:' #valueOfEnablingCommitButtons

                )

                 #(#ActionButtonSpec

                    #'name:' 'okButton'

                    #'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)

                    #'label:' 'OK'

                    #'tabable:' true

                    #'model:' #accept

                    #'enableChannel:' #valueOfEnablingCommitButtons

                )

              )

          )

      )

!

windowSpecForCommitWithoutChannels

    "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:ToolApplicationModel andSelector:#windowSpecForCommitWithoutChannels

     ToolApplicationModel new openInterface:#windowSpecForCommitWithoutChannels

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'unnamed canvas'

              #'layout:' #(#LayoutFrame 418 0 386 0 717 0 445 0)

              #'label:' 'unnamed canvas'

              #'min:' #(#Point 100 22)

              #'max:' #(#Point 1152 900)

              #'bounds:' #(#Rectangle 418 386 718 446)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#ActionButtonSpec

                    #'name:' 'cancelButton'

                    #'layout:' #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)

                    #'label:' 'Cancel'

                    #'tabable:' true

                    #'model:' #cancel

                )

                 #(#ActionButtonSpec

                    #'name:' 'okButton'

                    #'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)

                    #'label:' 'OK'

                    #'tabable:' true

                    #'model:' #accept

                )

              )

          )

      )

!

windowSpecForInfoBar

    "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:ToolApplicationModel andSelector:#windowSpecForInfoBar

     ToolApplicationModel new openInterface:#windowSpecForInfoBar

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Image Editor'

              #'label:' 'Image Editor'

              #'min:' #(#Point 400 320)

              #'max:' #(#Point 1152 900)

              #'menu:' #menu

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

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

                )

              )

          )

      )

!

windowSpecForInfoBarWithClock

    "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."

    "

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'Image Editor'

              #'label:' 'Image Editor'

              #'min:' #(#Point 400 320)

              #'max:' #(#Point 1152 900)

              #'menu:' #menu

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                )

              )

          )

      )

! !

!ToolApplicationModel class methodsFor:'menu specs'!

menuAbout

    "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:ToolApplicationModel andSelector:#menuAbout

     (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuAbout)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'About Smalltalk/X...'

                #'translateLabel:' true

                #'value:' #openAbout

                #'activeHelpKey:' #aboutSTX

            )

             #(#MenuItem

                #'label:' '-'

            )

             #(#MenuItem

                #'label:' 'About This Application...'

                #'translateLabel:' true

                #'value:' #openAboutThisApplication

                #'activeHelpKey:' #aboutThisAppliaction

            )

          ) nil

          nil

      )

    "Modified: / 30.1.1998 / 00:03:11 / cg"

!

menuHelp

    "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:ToolApplicationModel andSelector:#menuHelp

     (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #'label:' 'Tutorial'

                #'translateLabel:' true

                #'value:' #openTutorial

                #'activeHelpKey:' #helpTutorial

                #'enabled:' #valueOfHavingTutorial

            )

             #(#MenuItem

                #'label:' '-'

            )

             #(#MenuItem

                #'label:' 'Show Help'

                #'translateLabel:' true

                #'activeHelpKey:' #helpShowHelp