class: SimpleDialog expecco_2_5_0
authorClaus Gittinger <cg@exept.de>
Fri, 07 Jun 2013 01:14:48 +0200
changeset 3180 ddb23aad351e
parent 3179 9bcc92bcbcee
child 3181 4befd1e4e8d0
class: SimpleDialog added: #openInterface:at:
SimpleDialog.st
--- a/SimpleDialog.st	Thu Jun 06 12:07:43 2013 +0200
+++ b/SimpleDialog.st	Fri Jun 07 01:14:48 2013 +0200
@@ -443,6 +443,18 @@
     "Modified: / 20.5.1998 / 20:21:28 / cg"
 !
 
+openInterface:aSymbol at:position
+    "open a standard interface.
+     Redefined to return the accept value instead of the builder."
+
+    super openInterfaceModal:aSymbol at:position.
+    acceptedValue notNil ifTrue:[^ acceptedValue].
+    ^ accept value.
+
+    "Created: / 23.1.1998 / 18:19:57 / cg"
+    "Modified: / 20.5.1998 / 20:21:28 / cg"
+!
+
 openSpec:aWindowSpec
     "open a window spec.
      Redefned to open modal and to return the accept value instead 
@@ -545,6 +557,6 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.49 2013-03-07 13:25:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.50 2013-06-06 23:14:48 cg Exp $'
 ! !