--- a/DialogBox.st	Sat Nov 16 22:17:02 2019 +0100
+++ b/DialogBox.st	Sat Nov 16 22:17:50 2019 +0100
@@ -5641,37 +5641,6 @@
     "
 !
 
-requestRegex:aTitleString initialAnswer:initialRegexString
-    "Prompt the user for a valid regex.
-     Return nil on cancel or a valid RxMatcher"
-
-    | regex |
-
-    regex := initialRegexString.
-    "loop until we get a valid regex string back"
-    [
-        regex := self 
-                    requestText:aTitleString lines:5 columns:40 initialAnswer:regex.
-"/                multiLineRequest: aTitleString 
-"/                initialAnswer: regex 
-"/                answerHeight: 200.
-        "cancelled dialog ==> nil"      
-        regex isNil ifTrue: [ ^ nil ].
-
-        [ 
-            ^ regex asRegex 
-        ] on: Error do: [:regexParsingError|
-            "/ self defer: [   
-                self inform: 'Bad Regex: ', regexParsingError asString 
-            "/ ]
-        ].
-    ] repeat
-
-    "
-     Dialog requestRegex:'enter a regex pattern:' initialAnswer:'a*'
-    "
-!
-
 requestText:title
     "open a dialog asking for multiline text.
      Return a stringCollection or nil if canceled."