1250 contentsChanged |
1250 contentsChanged |
1251 "contents changed - move origin up if possible" |
1251 "contents changed - move origin up if possible" |
1252 |
1252 |
1253 |listSize newOrigin| |
1253 |listSize newOrigin| |
1254 |
1254 |
1255 shown ifFalse:[^ self]. |
1255 shown ifTrue:[ |
1256 list isNil ifTrue:[^ self]. |
1256 list notNil ifTrue:[ |
1257 |
1257 |
1258 listSize := self numberOfLines. |
1258 listSize := self numberOfLines. |
1259 " |
1259 " |
1260 if we are beyond the end, scroll up a bit |
1260 if we are beyond the end, scroll up a bit |
1261 " |
1261 " |
1262 ((firstLineShown + nFullLinesShown) > listSize) ifTrue:[ |
1262 ((firstLineShown + nFullLinesShown) > listSize) ifTrue:[ |
1263 newOrigin := listSize - nFullLinesShown + 1. |
1263 newOrigin := listSize - nFullLinesShown + 1. |
1264 newOrigin < 1 ifTrue:[ |
1264 newOrigin < 1 ifTrue:[ |
1265 newOrigin := 1 |
1265 newOrigin := 1 |
|
1266 ]. |
|
1267 self scrollToLine: newOrigin. |
|
1268 ]. |
1266 ]. |
1269 ]. |
1267 self scrollToLine: newOrigin. |
|
1268 ]. |
1270 ]. |
1269 |
1271 |
1270 ^ super contentsChanged |
1272 ^ super contentsChanged |
1271 |
1273 |
1272 "Modified: 18.11.1996 / 19:50:07 / stefan" |
1274 "Modified: 18.11.1996 / 19:50:07 / stefan" |
|
1275 "Modified: 21.11.1996 / 17:43:55 / cg" |
1273 ! |
1276 ! |
1274 |
1277 |
1275 keyPress:key x:x y:y |
1278 keyPress:key x:x y:y |
1276 "a key was pressed - handle page-keys here" |
1279 "a key was pressed - handle page-keys here" |
1277 |
1280 |