equal
deleted
inserted
replaced
1516 |
1516 |
1517 initGC |
1517 initGC |
1518 "stop server from sending exposure events for Forms - |
1518 "stop server from sending exposure events for Forms - |
1519 (will fill up stream-queue on some stupid (i.e. sco) systems" |
1519 (will fill up stream-queue on some stupid (i.e. sco) systems" |
1520 |
1520 |
|
1521 |gcId| |
|
1522 |
1521 "/ depth-1 forms draw differently ... |
1523 "/ depth-1 forms draw differently ... |
1522 |
|
1523 depth == 1 ifTrue:[ |
1524 depth == 1 ifTrue:[ |
1524 |fg bg| |
1525 |fg bg| |
1525 self foreground isNil ifTrue:[ |
1526 self foreground isNil ifTrue:[ |
1526 fg := Color colorId:1. |
1527 fg := Color colorId:1. |
1527 ]. |
1528 ]. |
1528 self background isNil ifTrue:[ |
1529 self background isNil ifTrue:[ |
1529 bg := Color colorId:0 |
1530 bg := Color colorId:0 |
1530 ]. |
1531 ]. |
1531 "nil colors will not be set" |
1532 "nil colors will not be set" |
1532 self setPaint:fg on:bg. |
1533 self setPaint:fg on:bg. |
1533 ]. |
1534 ]. |
1534 super initGC. |
1535 gcId := super initGC. |
1535 self setGraphicsExposures:false |
1536 self setGraphicsExposures:false. |
|
1537 ^ gcId. |
1536 |
1538 |
1537 "Modified: 17.7.1996 / 13:21:24 / cg" |
1539 "Modified: 17.7.1996 / 13:21:24 / cg" |
1538 ! |
1540 ! |
1539 |
1541 |
1540 initialize |
1542 initialize |