Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
browserClass from preferences
authorClaus Gittinger <cg@exept.de>
Tue, 15 Aug 2000 16:15:49 +0200
changeset 1392 f6f7a70c5d41
parent 1391 be99f3e9260e
child 1393 c4a11a7d407f
browserClass from preferences
DataSetBuilder.st file | annotate | diff | comparison | revisions
ImageEditor.st file | annotate | diff | comparison | revisions
UIPainter.st file | annotate | diff | comparison | revisions 
--- a/DataSetBuilder.st	Thu Aug 10 15:52:04 2000 +0200
+++ b/DataSetBuilder.st	Tue Aug 15 16:15:49 2000 +0200
@@ -2885,7 +2885,7 @@
     |cls|
 
     (cls := self resolveRowClass) notNil 
-        ifTrue: [SystemBrowser openInClass:cls] 
+        ifTrue: [UserPreferences current systemBrowserClass openInClass:cls] 
         ifFalse:[self information:'No class defined !!']
 
     "Modified: / 20.5.1998 / 03:48:04 / cg"
--- a/ImageEditor.st	Thu Aug 10 15:52:04 2000 +0200
+++ b/ImageEditor.st	Tue Aug 15 16:15:49 2000 +0200
@@ -2555,7 +2555,7 @@
 
     cls := Smalltalk at:(imageEditView resourceClass) ifAbsent:nil.
     cls isNil ifTrue:[^ self warn:'No Class specified'].
-    SystemBrowser 
+    UserPreferences current systemBrowserClass
         openInClass:cls class 
         selector:(imageEditView resourceSelector)
 
--- a/UIPainter.st	Thu Aug 10 15:52:04 2000 +0200
+++ b/UIPainter.st	Tue Aug 15 16:15:49 2000 +0200
@@ -3182,26 +3182,24 @@
     |methods|
 
     self painter isModified ifTrue:[
-	self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs.
+        self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs.
     ].
 
     (methods := self painter aspectMethods) isEmpty ifTrue:[
-	self warn:'No aspect methods found!!'.
-	^ self.
+        self warn:'No aspect methods found!!'.
+        ^ self.
     ].
-    SystemBrowser browseMethods:methods title:'Aspect methods'.
-
+    UserPreferences current systemBrowserClass browseMethods:methods title:'Aspect methods'.
 !
 
 doBrowseClass
     "opens a System Browser on the specClass"
 
     self painter isModified ifTrue:[
-	self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs.
+        self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs.
     ].
 
-    SystemBrowser openInClass:(self resolveName:specClass)
-    
+    UserPreferences current systemBrowserClass openInClass:(self resolveName:specClass)
 !
 
 doDefineClassAndSelector
hg/stx-libtool2