"

 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

		fetchClipboardLines cursorLineHolder cursorColHolder

		modeLabelHolder toolBarView'

	classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime

		DefaultToolBarVisible ClipBoardFetchingInstance LastLanguage

		MyWorkspaceOpened'

	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"

!

defaultMyWorkspaceDotWspFile

    |stxFolder f |

    stxFolder := Filename homeDirectory / '.smalltalk'. 

    f := stxFolder / 'MyWorkspace.wsp'.

    f exists ifFalse:[

        stxFolder makeDirectory.

        f writingFileDo:[:s|

            'MyWorkspace.wsp' asFilename exists ifTrue:[

                s nextPutAll:('MyWorkspace.wsp' asFilename contentsAsString)   

            ] ifFalse:[

                s nextPutLine: '"This is your personal workspace..."'.

                s nextPutLine: '"Edit and save as  ', f pathName , '"'.

                'MyWorkspaceSample.wsp' asFilename exists ifTrue:[

                    s nextPutAll:('MyWorkspaceSample.wsp' asFilename contentsAsString)   

                ]

            ]

        ]

    ].

    ^f

    "Created: / 21-06-2011 / 08:45:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 14-07-2011 / 13:08:30 / Administrator"

    "Modified: / 10-08-2011 / 21:40:31 / 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:#(

#addTerminal

'Add a tab with an embedded console-terminal'

#addTerminalWindows

'Add a tab with an embedded console-terminal (windows users: ignore the no-echo bug, please)'

#columnLabel

'The text-cursor''s column number'

#lineLabel

'The text-cursor''s line number. Double-Click to change'

#modeLabel

'The editing mode (Insert vs. Overwrite). Right-Click to change'

#editRedo

'Redo'

#doIndent

'Indent (Shift Right)'

#doUndent

'Undent (Shift Left)'

#languageSelection

'Syntax selection. Right-Click for Menu'

#menuSave

'Save the page''s contents in the original file'

#menuSaveAs

'Ask for a file and save the page''s contents there'

)

    "Modified: / 08-07-2011 / 08:29:51 / 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)

                  )

                 )

              )

            )

           )

        )

      )

!

toolBarSpec

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

     WorkspaceApplication new openInterface:#toolBarSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: toolBarSpec

        window: 

       (WindowSpec

          label: 'Toolbar'

          name: 'Toolbar'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 728 48)

        )

        component: 

       (SpecCollection

          collection: (

           (MenuPanelSpec

              name: 'ToolBarMenu'

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

              level: 0

              visibilityChannel: toolBarVisibleHolder

              menu: toolBarMenu

              textDefault: true

            )

           )

        )

      )

!

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

                  )

                 (NonScrollableArbitraryComponentSpec

                    name: 'ToolBarView'

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

                    level: 1

                    visibilityChannel: toolBarVisibleHolder

                    component: toolBarView

                  )

                 )

              )

            )

           (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 30)

        )

        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 -162 1.0 0 1.0)

                    level: -1

                    labelChannel: infoLabelHolder

                    resizeForLabel: false

                    adjust: left

                  )

                 (LabelSpec

                    name: 'LanguageLabel'

                    layout: (LayoutFrame -160 1.0 0 0.0 -60 1.0 0 1.0)

                    activeHelpKey: languageSelection

                    level: -1

                    labelChannel: languageInfoLabelHolder

                    resizeForLabel: false

                    adjust: left

                    menu: languageInfoLabelMenu

                  )

                 (LabelSpec

                    name: 'ModeLabel'

                    layout: (LayoutFrame -60 1 0 0.0 -50 1 0 1.0)

                    activeHelpKey: modeLabel

                    level: -1

                    translateLabel: true

                    labelChannel: modeLabelHolder

                    postBuildCallback: postBuildEditModeInfoLabel: