equal
deleted
inserted
replaced
319 preferredExtent |
319 preferredExtent |
320 "compute the boxes preferredExtent from the components' sizes" |
320 "compute the boxes preferredExtent from the components' sizes" |
321 |
321 |
322 |w h max mm| |
322 |w h max mm| |
323 |
323 |
|
324 preferredExtent notNil ifTrue:[ |
|
325 ^ preferredExtent |
|
326 ]. |
|
327 |
324 mm := ViewSpacing. |
328 mm := ViewSpacing. |
325 |
329 |
326 " |
330 " |
327 make the two buttons of equal size |
331 make the two buttons of equal size |
328 " |
332 " |
336 + ((formLabel height) max:(textLabel height)) |
340 + ((formLabel height) max:(textLabel height)) |
337 + okButton heightIncludingBorder. |
341 + okButton heightIncludingBorder. |
338 |
342 |
339 ^ (w @ h). |
343 ^ (w @ h). |
340 |
344 |
341 "Modified: 23.4.1996 / 00:13:41 / cg" |
345 "Modified: 29.5.1996 / 12:10:11 / cg" |
342 ! ! |
346 ! ! |
343 |
347 |
344 !YesNoBox methodsFor:'startup'! |
348 !YesNoBox methodsFor:'startup'! |
345 |
349 |
346 confirm |
350 confirm |
390 ! ! |
394 ! ! |
391 |
395 |
392 !YesNoBox class methodsFor:'documentation'! |
396 !YesNoBox class methodsFor:'documentation'! |
393 |
397 |
394 version |
398 version |
395 ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.29 1996-05-18 15:42:59 cg Exp $' |
399 ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.30 1996-05-29 10:15:05 cg Exp $' |
396 ! ! |
400 ! ! |