"{ Encoding: utf8 }"

"

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

"{ NameSpace: Smalltalk }"

MultiViewToolApplication subclass:#WorkspaceApplication

	instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts

		smalltalkMenuEnabledHolder clipBoardWatcherProcess

		fetchClipboardLines cursorLineHolder cursorColHolder

		modeLabelHolder toolBarView namespaceHolder

		canChangeLanguageHolder cursorLineAndColumnInfoHolder

		cursorLineAndColumnLabelHolder'

	classVariableNames:'LastFilterBlockString LastProcessingBlockString

		LastGeneratorBlockString LastTeaWaitTime DefaultToolBarVisible

		ClipBoardFetchingInstance LastLanguage MyWorkspaceOpened

		LastNamespace LastSnippetFilename'

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

default

    "a place where the default workspaceApplication could be hooked in;

     see SystemBrowser default and FileBrowser default on the intention..."

    ^ self

!

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

#lineAndColumnLabel

'The text-cursor''s line and column number'

#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, syntax checks and 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'

#snippedPaste

'Paste the selected snippet''s text into the text'

#snippedDefine

'Add the above definition to the list of snippets'

#snippedRemove

'Remove the above selected snippet from the list of snippets'

#snippedKey

'The key of the snippet. This is the abbreviation you will have to type before pressing Shift-Space'

#snippedList

'The list of defined snippets.'

#snippedText

'The text of the snippet. This is the text that will be inserted when pressing Shift-Space'

)

    "Modified: / 08-07-2011 / 08:29:51 / cg"

! !

!WorkspaceApplication class methodsFor:'interface specs'!

manageSnippetsDialogSpec

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

     WorkspaceApplication new openInterface:#manageSnippetsDialogSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: manageSnippetsDialogSpec

       window: 

      (WindowSpec

         label: 'Manage Snippets'

         name: 'Manage Snippets'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 379 590)

         menu: manageSnippetDialogMenuSpec

       )

       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'

                   activeHelpKey: snippedList

                   model: selectedSnippet

                   hasHorizontalScrollBar: true

                   hasVerticalScrollBar: true

                   useIndex: true

                   sequenceList: listOfSnippets

                 )

                (ViewSpec

                   name: 'Box1'

                   component: 

                  (SpecCollection

                     collection: (

                      (TextEditorSpec

                         name: 'TextEditor1'

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

                         activeHelpKey: snippedText

                         model: selectedSnippetsText

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         acceptChannel: snippetTextAcceptHolder

                         modifiedChannel: snippetTextModified

                         hasKeyboardFocusInitially: false

                         viewClassName: ''

                       )

                      (LabelSpec

                         label: 'Snippet Key:'

                         name: 'Label2'

                         layout: (LayoutFrame 0 0 2 0 100 0 28 0)

                         translateLabel: true

                         adjust: left

                       )

                      (InputFieldSpec

                         name: 'EntryField1'

                         layout: (LayoutFrame 100 0.0 2 0 0 1.0 28 0)

                         activeHelpKey: snippedKey

                         model: selectedSnippetsKeyHolder

                         immediateAccept: true

                         acceptOnReturn: true

                         acceptOnTab: true

                         acceptOnPointerLeave: true

                       )

                      )

                   )

                 )

                )

             )

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

                   name: 'DefineButton'

                   activeHelpKey: snippedDefine

                   translateLabel: true

                   model: defineSelectedSnippet

                   enableChannel: defineEnabled

                   extent: (Point 125 22)

                 )

                (ActionButtonSpec

                   label: 'Remove'

                   name: 'RemoveButton'

                   activeHelpKey: snippedRemove

                   translateLabel: true

                   model: removeSelectedSnippet

                   enableChannel: removeEnabled

                   extent: (Point 125 22)

                 )

                (ActionButtonSpec

                   label: 'Paste'

                   name: 'PasteButton'

                   activeHelpKey: snippedPaste

                   translateLabel: true

                   model: pasteSelectedSnippet

                   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)

             level: #'application.toolbarLevel'

             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)

                   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