equal
deleted
inserted
replaced
2523 fetchDeviceResources |
2523 fetchDeviceResources |
2524 "fetch device colors, to avoid reallocation at redraw time" |
2524 "fetch device colors, to avoid reallocation at redraw time" |
2525 |
2525 |
2526 super fetchDeviceResources. |
2526 super fetchDeviceResources. |
2527 |
2527 |
2528 hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor on:device]. |
2528 hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor onDevice:device]. |
2529 hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor on:device]. |
2529 hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor onDevice:device]. |
2530 halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor on:device]. |
2530 halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor onDevice:device]. |
2531 hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor on:device]. |
2531 hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor onDevice:device]. |
2532 |
2532 |
2533 "Created: 14.1.1997 / 00:11:13 / cg" |
2533 "Created: 14.1.1997 / 00:11:13 / cg" |
2534 ! |
2534 ! |
2535 |
2535 |
2536 initCursor |
2536 initCursor |
3046 fg := halfIntensityFgColor |
3046 fg := halfIntensityFgColor |
3047 ]. |
3047 ]. |
3048 (self line:listLine hasAttribute:#bold) ifTrue:[ |
3048 (self line:listLine hasAttribute:#bold) ifTrue:[ |
3049 newFont := font asBold. |
3049 newFont := font asBold. |
3050 (font bold |
3050 (font bold |
3051 or:[id := (newFont on:device) fontId. |
3051 or:[id := (newFont onDevice:device) fontId. |
3052 id isNil]) |
3052 id isNil]) |
3053 ifTrue:[ |
3053 ifTrue:[ |
3054 " |
3054 " |
3055 mhmh - what can be done, if the font is already bold ? |
3055 mhmh - what can be done, if the font is already bold ? |
3056 or no such font is available |
3056 or no such font is available |
3613 ! ! |
3613 ! ! |
3614 |
3614 |
3615 !SelectionInListView class methodsFor:'documentation'! |
3615 !SelectionInListView class methodsFor:'documentation'! |
3616 |
3616 |
3617 version |
3617 version |
3618 ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.149 1999-07-26 08:43:18 cg Exp $' |
3618 ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.150 1999-08-18 14:36:27 cg Exp $' |
3619 ! ! |
3619 ! ! |