--- a/DoWhatIMeanSupport.st	Fri May 23 11:30:18 2003 +0200
+++ b/DoWhatIMeanSupport.st	Fri May 23 11:31:05 2003 +0200
@@ -182,11 +182,13 @@
 
 isKey:k1 nextTo:k2
     "return true, if k1 and k2 are adjacent keys on the keybaord.
-     CAVEAT: hard coded us-keyboard here"
+     CAVEAT: hard coded us-keyboard here."
 
     |keys|
 
     "/ for now: hardcoded US keyboard (should be language dependent)
+    "/ (i.e. ask userPreferences ...)
+
     keys := #( 'qwertyuiop'
                'asdfghjkl'
                'zxcvbnm' ).
@@ -223,5 +225,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.7 2003-05-23 09:30:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.8 2003-05-23 09:31:05 cg Exp $'
 ! !