"

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

	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)   

                ]

            ].

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

              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'

	  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'