"

 COPYRIGHT (c) 2001 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' }"

MultiViewToolApplication subclass:#WorkspaceApplication

	instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts

		smalltalkMenuEnabledHolder clipBoardWatcherProcess'

	classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime

		DefaultToolBarVisible ClipBoardFetchingInstance LastLanguage'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!WorkspaceApplication class methodsFor:'documentation'!

copyright

"

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

"

    A simple wrapper around a WorkSpace-View, adding a pullDown menu.

    [author:]

        Claus Gittinger

"

! !

!WorkspaceApplication class methodsFor:'defaults'!

defaultEditToolbarVisible

    ^ UserPreferences current editToolbarVisibleInWorkspace

    "Created: / 14-07-2007 / 16:42:50 / cg"

!

defaultInfoVisible

    ^ UserPreferences current infoVisibleInWorkspace

    "Created: / 14-07-2007 / 16:43:21 / cg"

!

defaultToolbarVisible

    ^ UserPreferences current toolbarVisibleInWorkspace

    "Created: / 14-07-2007 / 16:42:50 / cg"

!

webServiceLinkName

    ^ '/workspace'

! !

!WorkspaceApplication class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    ^super flyByHelpSpec addPairsFrom:#(

#editRedo

'Redo'

#doIndent

'Indent (Shift Right)'

#doUndent

'Undent (Shift Left)'

#languageSelection

'Syntax selection. Right-Click for Menu'

)

    "Modified: / 24-12-2010 / 02:08:53 / cg"

!

helpSpec

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#languageSelection

''

)

    "Created: / 24-12-2010 / 02:10:12 / cg"

! !

!WorkspaceApplication class methodsFor:'interface specs'!

manageSnipletsDialogSpec

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

     WorkspaceApplication new openInterface:#manageSnipletsDialogSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: manageSnipletsDialogSpec

        window: 

       (WindowSpec

          label: 'Manage Sniplets'

          name: 'Manage Sniplets'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 379 590)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Sniplet:'

              name: 'Label1'

              layout: (LayoutFrame 0 0 0 0 0 1 30 0)

              translateLabel: true

              adjust: left

            )

           (VariableVerticalPanelSpec

              name: 'VariableVerticalPanel1'

              layout: (LayoutFrame 0 0 30 0 0 1 -80 1)

              component: 

             (SpecCollection

                collection: (

                 (SequenceViewSpec

                    name: 'List1'

                    model: selectedSniplet

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    useIndex: true

                    sequenceList: listOfSniplets

                  )

                 (TextEditorSpec

                    name: 'TextEditor1'

                    model: selectedSnipletsText

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    hasKeyboardFocusInitially: false

                    viewClassName: ''

                  )

                 )

              )

              handles: (Any 0.5 1.0)

            )

           (HorizontalPanelViewSpec

              name: 'ButtonPanel'

              layout: (LayoutFrame 0 0 -70 1 0 1 -40 1)

              horizontalLayout: center

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Save Changes'

                    name: 'Button4'

                    translateLabel: true

                    model: saveSelectedSniplet

                    enableChannel: saveEnabled

                    extent: (Point 125 22)

                  )

                 (ActionButtonSpec

                    label: 'Remove'

                    name: 'Button2'

                    translateLabel: true

                    model: removeSelectedSniplet

                    enableChannel: removeEnabled

                    extent: (Point 125 22)

                  )

                 (ActionButtonSpec

                    label: 'Paste'

                    name: 'Button3'

                    translateLabel: true

                    model: pasteSelectedSniplet

                    enableChannel: pasteEnabled

                    extent: (Point 125 22)

                  )

                 )

              )

            )

           (DividerSpec

              name: 'Separator1'

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

            )

           (HorizontalPanelViewSpec

              name: 'CloseButtonPanel'

              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)

              horizontalLayout: fitSpace

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              reverseOrderIfOKAtLeft: true

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Close'

                    name: 'Button1'

                    translateLabel: true

                    model: cancel

                    extent: (Point 373 22)

                  )

                 )

              )

            )

           )

        )

      )

!

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

     WorkspaceApplication new openInterface:#windowSpec

     WorkspaceApplication open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Workspace'

          name: 'Workspace'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 432 241)

          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 -26 1.0)

              model: selectedWorkspaceIndexHolder

              menu: tabList

              useIndex: true

              accessTabMenuAction: tabMenuAt:

              destroyTabAction: destroyTab:

              canvas: workspaceHolder

              canvasInset: 0

              keepCanvasAlive: true

              tabLevel: 1

            )

           (UISubSpecification

              name: 'infoBarSubSpec'

              layout: (LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)

              visibilityChannel: infoVisibleHolder

              majorKey: WorkspaceApplication

              minorKey: windowSpecForInfoBar

            )

           )

        )

      )

!

windowSpecForInfoBar

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

     WorkspaceApplication new openInterface:#windowSpecForInfoBar

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpecForInfoBar

        window: 

       (WindowSpec

          label: 'Info Bar'

          name: 'Info Bar'

          min: (Point 400 320)

          max: (Point 1152 900)

          bounds: (Rectangle 0 0 500 346)

        )

        component: 

       (SpecCollection

          collection: (

           (ViewSpec

              name: 'infoView'

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

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    name: 'infoLabel'

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

                    level: -1

                    labelChannel: infoLabelHolder

                    resizeForLabel: false

                    adjust: left

                  )

                 (LabelSpec

                    name: 'Label1'

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

                    level: -1

                    labelChannel: languageInfoLabelHolder

                    resizeForLabel: false

                    adjust: left

                    menu: languageInfoLabelMenu

                    activeHelpKey: languageSelection

                  )

                 )

              )

            )

           )

        )

      )

    "Modified: / 24-12-2010 / 02:09:21 / cg"

! !

!WorkspaceApplication class methodsFor:'menu specs'!

bufferMenu

    "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:#bufferMenu

     (Menu new fromLiteralArrayEncoding:(WorkspaceApplication bufferMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Add Buffer'

            itemValue: addWorkspace

            translateLabel: true

          )

         (MenuItem

            label: '-'

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            label: 'Add Buffer on MyWorkspace'

            itemValue: addMyWorkspace

            translateLabel: true

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            enabled: anyWorkspaceVariableIsDefined

            label: 'Add Buffer on Workspace Variables'

            itemValue: addWorkspaceVariableInspector

            translateLabel: true

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            label: 'Add Buffer on Global Variables'

            itemValue: addGlobalVariableInspector

            translateLabel: true

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            label: 'Add Buffer on Namespace...'

            itemValue: addNamespaceInspector

            translateLabel: true

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            label: 'Add Buffer on SharedPool...'

            itemValue: addSharedPoolInspector

            translateLabel: true

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            label: 'Add Buffer on Class Variables'

            itemValue: addClassVariableInspector

            translateLabel: true

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            label: '-'

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem

            label: 'Add Evaluation Buffer'

            itemValue: addEvaluationWorkspace

            translateLabel: true

            isVisible: thisIsASmalltalkWorkspace

          )

         (MenuItem