care for non-existing classes
authorClaus Gittinger <cg@exept.de>
Mon, 23 Sep 2002 21:49:08 +0200
changeset 6767 323056b2a065
parent 6766 a43b97582d4b
child 6768 4ccf91dfeba2
care for non-existing classes
UserPreferences.st
--- a/UserPreferences.st	Mon Sep 23 14:38:01 2002 +0200
+++ b/UserPreferences.st	Mon Sep 23 21:49:08 2002 +0200
@@ -288,7 +288,7 @@
 
 changesBrowserClass
     self useNewChangesBrowser ifTrue:[
-	^ NewChangesBrowser
+        ^ (NewChangesBrowser ? ChangesBrowser)
     ].
     ^ ChangesBrowser
 
@@ -297,14 +297,14 @@
 
 fileBrowserClass
     self useNewFileBrowser ifTrue:[
-        ^ FileBrowserV2
+        ^ (FileBrowserV2 ? FileBrowser)
     ].
     ^ FileBrowser
 !
 
 inspectorClassSetting
     self useNewInspector ifTrue:[
-        ^ NewInspector::NewInspectorView
+        ^ (NewInspector::NewInspectorView ? InspectorView)
     ].
     ^ InspectorView
 
@@ -314,7 +314,7 @@
 
 systemBrowserClass
     self useNewSystemBrowser ifTrue:[
-	^ NewSystemBrowser
+        ^ (NewSystemBrowser ? SystemBrowser)
     ].
     ^ SystemBrowser
 !
@@ -1337,5 +1337,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.78 2002-09-23 12:31:18 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.79 2002-09-23 19:49:08 cg Exp $'
 ! !