Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
WorkspaceApplication.st
branchjv
changeset 12401 4714b9640528
parent 12308 5d9291c0fc27
parent 12340 8332590c5a41
child 12406 1fbd331e4489 
--- a/WorkspaceApplication.st	Tue Jan 22 12:24:41 2013 +0000
+++ b/WorkspaceApplication.st	Wed Jan 30 11:15:09 2013 +0000
@@ -48,6 +48,7 @@
 "
 ! !
 
+
 !WorkspaceApplication class methodsFor:'defaults'!
 
 defaultEditToolbarVisible
@@ -100,6 +101,7 @@
     ^ '/workspace'
 ! !
 
+
 !WorkspaceApplication class methodsFor:'help specs'!
 
 flyByHelpSpec
@@ -144,6 +146,7 @@
     "Modified: / 08-07-2011 / 08:29:51 / cg"
 ! !
 
+
 !WorkspaceApplication class methodsFor:'interface specs'!
 
 manageSnipletsDialogSpec
@@ -422,6 +425,7 @@
 	      visibilityChannel: infoVisibleHolder
 	      majorKey: WorkspaceApplication
 	      minorKey: windowSpecForInfoBar
+              keepSpaceForOSXResizeHandleH: true
 	    )
 	   )
 
@@ -518,6 +522,7 @@
       )
 ! !
 
+
 !WorkspaceApplication class methodsFor:'menu specs'!
 
 bufferAddMenuSlice
@@ -561,7 +566,7 @@
 	    translateLabel: true
 	  )
 	 (MenuItem
-	    label: 'Stopwatch'
+            label: 'Stopwatch'
 	    itemValue: addStopWatch
 	    translateLabel: true
 	  )
@@ -724,19 +729,19 @@
 	    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
@@ -754,20 +759,25 @@
 	    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
@@ -780,11 +790,14 @@
 		  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
@@ -799,7 +812,7 @@
 		  isVisible: thisIsASmalltalkWorkspace
 		)
 	       (MenuItem
-		  enabled: hasSelectionInActiveWorkspace
+                  enabled: hasSelectionInActiveWorkspace
 		  label: 'Translate (babelFish)'
 		  translateLabel: true
 		  isVisible: thisIsASmalltalkWorkspace
@@ -886,6 +899,8 @@
 	nil
 	nil
       )
+
+    "Modified: / 20-07-2012 / 10:30:57 / cg"
 !
 
 editModeInfoLabelMenu
@@ -1648,6 +1663,7 @@
     "Modified: / 12-09-2012 / 12:18:40 / cg"
 ! !
 
+
 !WorkspaceApplication class methodsFor:'private'!
 
 createWorkspaceView
@@ -1661,6 +1677,7 @@
     "Modified (format): / 21-08-2012 / 17:18:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !WorkspaceApplication class methodsFor:'special startup'!
 
 openEvaluationWorkspace
@@ -1968,6 +1985,7 @@
     "
 ! !
 
+
 !WorkspaceApplication class methodsFor:'startup'!
 
 open
@@ -1989,6 +2007,7 @@
     "Modified (comment): / 05-07-2011 / 15:23:53 / cg"
 ! !
 
+
 !WorkspaceApplication methodsFor:'aspects'!
 
 autoDefineVariables
@@ -2169,6 +2188,7 @@
     "Modified: / 11-06-2011 / 00:06:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !WorkspaceApplication methodsFor:'aspects-queries'!
 
 anyWorkspaceVariableIsDefined
@@ -2221,6 +2241,7 @@
     ^ self selectedWorkspacesTextView notNil
 ! !
 
+
 !WorkspaceApplication methodsFor:'autofetch selection'!
 
 autoFetchSelection
@@ -2318,6 +2339,7 @@
     "Created: / 16-11-2010 / 14:44:05 / cg"
 ! !
 
+
 !WorkspaceApplication methodsFor:'defaults'!
 
 defaultEvaluatorSyntax
@@ -2369,6 +2391,7 @@
     ^ true
 ! !
 
+
 !WorkspaceApplication methodsFor:'drag & drop'!
 
 droppedFile:aFilename in:aComponent
@@ -2379,6 +2402,7 @@
 	to:aFilename asFilename baseName
 ! !
 
+
 !WorkspaceApplication methodsFor:'help'!
 
 flyByHelpSpec
@@ -2412,6 +2436,7 @@
     "Created: / 06-07-2011 / 16:32:13 / cg"
 ! !
 
+
 !WorkspaceApplication methodsFor:'initialization & release'!
 
 closeRequest
@@ -2467,6 +2492,7 @@
     "Created: / 22-01-2011 / 12:10:01 / cg"
 ! !
 
+
 !WorkspaceApplication methodsFor:'menu-actions'!
 
 askForFilterBlock:message template:template rememberIn:nameOfClassVar
@@ -3038,6 +3064,7 @@
     self selectedWorkspacesTextView timeIt
 ! !
 
+
 !WorkspaceApplication methodsFor:'menu-actions-adding'!
 
 addBookmark
@@ -3473,6 +3500,7 @@
     "Created: / 21-06-2011 / 08:56:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !WorkspaceApplication methodsFor:'menu-actions-editing'!
 
 babelFishTranslate:fromToModeString
@@ -3649,6 +3677,7 @@
     self selectedWorkspacesTextView undentBy4.
 ! !
 
+
 !WorkspaceApplication methodsFor:'menu-dynamic'!
 
 bookmarkMenu
@@ -3779,6 +3808,7 @@
     ^ self recentDoItsMenuFor:#'pasteAndExecute:'
 ! !
 
+
 !WorkspaceApplication methodsFor:'private'!
 
 askIfAnyModified:question yesButton:yesButtonText
@@ -3996,45 +4026,46 @@
     selectedWorkspaceApp  := self selectedWorkspaceApplication.
 
     (selectedWorkspace notNil and:[selectedWorkspace isScrollWrapper]) ifTrue:[
-	selectedWorkspace := selectedWorkspace scrolledView
+        selectedWorkspace := selectedWorkspace scrolledView
     ].
 
     compilerClass := selectedWorkspaceApp ? selectedWorkspace
-			    perform: #compilerClass
-			    ifNotUnderstood: [Compiler].
+                            perform: #compilerClass
+                            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 cursorColHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorColHolder ifNotUnderstood:nil ).
-	self modeLabelHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#modeLabelHolder ifNotUnderstood:nil ).
+        self cursorLineHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorLineHolder ifNotUnderstood:nil ).
+        self cursorColHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorColHolder ifNotUnderstood:nil ).
+        self modeLabelHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#modeLabelHolder ifNotUnderstood:nil ).
     ] ifFalse:[
-	self cursorLineHolder valueHolder:nil.
-	self cursorColHolder valueHolder:nil.
-	self modeLabelHolder valueHolder:nil.
+        self cursorLineHolder valueHolder:nil.
+        self cursorColHolder valueHolder:nil.
+        self modeLabelHolder valueHolder:nil.
     ].
 
     "Update toolbar"
     selectedWorkspaceApp notNil ifTrue:[
-	(selectedWorkspaceApp class respondsTo: #toolBarSpec) ifTrue:[
-	    self toolBarView
-		client: selectedWorkspaceApp spec: #toolBarSpec
-	] ifFalse:[
-	    self toolBarView
-		client: self spec: #toolBarSpec builder: builder.
-	]
+        (selectedWorkspaceApp class respondsTo: #toolBarSpec) ifTrue:[
+            self toolBarView
+                client: selectedWorkspaceApp spec: #toolBarSpec
+        ] ifFalse:[
+            self toolBarView
+                client: self spec: #toolBarSpec builder: builder.
+        ]
     ] ifFalse:[
-	self toolBarView
-	    client: self spec: #toolBarSpec builder: builder.
+        self toolBarView
+            client: self spec: #toolBarSpec builder: builder.
     ]
 
 
 ! !
 
+
 !WorkspaceApplication methodsFor:'user actions'!
 
 infoVisibilityChanged
@@ -4059,16 +4090,18 @@
     "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 §'
 ! !
+
hg/stx-libtool