Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
clipBoard stuff
authorClaus Gittinger <cg@exept.de>
Thu, 13 Feb 1997 13:47:45 +0100
changeset 1343 6399da90054b
parent 1342 d2bcd2e582aa
child 1344 f19217b30901
clipBoard stuff
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions 
--- a/DevWorkst.st	Thu Feb 13 13:46:51 1997 +0100
+++ b/DevWorkst.st	Thu Feb 13 13:47:45 1997 +0100
@@ -4602,6 +4602,34 @@
     "Modified: 11.12.1996 / 12:56:57 / cg"
 !
 
+selectionAsString
+    "return my current selection as a string"
+
+    |o s|
+
+    o := self getCopyBuffer.
+    s := o.
+    o isString ifFalse:[
+        o isNil ifTrue:[
+            s := ''
+        ] ifFalse:[
+            (o isKindOf:StringCollection) ifTrue:[
+                s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
+                s := s string.
+            ] ifFalse:[
+                o isString ifTrue:[
+                    s := o string
+                ] ifFalse:[
+                    s := o storeString
+                ]
+            ]
+        ]
+    ].
+    ^ s
+
+    "Created: 13.2.1997 / 13:10:30 / cg"
+!
+
 setCopyBuffer:something
     "set the copyBuffers contents.
      This is an ST/X internal buffer (i.e. its not visible to alien views)."
@@ -5052,6 +5080,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.174 1997-02-07 15:18:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.175 1997-02-13 12:47:45 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceWorkstation.st	Thu Feb 13 13:46:51 1997 +0100
+++ b/DeviceWorkstation.st	Thu Feb 13 13:47:45 1997 +0100
@@ -4602,6 +4602,34 @@
     "Modified: 11.12.1996 / 12:56:57 / cg"
 !
 
+selectionAsString
+    "return my current selection as a string"
+
+    |o s|
+
+    o := self getCopyBuffer.
+    s := o.
+    o isString ifFalse:[
+        o isNil ifTrue:[
+            s := ''
+        ] ifFalse:[
+            (o isKindOf:StringCollection) ifTrue:[
+                s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
+                s := s string.
+            ] ifFalse:[
+                o isString ifTrue:[
+                    s := o string
+                ] ifFalse:[
+                    s := o storeString
+                ]
+            ]
+        ]
+    ].
+    ^ s
+
+    "Created: 13.2.1997 / 13:10:30 / cg"
+!
+
 setCopyBuffer:something
     "set the copyBuffers contents.
      This is an ST/X internal buffer (i.e. its not visible to alien views)."
@@ -5052,6 +5080,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.174 1997-02-07 15:18:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.175 1997-02-13 12:47:45 cg Exp $'
 ! !
 DeviceWorkstation initialize!
hg/stx-libview