LookupKey.st
changeset 21538 5b99fa1b2343
parent 19463 17bd88c1ce4c
--- a/LookupKey.st	Wed Feb 22 19:01:10 2017 +0100
+++ b/LookupKey.st	Wed Feb 22 19:01:54 2017 +0100
@@ -114,7 +114,7 @@
      (although the fallBack is to display its printString ...)"
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
-    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    "/ old ST80 means: draw-yourself on a GC.
     (aGCOrStream isStream) ifFalse:[
         ^ super displayOn:aGCOrStream
     ].
@@ -124,6 +124,8 @@
         nextPut:$(.
     key displayOn:aGCOrStream.
     aGCOrStream nextPut:$)
+
+    "Modified (comment): / 22-02-2017 / 16:49:37 / cg"
 !
 
 printOn:aStream
@@ -133,6 +135,7 @@
     key printOn:aStream.
 ! !
 
+
 !LookupKey class methodsFor:'documentation'!
 
 version