# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1044271209 -3600
# Node ID 76de19bec54bfa87495522090f7c89f854136bba
# Parent  91ac286733ac567b8b293b1c36f69caad0a7859a
checkin from browser

diff -r 91ac286733ac -r 76de19bec54b DialogBox.st
--- a/DialogBox.st	Sun Feb 02 15:55:28 2003 +0100
+++ b/DialogBox.st	Mon Feb 03 12:20:09 2003 +0100
@@ -2926,7 +2926,7 @@
         box := EnterBoxWithList title:aString.
         box list:listToSelectFrom.
     ].
-    box initialText:initial printString.
+    initial notNil ifTrue:[ box initialText:initial printString ].
     anInterval notNil ifTrue:[
         box selectFrom:anInterval start to:anInterval stop.
     ].
@@ -7701,7 +7701,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.206 2002-12-11 12:01:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.207 2003-02-03 11:20:09 cg Exp $'
 ! !
 
 DialogBox initialize!