"{ Encoding: utf8 }"

"

 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' }"

"{ NameSpace: Smalltalk }"

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'!

helpSpec

    <resource: #help>

    ^ super helpSpec 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

       uuid: '3b15ca06-c5a3-11e7-82f7-c42c033b4871'

       window: 

      (WindowSpec

         label: 'Workspace'

         name: 'Workspace'

         uuid: '3b15ceca-c5a3-11e7-82f7-c42c033b4871'

         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)

             uuid: '3b15d230-c5a3-11e7-82f7-c42c033b4871'

             visibilityChannel: toolBarVisibleHolder

             component: 

            (SpecCollection

               collection: (

                (ActionButtonSpec

                   label: 'hideToolBarIcon'

                   name: 'HideToolBarButton'

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

                   activeHelpKey: hideToolBar

                   uuid: '3b15d460-c5a3-11e7-82f7-c42c033b4871'

                   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)

                   uuid: '3b15d79e-c5a3-11e7-82f7-c42c033b4871'

                   visibilityChannel: toolBarVisibleHolder

                   menu: toolBarMenu

                   textDefault: true

                 )

                )

             )

           )

          (ViewSpec

             name: 'EditToolBar'

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

             uuid: '3b15da32-c5a3-11e7-82f7-c42c033b4871'

             visibilityChannel: editToolBarVisibleHolder

             component: 

            (SpecCollection

               collection: (

                (ActionButtonSpec

                   label: 'hideToolBarIcon'

                   name: 'HideEditToolBarButton'

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

                   activeHelpKey: hideEditToolBar

                   uuid: '3b15dba4-c5a3-11e7-82f7-c42c033b4871'

                   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)

                   uuid: '3b15ddb6-c5a3-11e7-82f7-c42c033b4871'

                   visibilityChannel: editToolBarVisibleHolder

                   menu: editToolBarMenu

                   textDefault: true

                 )

                )

             )

           )

          (NoteBookViewSpec

             name: 'NoteBook'

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

             uuid: '3b15df78-c5a3-11e7-82f7-c42c033b4871'

             model: selectedWorkspaceIndexHolder

             menu: tabList

             useIndex: true

             accessTabMenuAction: tabMenuAt:

             translateLabel: true

             destroyTabAction: destroyTab:

             canvas: workspaceHolder

             canvasInset: 0

             keepCanvasAlive: true

             tabLevel: 1

           )

          )

       )

     )

! !

!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: 'Pages'

            nameKey: Buffer

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Add Page'

                  itemValue: addWorkspace

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Rename...'

                  itemValue: renameWorkspace

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  enabled: canRemoveWorkspace

                  label: 'Remove Page'

                  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

      )

    "Modified: / 21-09-2018 / 11:04:27 / Claus Gittinger"

!

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