SimpleDialog.st
changeset 4288 d17422986c53
parent 4026 4bbb79ad0788
child 4329 2ad714b6092f
--- a/SimpleDialog.st	Tue Jul 02 14:10:25 2019 +0200
+++ b/SimpleDialog.st	Tue Jul 02 14:13:57 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by eXept Software AG
               All Rights Reserved
@@ -387,16 +389,24 @@
     "Modified: 28.2.1997 / 16:22:08 / cg"
 !
 
-openFor:anApplication interface:aSelector withBindings:bindings
+openFor:anApplication interface:anInterfaceSymbolOrSpec withBindings:bindings
     "open the dialog for some appModel from a given specSymbol;
      the application must provide an interfaceSpec for that symbol.
      The bindings argument may provide overwriting bindings for the
      dialog.
      Return true if accepted, false if canceled"
 
+    |spec|
+
+    (anInterfaceSymbolOrSpec isSymbol) ifTrue:[
+        spec := (anApplication interfaceSpecFor:anInterfaceSymbolOrSpec)
+    ] ifFalse:[
+        spec := anInterfaceSymbolOrSpec
+    ].
+
     ^ self
         openFor:anApplication 
-        interfaceSpec:(anApplication interfaceSpecFor:aSelector)
+        interfaceSpec:spec
         withBindings:bindings
 
     "Modified: 18.10.1997 / 04:43:13 / cg"