#FEATURE by alkurz
class: SimpleDialog
changed: #openFor:interface:withBindings:
interfaceSpec can be an uispec (used to by symbol only)
--- 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"