hg/stx-libtool: comparison WorkspaceApplication.st

equal deleted inserted replaced

-:235b77901045
+:4714b9640528
 [author:]
 	Claus Gittinger
 "
 ! !
 !WorkspaceApplication class methodsFor:'defaults'!
 defaultEditToolbarVisible
 ^ UserPreferences current editToolbarVisibleInWorkspace
 webServiceLinkName
 ^ '/workspace'
 ! !
 !WorkspaceApplication class methodsFor:'help specs'!
 flyByHelpSpec
 <resource: #help>
 '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
 	      name: 'infoBarSubSpec'
 	      layout: (LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
 	      visibilityChannel: infoVisibleHolder
 	      majorKey: WorkspaceApplication
 	      minorKey: windowSpecForInfoBar
+keepSpaceForOSXResizeHandleH: true
 	    )
 	   )
 	)
 )
 	)
 )
 ! !
 !WorkspaceApplication class methodsFor:'menu specs'!
 bufferAddMenuSlice
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 	    label: 'Tea Timer'
 	    itemValue: addTeaTimer
 	    translateLabel: true
 	  )
 	 (MenuItem
-	    label: 'Stopwatch'
+label: 'Stopwatch'
 	    itemValue: addStopWatch
 	    translateLabel: true
 	  )
 	 )
 	nil
 	  )
 	 (MenuItem
 	    label: '-'
 	  )
 	 (MenuItem
-	    enabled: hasSelectionInActiveWorkspace
+enabled: hasSelectionInActiveWorkspace
 	    label: 'Copy as Sniplet...'
 	    itemValue: addSelectionToSniplets
 	    translateLabel: true
 	  )
 	 (MenuItem
-	    enabled: selectedWorkspaceIsTextView
+enabled: selectedWorkspaceIsTextView
 	    label: 'Paste Sniplet...'
 	    itemValue: pasteSniplet
 	    translateLabel: true
 	  )
 	 (MenuItem
-	    enabled: selectedWorkspaceIsTextView
+enabled: selectedWorkspaceIsTextView
 	    label: 'Manage Sniplets...'
 	    itemValue: manageSniplets
 	    translateLabel: true
 	  )
 	 (MenuItem
 	 (MenuItem
 	    label: '-'
 	    isVisible: thisIsASmalltalkWorkspace
 	  )
 	 (MenuItem
-	    enabled: selectedWorkspaceIsTextView
+enabled: selectedWorkspaceIsTextView
 	    label: 'Filter Text...'
 	    itemValue: filterText
 	    translateLabel: true
 	    isVisible: thisIsASmalltalkWorkspace
 	  )
 	 (MenuItem
-	    enabled: selectedWorkspaceIsTextView
+enabled: selectedWorkspaceIsTextView
 	    label: 'Process Text...'
 	    itemValue: processText
 	    translateLabel: true
 	    isVisible: thisIsASmalltalkWorkspace
 	  )
 	 (MenuItem
+label: 'Compare Text Against...'
+itemValue: compareTextAgainst
+translateLabel: true
+)
+(MenuItem
 	    label: '-'
 	  )
 	 (MenuItem
 	    label: 'Services'
 	    translateLabel: true
 	      (
 	       (MenuItem
 		  label: 'Autofetch Selection'
 		  itemValue: autoFetchSelection:
 		  translateLabel: true
+hideMenuOnActivated: false
 		  indication: autoFetchSelection
 		)
 	       (MenuItem
-		  label: 'Autofetch Selection (Lines)'
+enabled: autoFetchSelection
+label: 'Insert as Line (Append CR)'
 		  translateLabel: true
+hideMenuOnActivated: false
 		  indication: autoFetchSelectionLines
 		)
 	       (MenuItem
 		  label: '-'
 		  isVisible: thisIsASmalltalkWorkspace
 		  itemValue: googleSpellingSuggestion
 		  translateLabel: true
 		  isVisible: thisIsASmalltalkWorkspace
 		)
 	       (MenuItem
-		  enabled: hasSelectionInActiveWorkspace
+enabled: hasSelectionInActiveWorkspace
 		  label: 'Translate (babelFish)'
 		  translateLabel: true
 		  isVisible: thisIsASmalltalkWorkspace
 		  submenu:
 		 (Menu
 	  )
 	 )
 	nil
 	nil
 )
+"Modified: / 20-07-2012 / 10:30:57 / cg"
 !
 editModeInfoLabelMenu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 )
 "Modified: / 12-09-2012 / 12:18:40 / cg"
 ! !
 !WorkspaceApplication class methodsFor:'private'!
 createWorkspaceView
 ^(UserPreferences current useCodeView2In:#Workspace) ifTrue:[
 	Tools::CodeView2 new
 ]
 "Modified: / 26-07-2011 / 10:28:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (format): / 21-08-2012 / 17:18:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !WorkspaceApplication class methodsFor:'special startup'!
 openEvaluationWorkspace
 |wsApp needRemove|
 "
 self openWithWorkspaceVariableInspector
 "
 ! !
 !WorkspaceApplication class methodsFor:'startup'!
 open
 "/ the very first open opens a MyWorkspace
 "
 "Created: / 21-06-2011 / 09:03:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (comment): / 05-07-2011 / 15:23:53 / cg"
 ! !
 !WorkspaceApplication methodsFor:'aspects'!
 autoDefineVariables
 autoDefineVariables isNil ifTrue:[
 "Created: / 10-06-2011 / 22:52:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 11-06-2011 / 00:06:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !WorkspaceApplication methodsFor:'aspects-queries'!
 anyWorkspaceVariableIsDefined
 ^ Workspace anyWorkspaceVariableIsDefined
 !
 selectedWorkspaceIsTextView
 ^ self selectedWorkspacesTextView notNil
 ! !
 !WorkspaceApplication methodsFor:'autofetch selection'!
 autoFetchSelection
 ^ clipBoardWatcherProcess notNil
 self itemFromClipboard.
 "Created: / 16-11-2010 / 14:44:05 / cg"
 ! !
 !WorkspaceApplication methodsFor:'defaults'!
 defaultEvaluatorSyntax
 LastLanguage notNil ifTrue:[^ LastLanguage].
 ^ SmalltalkLanguage instance.
 (expecco uses workspaces as scratchpads)"
 ^ true
 ! !
 !WorkspaceApplication methodsFor:'drag & drop'!
 droppedFile:aFilename in:aComponent
 "this is a notification from my textView component"
 self
 	renameWorkspace:(self selectedWorkspaceIndexHolder value)
 	to:aFilename asFilename baseName
 ! !
 !WorkspaceApplication methodsFor:'help'!
 flyByHelpSpec
 "/ dynamically adjust the menuSave item's flyByhelpText
 ^ self updateHelpSpec:(super flyByHelpSpec)
 ].
 ^ aSpec
 "Created: / 06-07-2011 / 16:32:13 / cg"
 ! !
 !WorkspaceApplication methodsFor:'initialization & release'!
 closeRequest
 "asks for permission before closing"
 ].
 ^ false
 "Created: / 22-01-2011 / 12:10:01 / cg"
 ! !
 !WorkspaceApplication methodsFor:'menu-actions'!
 askForFilterBlock:message template:template rememberIn:nameOfClassVar
 |filterBlockString filterBlock dialog textHolder classVarValue|
 !
 timeIt
 self selectedWorkspacesTextView timeIt
 ! !
 !WorkspaceApplication methodsFor:'menu-actions-adding'!
 addBookmark
 ]
 "Created: / 21-06-2011 / 08:56:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !WorkspaceApplication methodsFor:'menu-actions-editing'!
 babelFishTranslate:fromToModeString
 "translate the selected text and paste it after the selection"
 !
 undent
 self selectedWorkspacesTextView undentBy4.
 ! !
 !WorkspaceApplication methodsFor:'menu-dynamic'!
 bookmarkMenu
 | menu item |
 <resource: #programMenu >
 ^ self recentDoItsMenuFor:#'pasteAndExecute:'
 ! !
 !WorkspaceApplication methodsFor:'private'!
 askIfAnyModified:question yesButton:yesButtonText
 (workspaces contains:[:aView | self isModifiedWorkspace:aView]) ifFalse:[^ true].
 selectedWorkspace := self selectedWorkspace.
 selectedWorkspaceApp  := self selectedWorkspaceApplication.
 (selectedWorkspace notNil and:[selectedWorkspace isScrollWrapper]) ifTrue:[
-	selectedWorkspace := selectedWorkspace scrolledView
+selectedWorkspace := selectedWorkspace scrolledView
 ].
 compilerClass := selectedWorkspaceApp ? selectedWorkspace
-			    perform: #compilerClass
+perform: #compilerClass
-			    ifNotUnderstood: [Compiler].
+ifNotUnderstood: [Compiler].
 self canChangeLanguageHolder value:
-	(selectedWorkspaceApp ? selectedWorkspace respondsTo: #compilerClass:).
+(selectedWorkspaceApp ? selectedWorkspace respondsTo: #compilerClass:).
 self syntaxHolder value:(self syntaxFromEvaluatorClass:compilerClass).
 (selectedWorkspace notNil and:[ selectedWorkspace scrolledView isTextView or:[selectedWorkspaceApp notNil] ]) ifTrue:[
-	self cursorLineHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorLineHolder ifNotUnderstood:nil ).
+self cursorLineHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorLineHolder ifNotUnderstood:nil ).
-	self cursorColHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorColHolder ifNotUnderstood:nil ).
+self cursorColHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorColHolder ifNotUnderstood:nil ).
-	self modeLabelHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#modeLabelHolder ifNotUnderstood:nil ).
+self modeLabelHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#modeLabelHolder ifNotUnderstood:nil ).
 ] ifFalse:[
-	self cursorLineHolder valueHolder:nil.
+self cursorLineHolder valueHolder:nil.
-	self cursorColHolder valueHolder:nil.
+self cursorColHolder valueHolder:nil.
-	self modeLabelHolder valueHolder:nil.
+self modeLabelHolder valueHolder:nil.
 ].
 "Update toolbar"
 selectedWorkspaceApp notNil ifTrue:[
-	(selectedWorkspaceApp class respondsTo: #toolBarSpec) ifTrue:[
+(selectedWorkspaceApp class respondsTo: #toolBarSpec) ifTrue:[
-	    self toolBarView
+self toolBarView
-		client: selectedWorkspaceApp spec: #toolBarSpec
+client: selectedWorkspaceApp spec: #toolBarSpec
-	] ifFalse:[
+] ifFalse:[
-	    self toolBarView
+self toolBarView
-		client: self spec: #toolBarSpec builder: builder.
+client: self spec: #toolBarSpec builder: builder.
-	]
+]
 ] ifFalse:[
-	self toolBarView
+self toolBarView
-	    client: self spec: #toolBarSpec builder: builder.
+client: self spec: #toolBarSpec builder: builder.
 ]
 ! !
 !WorkspaceApplication methodsFor:'user actions'!
 infoVisibilityChanged
 super infoVisibilityChanged.
 UserPreferences current editToolbarVisibleInWorkspace:(self editToolBarVisibleHolder value).
 "Created: / 14-07-2007 / 16:45:31 / cg"
 ! !
 !WorkspaceApplication class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.235 2012/11/05 10:42:39 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.236 2013-01-27 01:50:59 cg Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.235 2012/11/05 10:42:39 cg Exp �'
+^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.236 2013-01-27 01:50:59 cg Exp $'
 !
 version_SVN
-^ '$Id: WorkspaceApplication.st 8074 2012-11-30 17:23:39Z vranyj1 $'
+^ '�Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 �'
 ! !

branch	jv
changeset 12401	4714b9640528
parent 12308	5d9291c0fc27
parent 12340	8332590c5a41
child 12406	1fbd331e4489