equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libwidg2' }" |
12 "{ Package: 'stx:libwidg2' }" |
14 |
13 |
15 EnterBox subclass:#TextBox |
14 EnterBox subclass:#TextBox |
16 instanceVariableNames:'textView' |
15 instanceVariableNames:'textView' |
17 classVariableNames:'' |
16 classVariableNames:'' |
201 wPanel > wWanted ifTrue:[ |
200 wPanel > wWanted ifTrue:[ |
202 wWanted := wPanel |
201 wWanted := wPanel |
203 ]. |
202 ]. |
204 hWanted := ViewSpacing + labelField height + |
203 hWanted := ViewSpacing + labelField height + |
205 ViewSpacing + textView height + |
204 ViewSpacing + textView height + |
206 (ViewSpacing * 6) + buttonPanel preferredExtent y + |
205 (ViewSpacing * 6) + buttonPanel preferredHeight + |
207 ViewSpacing. |
206 ViewSpacing. |
208 ^ (wWanted @ hWanted) |
207 ^ (wWanted @ hWanted) |
209 ! ! |
208 ! ! |
210 |
209 |
211 !TextBox class methodsFor:'documentation'! |
210 !TextBox class methodsFor:'documentation'! |
212 |
211 |
213 version |
212 version |
214 ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.18 2004-02-06 13:51:00 cg Exp $' |
213 ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.19 2008-05-30 12:24:36 cg Exp $' |
215 ! ! |
214 ! ! |