"

 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"

!

filterTemplate

    ^

'"/ general text filter;

"/ the following block should evaluate to true for all lines

"/ you want to KEEP.

"/ Lines for which the block returns false, will be removed.

"/ Beginner warning: Smalltalk know-how is useful here.

[:line :lineNr :previousLine :nextLine|

     "/ any condition on line.

     "/ Notice, that line might be a Text object (i.e. non-string),

     "/ so you may want to use ''line string''.

     "/ 

     "/ Useful queries on the line are:

     "/     - size                   the length of the line

     "/     - hasChangeOfEmphasis    any bold, italic etc.

     "/     - startsWith:someString

     "/     - endsWith:someString

     "/     - includesString:someString

     "/     - pattern match: 

     "/ example filters

     "/

     "/ -------- removes all empty lines ---------------

     "/

     "/ line size > 0

     "/ -------- removes all lines which do not end with some suffix ----------

     "/

     "/ (line asLowercase endsWith:''foo'') not

     "/ -------- removes duplicates ----------

     "/

     "/ (line = nextLine) not

     "/ -------- keep lines which start with some suffix ----------

     "/

     "/ (line asLowercase startsWith:''foo'') 

     "/ -------- keep lines which include some substring ----------

     "/

     "/ (line asLowercase includesString:''foo'') 

     "/ dummy filter (keeps all lines)

     "/

     true

]

'.

!

generatorTemplate

    ^

'"/ general text generator;

"/ the following block is called with a write stream argument

"/ and the generated text is inserted at the current cursor position

"/ or replaces the current selection.

"/ Beginner warning: Smalltalk know-how is useful here.

[:outputStream :selectedText |

     "/ example generators

     "/ -------- generates N empty lines ---------------

     "/

"/     |n|

"/     n := Dialog requestNumber:''how many empty lines:''.

"/     n timesRepeat:[ outputStream nextPutLine:'''' ].

     "/ -------- generates a table of binary numbers

     "/

"/     |n|

"/     n := Dialog requestNumber:''how many numbers:''.

"/     1 to:n do:[:i | outputStream nextPutLine:(i raisedTo:i) printString ].

]

'

!

textProcessorTemplate

    ^

'"/ general text processor;

"/ the following block should evaluate to a new line, 

"/ given the original line as argument.

"/ Beginner warning: Smalltalk know-how is useful here.

[:line |

     "/ any processing on line.

     "/ Notice, that line might be a Text object (i.e. non-string),

     "/ 

     "/ Useful operations on the line are:

     "/     - '' .... '' ,                      concatenation of any prefix/suffix

     "/     - leftPaddedTo:size                 padding

     "/     - rightPaddedTo:size                padding

     "/     - copyTo:(size min:N)               

     "/     - asUppercase 

     "/     - asLowercase

     "/     - withoutSeparators                 remove whiteSpace

     "/     - asCollectionOfWords               words

     "/ makes everything bold

     "/

     "/ line allBold

     "/ first word only

     "/

     "/ line withoutSeparators asCollectionOfWords first

     "/ dummy filter (keeps all lines as-is)

     "/

     line

]

'

!

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