--- a/SimpleDialog.st	Tue Nov 28 19:16:49 2017 +0100
+++ b/SimpleDialog.st	Tue Nov 28 19:19:32 2017 +0100
@@ -136,33 +136,6 @@
     "Modified: / 20.5.1998 / 20:51:02 / cg"
 !
 
-closeAllowedChannel
-    "return the value-provider which controls if close is allowed.
-     This is initialized to true."
-
-    ^ closeAllowedChannel
-
-    "Created: / 20.5.1998 / 21:52:32 / cg"
-    "Modified: / 20.5.1998 / 21:53:18 / cg"
-!
-
-closeAllowedChannel:aValueHolderOrBlock
-    "set a value-provider which controls if close is allowed."
-
-    ^ closeAllowedChannel
-
-    "Created: / 20.5.1998 / 21:52:53 / cg"
-!
-
-closeChannel
-    "return the closeChannel; If a true is stuffed into this valueHolder,
-     I will close myself."
-
-    ^ close
-
-    "Modified: / 20.5.1998 / 20:52:29 / cg"
-!
-
 escapeIsCancel
     "return the escapeIsCancel setting"
 
@@ -217,6 +190,35 @@
     "Modified: / 8.9.1998 / 01:46:06 / cg"
 ! !
 
+!SimpleDialog methodsFor:'accessing-channels'!
+
+closeAllowedChannel
+    "return the value-provider which controls if close is allowed.
+     This is initialized to true."
+
+    ^ closeAllowedChannel
+
+    "Created: / 20.5.1998 / 21:52:32 / cg"
+    "Modified: / 20.5.1998 / 21:53:18 / cg"
+!
+
+closeAllowedChannel:aValueHolderOrBlock
+    "set a value-provider which controls if close is allowed."
+
+    ^ closeAllowedChannel
+
+    "Created: / 20.5.1998 / 21:52:53 / cg"
+!
+
+closeChannel
+    "return the closeChannel; If a true is stuffed into this valueHolder,
+     I will close myself."
+
+    ^ close
+
+    "Modified: / 20.5.1998 / 20:52:29 / cg"
+! !
+
 !SimpleDialog methodsFor:'accessing-window'!
 
 minWidth:nPixels