diff -p -r smalltalk-2.0j.ori/browser/BrowserMain.st smalltalk-2.0j/browser/BrowserMain.st
*** smalltalk-2.0j.ori/browser/BrowserMain.st	2002-12-27 17:20:10.000000000 +0100
--- smalltalk-2.0j/browser/BrowserMain.st	2003-02-22 18:50:20.000000000 +0100
*************** garbageCollect
*** 110,115 ****
--- 110,125 ----
  
      ObjectMemory compact!
  
+ fileIn
+    | fileName |
+    fileName := Prompter 
+ 		openFileName: 'Which file do you want me to read?'
+ 		default: '*.st'
+ 		in: Shell.
+    fileName notEmpty
+ 	ifTrue:
+ 	[ FileStream fileIn: fileName ]!
+ 
  openBrowser
      ClassHierarchyBrowser new open!
  
diff -p -r smalltalk-2.0j.ori/browser/BrowShell.st smalltalk-2.0j/browser/BrowShell.st
*** smalltalk-2.0j.ori/browser/BrowShell.st	2002-12-27 16:47:31.000000000 +0100
--- smalltalk-2.0j/browser/BrowShell.st	2003-02-22 18:03:09.000000000 +0100
*************** initialize
*** 122,127 ****
--- 122,128 ----
  		     #('Class Hierarchy Browser' #openBrowser)
  		     #('Namespace Browser' #openNamespaceBrowser)
  		     #() #('Save image' #saveImage) #('Garbage collect' #garbageCollect)
+ 		     #() #('File in' #fileIn)
  		     #() #('Exit without saving image' #directQuit) #('Exit...' #quit))
  	handler: [:shell | BrowserMain]! !
  
diff -p -r smalltalk-2.0j.ori/browser/ClassHierBrow.st smalltalk-2.0j/browser/ClassHierBrow.st
*** smalltalk-2.0j.ori/browser/ClassHierBrow.st	2003-02-09 21:29:02.000000000 +0100
--- smalltalk-2.0j/browser/ClassHierBrow.st	2003-02-22 18:46:23.000000000 +0100
*************** fileOutSelector: listView 
*** 1009,1015 ****
      fileName := Prompter 
  		saveFileName: 'File out selector'
  		default: fileName
! 		in: listView fileName ~= ''
  		ifTrue: 
  		    [deClass fileOutSelector: curSelector to: fileName.
  		    self setFileoutDirFromFile: fileName]!
--- 1009,1016 ----
      fileName := Prompter 
  		saveFileName: 'File out selector'
  		default: fileName
! 		in: listView.
!      fileName ~= ''
  		ifTrue: 
  		    [deClass fileOutSelector: curSelector to: fileName.
  		    self setFileoutDirFromFile: fileName]!
diff -p -r smalltalk-2.0j.ori/browser/MethSetBrow.st smalltalk-2.0j/browser/MethSetBrow.st
*** smalltalk-2.0j.ori/browser/MethSetBrow.st	2003-02-09 21:29:02.000000000 +0100
--- smalltalk-2.0j/browser/MethSetBrow.st	2003-02-22 18:46:49.000000000 +0100
*************** fileOutSelector: listView
*** 253,259 ****
      fileName := Prompter
                  saveFileName: 'File out selector'
                  default: fileName
!                 in: listView fileName ~= ''
                  ifTrue:
                      [theClass fileOutSelector: theSelector to: fileName.
                      self setFileoutDirFromFile: fileName]!
--- 253,260 ----
      fileName := Prompter
                  saveFileName: 'File out selector'
                  default: fileName
!                 in: listView.
!     fileName ~= ''
                  ifTrue:
                      [theClass fileOutSelector: theSelector to: fileName.
                      self setFileoutDirFromFile: fileName]!