--- 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