class: Workspace
authorClaus Gittinger <cg@exept.de>
Tue, 30 Apr 2013 20:22:53 +0200
changeset 4588 25291d216f5a
parent 4587 aa0010521297
child 4589 f6da08d703f5
class: Workspace code move
Workspace.st
--- a/Workspace.st	Tue Apr 30 20:21:30 2013 +0200
+++ b/Workspace.st	Tue Apr 30 20:22:53 2013 +0200
@@ -589,10 +589,6 @@
     "Modified (format): / 04-03-2012 / 13:35:00 / cg"
 !
 
-selectionOrTextOfCursorLine
-    ^ self selectionOrTextOfCursorLine:true
-!
-
 simulatedSelf:anObject
     "define what self is in an evaluation"
 
@@ -2027,10 +2023,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.261 2013-04-30 18:21:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.262 2013-04-30 18:22:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.261 2013-04-30 18:21:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.262 2013-04-30 18:22:53 cg Exp $'
 ! !