--- a/UserPreferences.st Wed Jan 17 15:17:45 2001 +0100
+++ b/UserPreferences.st Wed Jan 17 18:38:02 2001 +0100
@@ -257,17 +257,17 @@
"using new or old changeBrowser"
aBoolean ifTrue:[
- NewChangesBrowser isNil ifTrue:[
- 'UserPreferences [warning]: no NewChangesBrowser class in system' infoPrintCR.
- ^ self
- ].
- Autoload autoloadFailedSignal handle:[:ex |
- 'UserPreferences [warning]: autoload of NewChangesBrowser failed' infoPrintCR.
- ] do:[
- NewChangesBrowser autoload.
- self at:#useNewChangesBrowser put:aBoolean
- ]
+ NewChangesBrowser isNil ifTrue:[
+ 'UserPreferences [warning]: no NewChangesBrowser class in system' infoPrintCR.
+ ^ self
+ ].
+ Autoload autoloadFailedSignal handle:[:ex |
+ 'UserPreferences [warning]: autoload of NewChangesBrowser failed' infoPrintCR.
+ ] do:[
+ NewChangesBrowser autoload.
+ ]
].
+ self at:#useNewChangesBrowser put:aBoolean
"
UserPreferences current useNewChangesBrowser
@@ -292,17 +292,17 @@
"using new or old inspector"
aBoolean ifTrue:[
- NewInspector::NewInspectorView isNil ifTrue:[
- 'UserPreferences [warning]: no NewInspector class in system' infoPrintCR.
- ^ self
- ].
- Autoload autoloadFailedSignal handle:[:ex |
- 'UserPreferences [warning]: autoload of NewInspector failed' infoPrintCR.
- ] do:[
- NewInspector::NewInspectorView autoload.
- self at:#useNewInspector put:aBoolean
- ]
+ NewInspector::NewInspectorView isNil ifTrue:[
+ 'UserPreferences [warning]: no NewInspector class in system' infoPrintCR.
+ ^ self
+ ].
+ Autoload autoloadFailedSignal handle:[:ex |
+ 'UserPreferences [warning]: autoload of NewInspector failed' infoPrintCR.
+ ] do:[
+ NewInspector::NewInspectorView autoload.
+ ]
].
+ self at:#useNewInspector put:aBoolean
"
UserPreferences current useNewInspector
@@ -321,17 +321,17 @@
"using new or old systemBrowser"
aBoolean ifTrue:[
- NewSystemBrowser isNil ifTrue:[
- 'UserPreferences [warning]: no NewSystemBrowser class in system' infoPrintCR.
- ^ self.
- ].
- Autoload autoloadFailedSignal handle:[:ex |
- 'UserPreferences [warning]: autoload of NewSystemBrowser failed' infoPrintCR.
- ] do:[
- NewSystemBrowser autoload.
- self at:#useNewSystemBrowser put:aBoolean
- ]
+ NewSystemBrowser isNil ifTrue:[
+ 'UserPreferences [warning]: no NewSystemBrowser class in system' infoPrintCR.
+ ^ self.
+ ].
+ Autoload autoloadFailedSignal handle:[:ex |
+ 'UserPreferences [warning]: autoload of NewSystemBrowser failed' infoPrintCR.
+ ] do:[
+ NewSystemBrowser autoload.
+ ]
].
+ self at:#useNewSystemBrowser put:aBoolean
"
UserPreferences current useNewSystemBrowser:true
@@ -352,17 +352,17 @@
"using new or old useNewVersionDiffBrowser"
aBoolean ifTrue:[
- VersionDiffBrowser isNil ifTrue:[
- 'UserPreferences [warning]: no VersionDiffBrowser class in system' infoPrintCR.
- ^ self
- ].
- Autoload autoloadFailedSignal handle:[:ex |
- 'UserPreferences [warning]: autoload of VersionDiffBrowser failed' infoPrintCR.
- ] do:[
- VersionDiffBrowser autoload.
- self at:#useNewVersionDiffBrowser put:aBoolean
- ]
+ VersionDiffBrowser isNil ifTrue:[
+ 'UserPreferences [warning]: no VersionDiffBrowser class in system' infoPrintCR.
+ ^ self
+ ].
+ Autoload autoloadFailedSignal handle:[:ex |
+ 'UserPreferences [warning]: autoload of VersionDiffBrowser failed' infoPrintCR.
+ ] do:[
+ VersionDiffBrowser autoload.
+ ]
].
+ self at:#useNewVersionDiffBrowser put:aBoolean
"
UserPreferences current useNewVersionDiffBrowser
@@ -1158,5 +1158,5 @@
!UserPreferences class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.60 2000-11-16 11:11:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.61 2001-01-17 17:38:02 cg Exp $'
! !