#OTHER by mawalch
Spelling fixes.
--- a/InfoBox.st Thu Oct 06 23:14:37 2016 +0200
+++ b/InfoBox.st Thu Oct 06 23:14:38 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -46,7 +44,7 @@
originally, ST/X had separate classes for the various entry methods;
there were YesNoBox, EnterBox, InfoBox and so on.
In the meantime, the DialogBox class (and therefore its alias: Dialog)
- is going to duplicate most funcionality found in these classes.
+ is going to duplicate most functionality found in these classes.
In the future, those existing subclasses' functionality is going to
be moved fully into Dialog, and the subclasses will be replaced by dummy
@@ -72,13 +70,12 @@
[author:]
Claus Gittinger
"
-
!
examples
"
Notice, the preferred use is via the DialogBox class messages,
- such as
+ such as
[exBegin]
Dialog information:'Time to go home'
[exEnd]
@@ -195,10 +192,10 @@
"Modified: / 22-12-2010 / 19:30:50 / cg"
!
-title:titleString label:labelString
+title:titleString label:labelString
"create a new infoBox with label, labelString"
- ^ (self new) title:titleString label:labelString
+ ^ (self new) title:titleString label:labelString
"
(InfoBox title:'hello' label:'Attention' ) open
@@ -414,7 +411,7 @@
"
!
-preferredExtent
+preferredExtent
"return my preferred extent"
|w h mm|
@@ -433,8 +430,8 @@
mm := ViewSpacing.
- w := ((margin + mm) * 2) +
- formLabel widthIncludingBorder +
+ w := ((margin + mm) * 2) +
+ formLabel widthIncludingBorder +
mm + textLabel width.
w := w max:(okButton preferredWidth + (mm * 2)).