SelectionInListModelView.st
changeset 4796 6c35c2439ca3
parent 4702 e7e4cf796487
child 4873 576dc9a44d18
equal deleted inserted replaced
4795:eead012852f9 4796:6c35c2439ca3
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1999 by eXept Software AG
     4  COPYRIGHT (c) 1999 by eXept Software AG
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  2245 
  2247 
  2246     cachedLinesY := self startOfLinesY.
  2248     cachedLinesY := self startOfLinesY.
  2247     cachedMaxIdx := cachedLinesY size.
  2249     cachedMaxIdx := cachedLinesY size.
  2248     cachedMaxIdx == 0 ifTrue:[ ^ 0 ].
  2250     cachedMaxIdx == 0 ifTrue:[ ^ 0 ].
  2249 
  2251 
  2250     y1 := cachedLinesY at:cachedMaxIdx.
  2252     "/ !!!! cachedLinesY at:cachedMaxIdx might return nil (async reorg)
       
  2253     y1 := cachedLinesY at:cachedMaxIdx ifAbsent:nil.
       
  2254     y1 isNil ifTrue:[^ 0 ]. "/ is under construction due ro async. events
  2251 
  2255 
  2252     (minimumEditorHeight notNil and:[openEditorAction notNil]) ifTrue:[
  2256     (minimumEditorHeight notNil and:[openEditorAction notNil]) ifTrue:[
  2253         y0 := cachedLinesY at:(cachedMaxIdx - 1) ifAbsent:0.
  2257         y0 := cachedLinesY at:(cachedMaxIdx - 1) ifAbsent:0.
  2254         y1 := y0 + ((y1 - y0) max:minimumEditorHeight).
  2258         y1 := y0 + ((y1 - y0) max:minimumEditorHeight).
  2255     ].
  2259     ].
  2821 ! !
  2825 ! !
  2822 
  2826 
  2823 !SelectionInListModelView class methodsFor:'documentation'!
  2827 !SelectionInListModelView class methodsFor:'documentation'!
  2824 
  2828 
  2825 version
  2829 version
  2826     ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.177 2015-02-01 13:14:45 cg Exp $'
  2830     ^ '$Header$'
  2827 !
  2831 !
  2828 
  2832 
  2829 version_CVS
  2833 version_CVS
  2830     ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.177 2015-02-01 13:14:45 cg Exp $'
  2834     ^ '$Header$'
  2831 ! !
  2835 ! !
  2832 
  2836