class: SystemBrowser
added: #default
comment/format in:
#open
#openInClass:
#openOn:
--- 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$'
! !