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.
added protocol to set/retrieve the per-display copyBuffer
authorClaus Gittinger <cg@exept.de>
Wed, 11 Dec 1996 12:57:53 +0100
changeset 1130 d75bad6174be
parent 1129 2a3eaf218500
child 1131 a56eddec63ab
added protocol to set/retrieve the per-display copyBuffer
DevWorkst.st file | annotate | diff | comparison | revisions
DeviceWorkstation.st file | annotate | diff | comparison | revisions 
--- a/DevWorkst.st	Wed Dec 11 12:47:46 1996 +0100
+++ b/DevWorkst.st	Wed Dec 11 12:57:53 1996 +0100
@@ -4358,18 +4358,64 @@
 
 !DeviceWorkstation methodsFor:'selections'!
 
+getCopyBuffer:something
+    "return the copyBuffers contents. 
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    ^ copyBuffer
+
+    "Created: 11.12.1996 / 12:54:49 / cg"
+    "Modified: 11.12.1996 / 12:55:42 / cg"
+!
+
+getLastCopyBuffer:something
+    "return the last copyBuffers contents.
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    ^ lastCopyBuffer
+
+    "Created: 11.12.1996 / 12:54:40 / cg"
+    "Modified: 11.12.1996 / 12:55:47 / cg"
+!
+
 getTextSelectionFor:aDrawableId
-    "for clibBoard mechanisms to work (into st/x), this must be redefined
-     in a concrete subclass"
+    "Retrieve the common per-display selection text.
+     For clibBoard mechanisms to work (into ST/X), 
+     this must be redefined in a concrete subclass"
 
     ^ nil
+
+    "Modified: 11.12.1996 / 12:56:57 / cg"
+!
+
+setCopyBuffer:something
+    "set the copyBuffers contents.
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    copyBuffer := something.
+
+    "Created: 11.12.1996 / 12:54:23 / cg"
+    "Modified: 11.12.1996 / 12:55:53 / cg"
+!
+
+setLastCopyBuffer:something
+    "set the last copyBuffers contents.
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    lastCopyBuffer := something.
+
+    "Created: 11.12.1996 / 12:54:32 / cg"
+    "Modified: 11.12.1996 / 12:55:59 / cg"
 !
 
 setTextSelection:aString owner:aWindowId
-    "for clibBoard mechanisms to work (out of st/x), this must be redefined
-     in a concrete subclass"
+    "Set the common per-display selection text.
+     For clibBoard mechanisms to work (out of ST/X), 
+     this must be redefined in a concrete subclass"
 
     ^ nil
+
+    "Modified: 11.12.1996 / 12:56:36 / cg"
 ! !
 
 !DeviceWorkstation methodsFor:'view registration'!
@@ -4769,6 +4815,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.143 1996-12-11 10:53:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.144 1996-12-11 11:57:53 cg Exp $'
 ! !
 DeviceWorkstation initialize!
--- a/DeviceWorkstation.st	Wed Dec 11 12:47:46 1996 +0100
+++ b/DeviceWorkstation.st	Wed Dec 11 12:57:53 1996 +0100
@@ -4358,18 +4358,64 @@
 
 !DeviceWorkstation methodsFor:'selections'!
 
+getCopyBuffer:something
+    "return the copyBuffers contents. 
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    ^ copyBuffer
+
+    "Created: 11.12.1996 / 12:54:49 / cg"
+    "Modified: 11.12.1996 / 12:55:42 / cg"
+!
+
+getLastCopyBuffer:something
+    "return the last copyBuffers contents.
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    ^ lastCopyBuffer
+
+    "Created: 11.12.1996 / 12:54:40 / cg"
+    "Modified: 11.12.1996 / 12:55:47 / cg"
+!
+
 getTextSelectionFor:aDrawableId
-    "for clibBoard mechanisms to work (into st/x), this must be redefined
-     in a concrete subclass"
+    "Retrieve the common per-display selection text.
+     For clibBoard mechanisms to work (into ST/X), 
+     this must be redefined in a concrete subclass"
 
     ^ nil
+
+    "Modified: 11.12.1996 / 12:56:57 / cg"
+!
+
+setCopyBuffer:something
+    "set the copyBuffers contents.
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    copyBuffer := something.
+
+    "Created: 11.12.1996 / 12:54:23 / cg"
+    "Modified: 11.12.1996 / 12:55:53 / cg"
+!
+
+setLastCopyBuffer:something
+    "set the last copyBuffers contents.
+     This is an ST/X internal buffer (i.e. its not visible to alien views)."
+
+    lastCopyBuffer := something.
+
+    "Created: 11.12.1996 / 12:54:32 / cg"
+    "Modified: 11.12.1996 / 12:55:59 / cg"
 !
 
 setTextSelection:aString owner:aWindowId
-    "for clibBoard mechanisms to work (out of st/x), this must be redefined
-     in a concrete subclass"
+    "Set the common per-display selection text.
+     For clibBoard mechanisms to work (out of ST/X), 
+     this must be redefined in a concrete subclass"
 
     ^ nil
+
+    "Modified: 11.12.1996 / 12:56:36 / cg"
 ! !
 
 !DeviceWorkstation methodsFor:'view registration'!
@@ -4769,6 +4815,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.143 1996-12-11 10:53:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.144 1996-12-11 11:57:53 cg Exp $'
 ! !
 DeviceWorkstation initialize!
hg/stx-libview