"

 COPYRIGHT (c) 2004 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:libtool' }"

ToolApplicationModel subclass:#MultiViewToolApplication

	instanceVariableNames:'workspaces tabList selectedWorkspaceIndexHolder workspaceHolder'

	classVariableNames:'DefaultInfoVisible DefaultEditToolBarVisible

		DefaultToolBarVisible'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!MultiViewToolApplication class methodsFor:'documentation'!

copyright

"

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

"

    Common code for multiView applications (Workspace, Terminal app and maybe more later)

    [author:]

        Claus Gittinger

"

! !

!MultiViewToolApplication class methodsFor:'defaults'!

defaultEditToolbarVisible

    ^ DefaultEditToolBarVisible ? false

    "Created: / 14-07-2007 / 16:38:47 / cg"

!

defaultInfoVisible

    ^ DefaultInfoVisible ? true

    "Created: / 14-07-2007 / 16:38:32 / cg"

!

defaultToolbarVisible

    ^ DefaultToolBarVisible ? false

    "Created: / 14-07-2007 / 16:38:47 / cg"

! !

!MultiViewToolApplication class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#addWorkspace

'Add another page (tab)'

#hideToolBar

'Hide the toolbar. Show again via the "View"-menu'

#hideEditToolBar

'Hide the edit-toolbar. Show again via the "View"-menu'

)

    "Modified: / 06-07-2011 / 18:08:57 / cg"

! !

!MultiViewToolApplication class methodsFor:'image specs'!

hideToolBarIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideToolBarIcon

    "Created: / 18-02-2007 / 14:53:38 / cg"

! !

!MultiViewToolApplication 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:MultiViewToolApplication andSelector:#windowSpec

     MultiViewToolApplication new openInterface:#windowSpec

     MultiViewToolApplication open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Workspace'

          name: 'Workspace'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 640 480)

          menu: mainMenu

        )

        component: 

       (SpecCollection

          collection: (

           (ViewSpec

              name: 'ToolBar'

              layout: (LayoutFrame 0 0 0 0 0 1 32 0)

              visibilityChannel: toolBarVisibleHolder

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'hideToolBarIcon'

                    name: 'HideToolBarButton'

                    layout: (LayoutFrame 0 0 0 0 13 0 0 1)

                    activeHelpKey: hideToolBar

                    hasCharacterOrientedLabel: false

                    translateLabel: true

                    model: hideToolbar

                    postBuildCallback: hideToolBarButtonCreated:

                  )

                 (MenuPanelSpec

                    name: 'ToolBarMenu'

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

                    visibilityChannel: toolBarVisibleHolder

                    menu: toolBarMenu

                    textDefault: true

                  )

                 )

              )

            )

           (ViewSpec

              name: 'EditToolBar'

              layout: (LayoutFrame 0 0 32 0 0 1 64 0)

              visibilityChannel: editToolBarVisibleHolder

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'hideToolBarIcon'

                    name: 'HideEditToolBarButton'

                    layout: (LayoutFrame 0 0 0 0 13 0 0 1)

                    activeHelpKey: hideEditToolBar

                    hasCharacterOrientedLabel: false

                    translateLabel: true

                    model: hideEditToolbar

                    postBuildCallback: hideToolBarButtonCreated:

                  )

                 (MenuPanelSpec

                    name: 'EditToolBar1'

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

                    visibilityChannel: editToolBarVisibleHolder

                    menu: editToolBarMenu

                    textDefault: true

                  )

                 )

              )

            )

           (NoteBookViewSpec

              name: 'NoteBook'

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

              model: selectedWorkspaceIndexHolder

              menu: tabList

              useIndex: true

              accessTabMenuAction: tabMenuAt:

              destroyTabAction: destroyTab:

              canvas: workspaceHolder

              canvasInset: 0

              keepCanvasAlive: true

              tabLevel: 1

            )

           )

        )

      )

    "Modified: / 11-05-2012 / 11:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MultiViewToolApplication class methodsFor:'menu specs'!

editToolBarMenu

    "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:MultiViewToolApplication andSelector:#toolBarMenu

     (Menu new fromLiteralArrayEncoding:(MultiViewToolApplication toolBarMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         )

        nil

        nil

      )

    "Modified: / 18-02-2007 / 14:59:21 / cg"

!

mainMenu

    "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:MultiViewToolApplication andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(MultiViewToolApplication mainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'File'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'New Editor'

                  itemValue: newWorkspace

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Load File...'

                  itemValue: menuLoad

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Save As...'

                  itemValue: menuSaveAs

                  translateLabel: true

                )

               (MenuItem

                  enabled: hasMultipleBuffersHolder

                  label: 'Save all As...'

                  itemValue: menuSaveAllAs

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Print...'

                  itemValue: menuPrint

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Buffers'

            nameKey: Buffer

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Add Buffer'

                  itemValue: addWorkspace

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Rename...'

                  itemValue: renameWorkspace

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  enabled: canRemoveWorkspace

                  label: 'Remove Buffer'

                  itemValue: removeWorkspace

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Edit'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  enabled: hasSelectionInActiveWorkspace

                  label: 'Cut'

                  itemValue: cutSelection

                  translateLabel: true

                )

               (MenuItem

                  enabled: hasSelectionInActiveWorkspace

                  label: 'Copy'

                  itemValue: copySelection

                  translateLabel: true

                )

               (MenuItem

                  label: 'Paste'

                  itemValue: paste

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Select All'

                  itemValue: selectAll

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'View'

            translateLabel: true

            submenuChannel: viewMenu

            keepLinkedMenu: true

          )

         (MenuItem

            label: 'MENU_Help'

            translateLabel: true

            startGroup: conditionalRight

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'About this Application...'

                  itemValue: openAboutThisApplication

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

!

tabMenu

    "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:WorkspaceApplication andSelector:#tabMenu

     (Menu new fromLiteralArrayEncoding:(WorkspaceApplication tabMenu)) startUp

    "

    <resource: #menu>

    ^

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Add Tab'

            #translateLabel: true

            "/ #triggerOnDown: true

            #value: #addWorkspace

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Remove Tab'

            #translateLabel: true

            "/ #triggerOnDown: true

            #value: #removeWorkspace:

            #enabled: #canRemoveWorkspace:

          )

         #(#MenuItem

            #label: 'Remove all other Tabs'

            #translateLabel: true

            "/ #triggerOnDown: true

            #value: #removeAllWorkspacesExcept:

            #enabled: #canRemoveAllWorkspacesExcept:

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Rename...'

            #translateLabel: true

            "/ #triggerOnDown: true

            #value: #renameWorkspace:

          )

         )

        nil

        nil

      )

!

toolBarMenu

    "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:MultiViewToolApplication andSelector:#toolBarMenu

     (Menu new fromLiteralArrayEncoding:(MultiViewToolApplication toolBarMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: ''

          )

         (MenuItem

"/            activeHelpKey: addWorkspace

            label: 'Add Buffer'

            itemValue: addWorkspace

            translateLabel: true

            isButton: true

            labelImage: (ResourceRetriever ToolbarIconLibrary addBufferIcon)

          )

         )

        nil

        nil

      )

    "Modified: / 18-02-2007 / 14:59:21 / cg"

!