#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Mon, 15 Jul 2019 16:40:05 +0200
changeset 6630 5cf6c9bdb07c
parent 6629 ba8fdce25504
child 6631 476a7030cebb
#DOCUMENTATION by cg class: EnterBox comment/format in: #title: #title:okText: #title:okText:abortText:
EnterBox.st
--- a/EnterBox.st	Mon Jul 15 15:35:49 2019 +0200
+++ b/EnterBox.st	Mon Jul 15 16:40:05 2019 +0200
@@ -434,7 +434,8 @@
 !
 
 title:aString
-    "set the title to be displayed at top of the enterBox"
+    "set the title to be displayed at top of the enterBox.
+     This is NOT the window title."
 
     |oldSize|
 
@@ -452,11 +453,12 @@
         ]
     ]
 
-    "Modified (comment): / 26-08-2018 / 18:10:08 / Claus Gittinger"
+    "Modified (comment): / 15-07-2019 / 16:34:02 / Claus Gittinger"
 !
 
 title:titleString okText:okString
-    "set title and text in okbutton"
+    "set title and text in okbutton.
+     This title is NOT the window title."
 
     (titleString ~= labelField label or:[okString ~= okButton label]) ifTrue:[
         okButton label:okString.
@@ -467,10 +469,13 @@
             ifTrue:[self resize]
             ifFalse:[ self sizeChanged:nil].
     ]
+
+    "Modified (comment): / 15-07-2019 / 16:34:12 / Claus Gittinger"
 !
 
 title:titleString okText:okString abortText:abortString
-    "set title and texts in the buttons"
+    "set title and texts in the buttons.
+     This title is NOT the window title."
 
     (titleString ~= labelField label
      or:[okString ~= okButton label
@@ -485,6 +490,8 @@
             ifTrue:[self resize]
             ifFalse:[ self sizeChanged:nil].
     ]
+
+    "Modified (comment): / 15-07-2019 / 16:34:17 / Claus Gittinger"
 ! !
 
 !EnterBox methodsFor:'change & update'!