DSVColumnView.st
changeset 896 aa07612a7c04
parent 892 1cc1d52d1176
child 988 d077faaade27
equal deleted inserted replaced
895:d1c9210e796b 896:aa07612a7c04
  1441     "search row in column at x/y starting its printable label with cahracter.
  1441     "search row in column at x/y starting its printable label with cahracter.
  1442     "
  1442     "
  1443     |colNr rowNr lsize found column|
  1443     |colNr rowNr lsize found column|
  1444 
  1444 
  1445     (rowIfAbsentBlock notNil 
  1445     (rowIfAbsentBlock notNil 
  1446      or:[(colNr := self xVisibleToColNr:x) isNil]) ifTrue:[
  1446      or:[x isNil
       
  1447      or:[(colNr := self xVisibleToColNr:x) isNil]]) ifTrue:[
  1447         ^ self
  1448         ^ self
  1448     ].
  1449     ].
  1449     rowNr  := self lastIndexSelected.
  1450     rowNr  := self lastIndexSelected.
  1450     lsize  := self size.
  1451     lsize  := self size.
  1451     column := self columnAt:colNr.
  1452     column := self columnAt:colNr.
  1462     ].
  1463     ].
  1463     found ~~ 0 ifTrue:[
  1464     found ~~ 0 ifTrue:[
  1464         self selectColIndex:colNr rowIndex:found.
  1465         self selectColIndex:colNr rowIndex:found.
  1465     ].
  1466     ].
  1466 
  1467 
  1467     "Modified: / 21.4.1998 / 20:41:25 / cg"
  1468     "Modified: / 21.5.1998 / 03:30:22 / cg"
  1468 !
  1469 !
  1469 
  1470 
  1470 contentsChanged
  1471 contentsChanged
  1471     "contents changed - move origin up if possible
  1472     "contents changed - move origin up if possible
  1472     "
  1473     "
  2656 ! !
  2657 ! !
  2657 
  2658 
  2658 !DSVColumnView class methodsFor:'documentation'!
  2659 !DSVColumnView class methodsFor:'documentation'!
  2659 
  2660 
  2660 version
  2661 version
  2661     ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.38 1998-05-20 07:38:45 ca Exp $'
  2662     ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.39 1998-05-21 01:45:40 cg Exp $'
  2662 ! !
  2663 ! !