UserPreference access
authorClaus Gittinger <cg@exept.de>
Mon, 10 Sep 2001 16:16:42 +0200
changeset 1488 cb1867473e3e
parent 1487 846527ddac8b
child 1489 e1ca3c840420
UserPreference access
DataSetBuilder.st
ImageEditor.st
--- a/DataSetBuilder.st	Mon Sep 10 16:13:41 2001 +0200
+++ b/DataSetBuilder.st	Mon Sep 10 16:16:42 2001 +0200
@@ -2869,7 +2869,7 @@
     |cls|
 
     (cls := self resolveRowClass) notNil 
-        ifTrue: [UserPreferences current systemBrowserClass openInClass:cls] 
+        ifTrue: [UserPreferences systemBrowserClass openInClass:cls] 
         ifFalse:[self information:'No class defined !!']
 
     "Modified: / 20.5.1998 / 03:48:04 / cg"
--- a/ImageEditor.st	Mon Sep 10 16:13:41 2001 +0200
+++ b/ImageEditor.st	Mon Sep 10 16:16:42 2001 +0200
@@ -2912,7 +2912,7 @@
 
     cls := Smalltalk at:(imageEditView resourceClass) ifAbsent:nil.
     cls isNil ifTrue:[^ self warn:'No Class specified'].
-    UserPreferences current systemBrowserClass
+    UserPreferences systemBrowserClass
         openInClass:cls class 
         selector:(imageEditView resourceSelector)