--- a/SimpleDialog.st	Thu Dec 07 09:32:34 2000 +0100
+++ b/SimpleDialog.st	Thu Dec 07 14:45:29 2000 +0100
@@ -313,7 +313,9 @@
 
     builder source:anApplication.
     masterApplication isNil ifTrue:[
-        masterApplication := anApplication
+        anApplication ~~ self ifTrue:[
+            masterApplication := anApplication
+        ]
     ].
 
     "Modified: / 8.9.1998 / 01:46:06 / cg"
@@ -515,6 +517,18 @@
     "Modified: 28.2.1997 / 16:40:36 / cg"
 !
 
+openSpec:anInterfaceSpec withBindings:bindings
+    "open the dialog with a given spec;
+     The bindings argument is mandatory and provides aspect bindings for the
+     dialog.
+     Return true if accepted, false if canceled"
+
+    ^ self
+        openFor:self 
+        interfaceSpec:anInterfaceSpec
+        withBindings:bindings
+!
+
 postBuildWith:aBuilder
     "this is sent after the dialogs widgets have been created
      (but before the dialog is opened).
@@ -614,5 +628,5 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.33 2000-11-15 12:35:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.34 2000-12-07 13:45:29 cg Exp $'
 ! !