VerticalPanelView.st
changeset 6720 30dc6274571a
parent 6495 27d97d8e5ae1
child 6747 121b6e62d393
equal deleted inserted replaced
6719:71423e2b6206 6720:30dc6274571a
   768 
   768 
   769     |ypos space sumOfHeights numChilds l hEach hInside hL vL
   769     |ypos space sumOfHeights numChilds l hEach hInside hL vL
   770      maxWidth maxHeight resizeToMaxV resizeToMaxH m2 subViews restHeight y2 bw|
   770      maxWidth maxHeight resizeToMaxV resizeToMaxH m2 subViews restHeight y2 bw|
   771 
   771 
   772     subViews := self subViewsToConsider.
   772     subViews := self subViewsToConsider.
   773     subViews size == 0 ifTrue:[^ self].
   773     subViews isEmptyOrNil ifTrue:[
       
   774         ^ self
       
   775     ].
   774 
   776 
   775     bw := self borderWidth.
   777     bw := self borderWidth.
   776 
   778 
   777 "/    self extentChangedFlag ifTrue:[
   779 "/    self extentChangedFlag ifTrue:[
   778 "/        ext := self computeExtent.
   780 "/        ext := self computeExtent.
  1056     ]
  1058     ]
  1057 
  1059 
  1058     "Modified: / 04-09-1995 / 18:43:29 / claus"
  1060     "Modified: / 04-09-1995 / 18:43:29 / claus"
  1059     "Modified: / 10-10-2007 / 13:47:56 / cg"
  1061     "Modified: / 10-10-2007 / 13:47:56 / cg"
  1060     "Modified (format): / 20-06-2017 / 10:46:08 / cg"
  1062     "Modified (format): / 20-06-2017 / 10:46:08 / cg"
       
  1063     "Modified: / 24-10-2019 / 16:04:56 / Stefan Vogel"
  1061 ! !
  1064 ! !
  1062 
  1065 
  1063 !VerticalPanelView methodsFor:'queries'!
  1066 !VerticalPanelView methodsFor:'queries'!
  1064 
  1067 
  1065 computePreferredExtent
  1068 computePreferredExtent