--- a/TextView.st	Wed Jul 14 18:30:10 1999 +0200
+++ b/TextView.st	Fri Jul 16 18:49:54 1999 +0200
@@ -1076,10 +1076,8 @@
         (('[fF][0-9]' match:key)
         or:['[fF][0-9][0-9]' match:key]) ifTrue:[
             self sensor shiftDown ifTrue:[
-                (Smalltalk at:#FunctionKeySequences) isNil ifTrue:[
-                    Smalltalk at:#FunctionKeySequences put:Dictionary new
-                ].
-                (Smalltalk at:#FunctionKeySequences) at:key put:(self selection)
+                UserPreferences current functionKeySequences
+                    at:key put:(self selection)
             ].
             ^ self
         ].
@@ -2955,5 +2953,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.138 1999-06-23 12:32:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.139 1999-07-16 16:49:54 cg Exp $'
 ! !