--- a/BrowserView.st	Wed Jun 26 20:12:41 2013 +0200
+++ b/BrowserView.st	Wed Jun 26 20:13:11 2013 +0200
@@ -12450,16 +12450,17 @@
 enterBoxTitle:title withList:aListOrNil okText:okText
     "convenient method: setup enterBox"
 
-    |box|
-
-    aListOrNil notNil ifTrue:[
-        box := EnterBoxWithList new.
-        box list:aListOrNil.
-    ] ifFalse:[
-        box := EnterBox new.
-    ].
-    box title:(resources string:title) okText:(resources string:okText).
-    ^ box
+    ^ SystemBrowser enterBoxTitle:title withList:aListOrNil okText:okText
+"/    |box|
+"/
+"/    aListOrNil notNil ifTrue:[
+"/        box := EnterBoxWithList new.
+"/        box list:aListOrNil.
+"/    ] ifFalse:[
+"/        box := EnterBox new.
+"/    ].
+"/    box title:(resources string:title) okText:(resources string:okText).
+"/    ^ box
 !
 
 environment
@@ -14528,7 +14529,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.850 2013-06-26 08:36:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.851 2013-06-26 18:13:11 cg Exp $'
 ! !