# HG changeset patch # User mawalch # Date 1475788478 -7200 # Node ID 2557ab3713e80c82e9c7ad1ed86f946205a290e4 # Parent 7556ba06cc7e72bf586d1e00323b185f55300877 #OTHER by mawalch Spelling fixes. diff -r 7556ba06cc7e -r 2557ab3713e8 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)).