SimpleDialog.st
changeset 1441 2777d3f49053
parent 1440 7a0b8cc86e87
child 1491 6a1c859f50da
--- a/SimpleDialog.st	Thu Dec 07 14:45:29 2000 +0100
+++ b/SimpleDialog.st	Thu Dec 07 14:48:21 2000 +0100
@@ -517,6 +517,29 @@
     "Modified: 28.2.1997 / 16:40:36 / cg"
 !
 
+openInterface:aSymbol
+    "open a standard interface.
+     Redefined to return the accept value instead of the builder."
+
+    super openInterfaceModal:aSymbol.
+    ^ 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 
+     of the builder."
+
+    super openSpecModal:aWindowSpec.
+    ^ accept value.
+
+    "Modified: / 22.4.1998 / 11:59:05 / cg"
+    "Created: / 20.5.1998 / 20:21:17 / cg"
+!
+
 openSpec:anInterfaceSpec withBindings:bindings
     "open the dialog with a given spec;
      The bindings argument is mandatory and provides aspect bindings for the
@@ -600,33 +623,8 @@
     "Modified: 14.2.1997 / 22:17:20 / cg"
 ! !
 
-!SimpleDialog methodsFor:'startup'!
-
-openInterface:aSymbol
-    "open a standard interface.
-     Redefined to return the accept value instead of the builder."
-
-    super openInterfaceModal:aSymbol.
-    ^ 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 
-     of the builder."
-
-    super openSpecModal:aWindowSpec.
-    ^ accept value.
-
-    "Modified: / 22.4.1998 / 11:59:05 / cg"
-    "Created: / 20.5.1998 / 20:21:17 / cg"
-! !
-
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.34 2000-12-07 13:45:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.35 2000-12-07 13:48:21 cg Exp $'
 ! !