checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 30 Apr 1996 15:00:55 +0200
changeset 523 db2c1ad12524
parent 522 c67c64200411
child 524 72d2fa78dd49
checkin from browser
SBrowser.st
SystemBrowser.st
--- a/SBrowser.st	Tue Apr 30 11:10:54 1996 +0200
+++ b/SBrowser.st	Tue Apr 30 15:00:55 1996 +0200
@@ -98,6 +98,19 @@
     "
 !
 
+openInClass:aClass
+    "launch a standard browser which immediately switches
+     to aClass"
+
+    ^ self openInClass:aClass selector:nil
+
+    "
+     SystemBrowser openInClass:Object
+    "
+
+    "Created: 30.4.1996 / 14:43:45 / cg"
+!
+
 openInClass:aClass selector:aSelector
     "launch a standard browser which immediately switches
      to aClass>>aSelector."
@@ -1269,6 +1282,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.55 1996-04-25 16:28:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.56 1996-04-30 13:00:55 cg Exp $'
 ! !
 SystemBrowser initialize!
--- a/SystemBrowser.st	Tue Apr 30 11:10:54 1996 +0200
+++ b/SystemBrowser.st	Tue Apr 30 15:00:55 1996 +0200
@@ -98,6 +98,19 @@
     "
 !
 
+openInClass:aClass
+    "launch a standard browser which immediately switches
+     to aClass"
+
+    ^ self openInClass:aClass selector:nil
+
+    "
+     SystemBrowser openInClass:Object
+    "
+
+    "Created: 30.4.1996 / 14:43:45 / cg"
+!
+
 openInClass:aClass selector:aSelector
     "launch a standard browser which immediately switches
      to aClass>>aSelector."
@@ -1269,6 +1282,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.55 1996-04-25 16:28:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.56 1996-04-30 13:00:55 cg Exp $'
 ! !
 SystemBrowser initialize!