comments
authorClaus Gittinger <cg@exept.de>
Fri, 28 Feb 1997 22:51:30 +0100
changeset 465 5df2fbe7275a
parent 464 25e6380399c6
child 466 784ed480f4eb
comments
SimpleDialog.st
--- a/SimpleDialog.st	Fri Feb 28 14:24:07 1997 +0100
+++ b/SimpleDialog.st	Fri Feb 28 22:51:30 1997 +0100
@@ -164,18 +164,26 @@
 !
 
 openFor:anApplication interface:aSelector
+    "open the dialog for some appModel from a given spec;
+     Return true if accepted, false if canceled"
+
     ^ self openFor:anApplication interface:aSelector withBindings:nil
 
-    "Modified: 28.2.1997 / 14:09:40 / cg"
+    "Modified: 28.2.1997 / 16:22:08 / cg"
 !
 
 openFor:anApplication interface:aSelector withBindings:bindings
+    "open the dialog for some appModel from a given spec;
+     the bindings argument may provide overwriting bindings for the
+     dialog.
+     Return true if accepted, false if canceled"
+
     builder addBindings:bindings.
     self source:anApplication.
     ^ self openFrom:(anApplication class interfaceSpecFor:aSelector)
 
     "Created: 28.2.1997 / 14:09:06 / cg"
-    "Modified: 28.2.1997 / 14:13:10 / cg"
+    "Modified: 28.2.1997 / 16:22:00 / cg"
 !
 
 openFrom:anInterfaceSpec
@@ -204,5 +212,5 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.5 1997-02-28 13:23:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.6 1997-02-28 21:51:30 cg Exp $'
 ! !