# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1441273619 -7200
# Node ID 36652445494b9c0e91b28a59b4ee26303836bcae
# Parent  ba4d543aff02ec81fca3f208b115e95950889c96
class: SystemBrowser
added: #default
comment/format in:
	#open
	#openInClass:
	#openOn:

diff -r ba4d543aff02 -r 36652445494b SystemBrowser.st
--- a/SystemBrowser.st	Wed Sep 02 12:48:38 2015 +0200
+++ b/SystemBrowser.st	Thu Sep 03 11:46:59 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -99,6 +101,7 @@
     ^ self openOnDevice:(Screen current) 
 
     "
+     SystemBrowser default open
      SystemBrowser open
     "
 !
@@ -110,6 +113,7 @@
     ^ self openInClass:aClass selector:nil
 
     "
+     SystemBrowser default openInClass:Object
      SystemBrowser openInClass:Object
     "
 
@@ -162,6 +166,9 @@
         label:(self classResources string:'System Browser')
 
     "
+     SystemBrowser default openOn:Smalltalk
+     SystemBrowser default openOn:Demos
+
      SystemBrowser openOn:Smalltalk
      SystemBrowser openOn:Demos
     "
@@ -367,6 +374,17 @@
     "Modified: / 10.2.2000 / 14:07:07 / cg"
 !
 
+default
+    "convenient getter for the user's preference.
+     Returns his choice of browser class"
+
+    ^ UserPreferences current systemBrowserClass
+
+    "   
+     SystemBrowser default open
+    "
+!
+
 methodTemplate
     "return a method definition template string or nil"
 
@@ -7011,15 +7029,15 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.358 2015-03-30 20:07:13 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.358 2015-03-30 20:07:13 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: SystemBrowser.st,v 1.358 2015-03-30 20:07:13 cg Exp $'
+    ^ '$Id$'
 ! !