EnterBox.st
changeset 3770 585a35abda71
parent 3608 1befa7fdb7aa
child 3933 0e24fbf0f5fa
equal deleted inserted replaced
3769:758f8b0b6cf2 3770:585a35abda71
   566     "compute the boxes preferredExtent from the components' sizes"
   566     "compute the boxes preferredExtent from the components' sizes"
   567 
   567 
   568     |wWanted hWanted wPanel vs2 min 
   568     |wWanted hWanted wPanel vs2 min 
   569      labelPref enterPref panelPref|
   569      labelPref enterPref panelPref|
   570 
   570 
   571     "/ If I have an explicit preferredExtent ..
   571     "/ If I have an explicit preferredExtent..
   572 
   572     explicitExtent notNil ifTrue:[
       
   573         ^ explicitExtent
       
   574     ].
       
   575 
       
   576     "/ If I have a cached preferredExtent value..
   573     preferredExtent notNil ifTrue:[
   577     preferredExtent notNil ifTrue:[
   574         ^ preferredExtent
   578         ^ preferredExtent
   575     ].
   579     ].
   576 
   580 
   577     panelPref := buttonPanel preferredExtent.
   581     panelPref := buttonPanel preferredExtent.
   701 ! !
   705 ! !
   702 
   706 
   703 !EnterBox class methodsFor:'documentation'!
   707 !EnterBox class methodsFor:'documentation'!
   704 
   708 
   705 version
   709 version
   706     ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.62 2008-05-30 12:24:39 cg Exp $'
   710     ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.63 2008-10-26 20:14:57 stefan Exp $'
   707 ! !
   711 ! !