--- a/AbstractFileBrowser.st	Tue Oct 29 14:21:38 2002 +0100
+++ b/AbstractFileBrowser.st	Tue Oct 29 16:15:55 2002 +0100
@@ -1,13 +1,13 @@
 "{ Package: 'stx:libtool' }"
 
 ApplicationModel subclass:#AbstractFileBrowser
-        instanceVariableNames:'aspects'
-        classVariableNames:'DirectoryHistory DefaultCommandPerMIME SettingsAspects
-                RuntimeAspects DirectoryBookmarks LastEnforcedNameSpace
-                CommandHistory DefaultCommandPerSuffix CommandHistorySize
-                LastFileDiffFile DefaultFilters'
-        poolDictionaries:''
-        category:'Interface-Tools-File'
+	instanceVariableNames:'aspects'
+	classVariableNames:'DirectoryHistory DefaultCommandPerMIME SettingsAspects
+		RuntimeAspects DirectoryBookmarks LastEnforcedNameSpace
+		CommandHistory DefaultCommandPerSuffix CommandHistorySize
+		LastFileDiffFile DefaultFilters'
+	poolDictionaries:''
+	category:'Interface-Tools-File'
 !
 
 AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
@@ -15,52 +15,52 @@
 "
  The following class instance variables are inherited by this class:
 
-        ApplicationModel - ClassResources
-        Model - 
-        Object - 
+	ApplicationModel - ClassResources
+	Model - 
+	Object - 
 "
 !
 
 Object subclass:#Clipboard
-        instanceVariableNames:'method files'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'method files'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#CodeExecutionLock
-        instanceVariableNames:'locked'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'locked'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 OrderedCollection subclass:#DirectoryHistory
-        instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath'
-        classVariableNames:'HistorySize'
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath'
+	classVariableNames:'HistorySize'
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#DirectoryHistoryItem
-        instanceVariableNames:'path position'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser::DirectoryHistory
+	instanceVariableNames:'path position'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser::DirectoryHistory
 !
 
 OrderedSet subclass:#FilenameHistory
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 Object subclass:#SaveAspectItem
-        instanceVariableNames:'value isHolder'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:AbstractFileBrowser
+	instanceVariableNames:'value isHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractFileBrowser
 !
 
 
@@ -1707,6 +1707,12 @@
     ].
 ! !
 
+!AbstractFileBrowser methodsFor:'actions-app-common'!
+
+openApplForFile:aFilename
+    self openApplByFileItem:(DirectoryContentsBrowser itemClass fileName:aFilename).
+! !
+
 !AbstractFileBrowser methodsFor:'applications'!
 
 application:aApplication do:aMethod 
@@ -3420,7 +3426,7 @@
     ] ifFalse:[
         filename := (Filename homeDirectory).
     ].
-    FindFileApplication openOnFileName:filename.
+    FindFileApplication openOnFileName:filename for:self.
 !
 
 installAllAsAutoloaded
@@ -4946,5 +4952,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.41 2002-10-29 11:59:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.42 2002-10-29 15:15:33 cg Exp $'
 ! !