--- a/EnterBox.st	Mon Sep 20 15:26:22 1999 +0200
+++ b/EnterBox.st	Wed Sep 22 18:21:18 1999 +0200
@@ -389,6 +389,13 @@
 
 !EnterBox methodsFor:'accessing - look'!
 
+noCancel
+    "make the cancel button invisible - i.e. only the ok button is shown.
+     Not useful here, but useful with display-only textBoxes."
+
+    abortButton beInvisible.
+!
+
 title:aString
     "set the title to be displayed at top of enterBox"
 
@@ -659,5 +666,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.50 1999-04-26 15:29:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.51 1999-09-22 16:21:18 cg Exp $'
 ! !