equal
deleted
inserted
replaced
2517 fgId bgId noColor allColor allBits dx dy |
2517 fgId bgId noColor allColor allBits dx dy |
2518 pX pY deviceDepth deviceForm deviceFormGCId map savForeground savBackground |
2518 pX pY deviceDepth deviceForm deviceFormGCId map savForeground savBackground |
2519 paintClr bgPaintClr| |
2519 paintClr bgPaintClr| |
2520 |
2520 |
2521 deviceForm := aFormOrImage asFormOn:device. |
2521 deviceForm := aFormOrImage asFormOn:device. |
|
2522 deviceForm isNil ifTrue:[ |
|
2523 Logger warning:'invalid form draw (no device form) - ignored'. |
|
2524 ^ self |
|
2525 ]. |
2522 id := deviceForm drawableId. |
2526 id := deviceForm drawableId. |
2523 |
2527 |
2524 "temporary ..." |
2528 "temporary ..." |
2525 (id isNil or:[aFormOrImage graphicsDevice ~~ device]) ifTrue:[ |
2529 (id isNil or:[aFormOrImage graphicsDevice ~~ device]) ifTrue:[ |
2526 deviceForm := deviceForm asFormOn:device. |
2530 deviceForm := deviceForm asFormOn:device. |
2837 " |
2841 " |
2838 foreground := nil. |
2842 foreground := nil. |
2839 background := nil. |
2843 background := nil. |
2840 |
2844 |
2841 "Modified: / 31-08-2017 / 19:35:55 / cg" |
2845 "Modified: / 31-08-2017 / 19:35:55 / cg" |
|
2846 "Modified: / 06-09-2017 / 12:31:45 / Maren" |
2842 ! |
2847 ! |
2843 |
2848 |
2844 displayDeviceOpaqueString:aStringArg from:index1 to:index2 in:fontArg x:x y:y |
2849 displayDeviceOpaqueString:aStringArg from:index1 to:index2 in:fontArg x:x y:y |
2845 "draw a substring at the coordinate x/y - draw foreground pixels in |
2850 "draw a substring at the coordinate x/y - draw foreground pixels in |
2846 paint-color and background pixels in bgPaint-color. |
2851 paint-color and background pixels in bgPaint-color. |