--- a/AbstractDirectoryBrowser.st	Wed Jun 09 18:28:00 2004 +0200
+++ b/AbstractDirectoryBrowser.st	Wed Jun 09 18:31:18 2004 +0200
@@ -179,29 +179,20 @@
 
 !AbstractDirectoryBrowser methodsFor:'startup & release'!
 
+commonPostOpen
+    self postOpenFromMaster:true.
+!
+
 initialize
 
     inDropMode := false.
     ^ super initialize.
 !
 
-postOpenAsSubcanvasWith:aBuilder
-
-    super postOpenAsSubcanvasWith:aBuilder.
-    self postOpenFromMaster:true.
-!
-
 postOpenFromMaster:fromMaster 
     self subclassResponsibility
 !
 
-postOpenWith:aBuilder
-    "only invoked if the application not started from a master"
-
-    super postOpenWith:aBuilder.
-    self postOpenFromMaster:true.
-!
-
 preBuildWith:aBuilder
 
     self masterApplication isNil ifTrue:[
@@ -213,5 +204,5 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.12 2004-03-24 15:02:24 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.13 2004-06-09 16:31:18 cg Exp $'
 ! !

--- a/FileDialog.st	Wed Jun 09 18:28:00 2004 +0200
+++ b/FileDialog.st	Wed Jun 09 18:31:18 2004 +0200
@@ -1304,33 +1304,7 @@
 
 !FileDialog methodsFor:'initialization & release'!
 
-postBuildFileNameField:aWidget
-
-    filenameField := aWidget.
-!
-
-postBuildFilterField:aWidget
-
-    filterField := aWidget.
-!
-
-postBuildTreeBrowser:aSubCanvasView
-
-    treeBrowser := aSubCanvasView client.
-!
-
-postBuildWith:aBuilder    
-    treeBrowser multipleSelect:multipleSelect.
-    appendWasPressed := false.
-
-    (aBuilder componentAt:'cancelButton') cursor:(Cursor thumbsDown).
-    (aBuilder componentAt:'appendButton') cursor:(Cursor thumbsUp).
-    (aBuilder componentAt:'okButton') cursor:(Cursor thumbsUp).
-
-    ^ super postBuildWith:aBuilder
-!
-
-postOpen
+commonPostOpen
     |directory rootDirectory|
 
 "/     self windowGroup addPreEventHook:self.
@@ -1361,15 +1335,30 @@
     self window label:self initialText.
 !
 
-postOpenAsSubcanvasWith:aBuilder    
-    self postOpen.
-    ^ super postOpenAsSubcanvasWith:aBuilder
+postBuildFileNameField:aWidget
+
+    filenameField := aWidget.
+!
+
+postBuildFilterField:aWidget
+
+    filterField := aWidget.
 !
 
-postOpenWith:aBuilder    
+postBuildTreeBrowser:aSubCanvasView
+
+    treeBrowser := aSubCanvasView client.
+!
 
-    self postOpen.
-    ^ super postOpenWith:aBuilder.
+postBuildWith:aBuilder    
+    treeBrowser multipleSelect:multipleSelect.
+    appendWasPressed := false.
+
+    (aBuilder componentAt:'cancelButton') cursor:(Cursor thumbsDown).
+    (aBuilder componentAt:'appendButton') cursor:(Cursor thumbsUp).
+    (aBuilder componentAt:'okButton') cursor:(Cursor thumbsUp).
+
+    ^ super postBuildWith:aBuilder
 ! !
 
 !FileDialog methodsFor:'private'!
@@ -1484,5 +1473,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.62 2004-05-19 09:39:25 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.63 2004-06-09 16:31:12 cg Exp $'
 ! !