"

 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 namespaceHolder

		canChangeLanguageHolder'

	classVariableNames:'LastFilterBlockString LastProcessingBlockString

		LastGeneratorBlockString LastTeaWaitTime DefaultToolBarVisible

		ClipBoardFetchingInstance LastLanguage MyWorkspaceOpened

		LastNamespace'

	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)   

                ]

            ].

            s syncData.

        ].

    ].

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

#editCopy

'Copy the selected text to the clipboard'

#editCut

'Cut the selected text to the clipboard'

#editDelete

'Delete the selected text'

#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 for doits and syntax coloring. Right-Click for menu to change'

#namespaceSelection

'Namespace for doits. Right-Click for menu to change'

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

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

    "

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        window: 

       (WindowSpec

          label: 'Manage Snippets'

          name: 'Manage Snippets'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 379 590)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Snippet:'

              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'

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    useIndex: true

                  )

                 (TextEditorSpec

                    name: 'TextEditor1'

                    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

                    enableChannel: saveEnabled

                    extent: (Point 125 22)

                  )

                 (ActionButtonSpec

                    label: 'Remove'

                    name: 'Button2'

                    translateLabel: true

                    enableChannel: removeEnabled

                    extent: (Point 125 22)

                  )

                 (ActionButtonSpec

                    label: 'Paste'

                    name: 'Button3'

                    translateLabel: true

                    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

              keepSpaceForOSXResizeHandleH: true

            )

           )

        )

      )

!

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'

         bounds: (Rectangle 0 0 473 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 -220 1.0 0 1.0)

                   level: -1

                   labelChannel: infoLabelHolder

                   resizeForLabel: false

                   adjust: left

                 )

                (LabelSpec

                   name: 'namespaceInfoLabelHolder'

                   layout: (LayoutFrame -220 1.0 0 0.0 -136 1.0 0 1.0)