431 ! ! |
431 ! ! |
432 |
432 |
433 !EnterBox methodsFor:'queries'! |
433 !EnterBox methodsFor:'queries'! |
434 |
434 |
435 preferredExtent |
435 preferredExtent |
|
436 "compute the boxes preferredExtent from the components' sizes" |
|
437 |
436 |wWanted hWanted wPanel vs2 min |
438 |wWanted hWanted wPanel vs2 min |
437 labelPref enterPref panelPref| |
439 labelPref enterPref panelPref| |
438 |
440 |
439 panelPref := buttonPanel preferredExtent. |
441 panelPref := buttonPanel preferredExtent. |
440 labelPref := labelField preferredExtent. |
442 labelPref := labelField preferredExtent. |
441 enterPref := enterField preferredExtent. |
443 enterPref := enterField preferredExtent. |
442 wWanted := (labelPref x max:enterPref x). |
444 wWanted := (labelPref x max:enterPref x). |
443 wPanel := panelPref x. |
445 wPanel := panelPref x. |
444 wPanel > wWanted ifTrue:[ |
446 wPanel > wWanted ifTrue:[ |
445 wWanted := wPanel |
447 wWanted := wPanel |
446 ]. |
448 ]. |
447 |
449 |
448 hWanted := labelPref y + enterPref y + |
450 hWanted := labelPref y + enterPref y + |
449 (ViewSpacing * 6) + panelPref y + ViewSpacing. |
451 (ViewSpacing * 6) + panelPref y + ViewSpacing. |
450 |
452 |
451 min := self class minExtent. |
453 min := self class minExtent. |
452 wWanted < min x ifTrue:[ |
454 wWanted < min x ifTrue:[ |
453 wWanted := min x |
455 wWanted := min x |
454 ]. |
456 ]. |
455 hWanted < min y ifTrue:[ |
457 hWanted < min y ifTrue:[ |
456 hWanted := min y |
458 hWanted := min y |
457 ]. |
459 ]. |
458 vs2 := ViewSpacing * 2. |
460 vs2 := ViewSpacing * 2. |
459 ^ (wWanted + vs2) @ (hWanted + vs2) |
461 ^ (wWanted + vs2) @ (hWanted + vs2) |
|
462 |
|
463 "Modified: 23.4.1996 / 00:14:28 / cg" |
460 ! ! |
464 ! ! |
461 |
465 |
462 !EnterBox methodsFor:'startup'! |
466 !EnterBox methodsFor:'startup'! |
463 |
467 |
464 request |
468 request |