equal
deleted
inserted
replaced
1359 |
1359 |
1360 innerWidth := width - textStartLeft - margin. |
1360 innerWidth := width - textStartLeft - margin. |
1361 shown ifFalse:[^ self]. |
1361 shown ifFalse:[^ self]. |
1362 list isNil ifTrue:[^ self]. |
1362 list isNil ifTrue:[^ self]. |
1363 |
1363 |
1364 how ~~ #smaller ifTrue:[self invalidate ]. |
1364 how ~~ #smaller ifTrue:[ |
|
1365 self invalidate |
|
1366 ]. |
1365 |
1367 |
1366 listSize := self numberOfLines. |
1368 listSize := self numberOfLines. |
1367 " |
1369 " |
1368 if we are beyond the end, scroll up a bit |
1370 if we are beyond the end, scroll up a bit |
1369 " |
1371 " |
1374 ]. |
1376 ]. |
1375 self scrollToLine: newOrigin. |
1377 self scrollToLine: newOrigin. |
1376 ^ self |
1378 ^ self |
1377 ]. |
1379 ]. |
1378 |
1380 |
1379 "Modified: 29.5.1996 / 16:19:23 / cg" |
|
1380 "Modified: 18.11.1996 / 19:37:02 / stefan" |
1381 "Modified: 18.11.1996 / 19:37:02 / stefan" |
|
1382 "Modified: 8.2.1997 / 15:18:14 / cg" |
1381 ! ! |
1383 ! ! |
1382 |
1384 |
1383 !ListView methodsFor:'initialization'! |
1385 !ListView methodsFor:'initialization'! |
1384 |
1386 |
1385 create |
1387 create |
3507 ! ! |
3509 ! ! |
3508 |
3510 |
3509 !ListView class methodsFor:'documentation'! |
3511 !ListView class methodsFor:'documentation'! |
3510 |
3512 |
3511 version |
3513 version |
3512 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.122 1997-02-08 11:46:20 cg Exp $' |
3514 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.123 1997-02-08 14:24:59 cg Exp $' |
3513 ! ! |
3515 ! ! |