equal
deleted
inserted
replaced
1389 defaultControllerClass |
1389 defaultControllerClass |
1390 self class == ListView ifTrue:[^ ListViewController]. |
1390 self class == ListView ifTrue:[^ ListViewController]. |
1391 ^ super defaultControllerClass |
1391 ^ super defaultControllerClass |
1392 ! |
1392 ! |
1393 |
1393 |
|
1394 fetchDeviceResources |
|
1395 "fetch device colors, to avoid reallocation at redraw time" |
|
1396 |
|
1397 super fetchDeviceResources. |
|
1398 |
|
1399 fgColor notNil ifTrue:[fgColor := fgColor on:device]. |
|
1400 bgColor notNil ifTrue:[bgColor := bgColor on:device]. |
|
1401 |
|
1402 "Created: 14.1.1997 / 00:12:12 / cg" |
|
1403 ! |
|
1404 |
1394 initStyle |
1405 initStyle |
1395 super initStyle. |
1406 super initStyle. |
1396 |
1407 |
1397 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device] |
1408 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device] |
1398 |
1409 |
1399 self topMargin:(self verticalPixelPerMillimeter:0.5) rounded. |
1410 self topMargin:(self verticalPixelPerMillimeter:0.5) rounded. |
1400 self leftMargin:(self horizontalPixelPerMillimeter:0.5) rounded. |
1411 self leftMargin:(self horizontalPixelPerMillimeter:0.5) rounded. |
1401 |
1412 |
1402 lineSpacing := 0. |
1413 lineSpacing := 0. |
1403 fgColor := DefaultForegroundColor on:device. |
1414 fgColor := DefaultForegroundColor. |
1404 bgColor := DefaultBackgroundColor on:device. |
1415 bgColor := DefaultBackgroundColor. |
|
1416 |
|
1417 "Modified: 14.1.1997 / 00:12:19 / cg" |
1405 ! |
1418 ! |
1406 |
1419 |
1407 initialize |
1420 initialize |
1408 super initialize. |
1421 super initialize. |
1409 |
1422 |
3472 ! ! |
3485 ! ! |
3473 |
3486 |
3474 !ListView class methodsFor:'documentation'! |
3487 !ListView class methodsFor:'documentation'! |
3475 |
3488 |
3476 version |
3489 version |
3477 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.115 1997-01-07 19:33:21 cg Exp $' |
3490 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.116 1997-01-13 23:12:53 cg Exp $' |
3478 ! ! |
3491 ! ! |