#OTHER by mawalch
authormawalch
Thu, 06 Oct 2016 23:14:38 +0200
changeset 5897 2557ab3713e8
parent 5896 7556ba06cc7e
child 5899 4f8cd7f379e8
child 5900 d880e4b3a36d
#OTHER by mawalch Spelling fixes.
InfoBox.st
--- 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)).