PanelView.st
changeset 5516 6ac4f56c49f3
parent 4945 b3a7feb93dd8
child 5536 b5b14ac35684
equal deleted inserted replaced
5514:a208d39257ac 5516:6ac4f56c49f3
     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 "{ Package: 'stx:libwidg' }"
    12 "{ Package: 'stx:libwidg' }"
       
    13 
       
    14 "{ NameSpace: Smalltalk }"
    13 
    15 
    14 SimpleView subclass:#PanelView
    16 SimpleView subclass:#PanelView
    15 	instanceVariableNames:'hLayout vLayout verticalSpace horizontalSpace mustRearrange
    17 	instanceVariableNames:'hLayout vLayout verticalSpace horizontalSpace mustRearrange
    16 		elementsChangeSize ignoreInvisibleComponents backgroundChannel'
    18 		elementsChangeSize ignoreInvisibleComponents backgroundChannel'
    17 	classVariableNames:''
    19 	classVariableNames:''
   448 				    "/ used by subclasses only
   450 				    "/ used by subclasses only
   449     verticalSpace := ViewSpacing.
   451     verticalSpace := ViewSpacing.
   450     horizontalSpace := ViewSpacing.
   452     horizontalSpace := ViewSpacing.
   451     mustRearrange := elementsChangeSize := false.
   453     mustRearrange := elementsChangeSize := false.
   452     ignoreInvisibleComponents := true.
   454     ignoreInvisibleComponents := true.
       
   455 !
       
   456 
       
   457 mapped
       
   458     mustRearrange ifTrue:[
       
   459         self setChildPositions
       
   460     ].
       
   461     super mapped
   453 !
   462 !
   454 
   463 
   455 realize
   464 realize
   456     mustRearrange ifTrue:[
   465     mustRearrange ifTrue:[
   457 	self setChildPositions
   466 	self setChildPositions
   666 ! !
   675 ! !
   667 
   676 
   668 !PanelView class methodsFor:'documentation'!
   677 !PanelView class methodsFor:'documentation'!
   669 
   678 
   670 version
   679 version
   671     ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.47 2014-03-16 21:25:09 cg Exp $'
   680     ^ '$Header$'
   672 ! !
   681 ! !
   673 
   682