equal
deleted
inserted
replaced
3272 This method is sent, when the first drawing happens" |
3272 This method is sent, when the first drawing happens" |
3273 |
3273 |
3274 |fgId bgId p| |
3274 |fgId bgId p| |
3275 |
3275 |
3276 gcId notNil ifTrue:[^ self]. |
3276 gcId notNil ifTrue:[^ self]. |
|
3277 drawableId isNil ifTrue:[ |
|
3278 self error:'drawing on non-realized drawable'. |
|
3279 ^ self |
|
3280 ]. |
3277 self createGC. |
3281 self createGC. |
3278 |
3282 |
3279 foreground isNil ifTrue:[foreground := device blackColor]. |
3283 foreground isNil ifTrue:[foreground := device blackColor]. |
3280 background isNil ifTrue:[background := device whiteColor]. |
3284 background isNil ifTrue:[background := device whiteColor]. |
3281 |
3285 |
3348 "/ id := font fontId. |
3352 "/ id := font fontId. |
3349 "/ id notNil ifTrue:[ |
3353 "/ id notNil ifTrue:[ |
3350 "/ device setFont:id in:gcId |
3354 "/ device setFont:id in:gcId |
3351 "/ ] |
3355 "/ ] |
3352 |
3356 |
3353 "Modified: 19.3.1997 / 11:06:21 / cg" |
3357 "Modified: 2.4.1997 / 15:50:04 / cg" |
3354 ! |
3358 ! |
3355 |
3359 |
3356 initialize |
3360 initialize |
3357 "setup everything for later use; actual work is done in |
3361 "setup everything for later use; actual work is done in |
3358 initColors and initFont, which are usually redefined." |
3362 initColors and initFont, which are usually redefined." |
3572 ! ! |
3576 ! ! |
3573 |
3577 |
3574 !DeviceGraphicsContext class methodsFor:'documentation'! |
3578 !DeviceGraphicsContext class methodsFor:'documentation'! |
3575 |
3579 |
3576 version |
3580 version |
3577 ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.33 1997-04-01 21:13:42 cg Exp $' |
3581 ^ '$Header: /cvs/stx/stx/libview/Attic/DevGC.st,v 1.34 1997-04-02 13:50:26 cg Exp $' |
3578 ! ! |
3582 ! ! |
3579 DeviceGraphicsContext initialize! |
3583 DeviceGraphicsContext initialize! |