equal
deleted
inserted
replaced
1579 |
1579 |
1580 displayOn:aGCOrStream |
1580 displayOn:aGCOrStream |
1581 "ST-80 compatibility: (re-)display myself" |
1581 "ST-80 compatibility: (re-)display myself" |
1582 |
1582 |
1583 "/ what a kludge - Dolphin and Squeak mean: printOn:; |
1583 "/ what a kludge - Dolphin and Squeak mean: printOn:; |
1584 "/ ST/X (and some old ST80's) mean: draw-yourself on. |
1584 "/ old ST80 means: draw-yourself on a GC. |
1585 (aGCOrStream isStream) ifTrue:[ |
1585 (aGCOrStream isStream) ifTrue:[ |
1586 ^ super displayOn:aGCOrStream |
1586 ^ super displayOn:aGCOrStream |
1587 ]. |
1587 ]. |
1588 self redraw |
1588 self redraw |
1589 |
1589 |
1590 "Created: 4.6.1996 / 21:25:59 / cg" |
1590 "Created: / 04-06-1996 / 21:25:59 / cg" |
1591 "Modified: 10.1.1997 / 19:46:58 / cg" |
1591 "Modified: / 10-01-1997 / 19:46:58 / cg" |
|
1592 "Modified (comment): / 22-02-2017 / 16:52:00 / cg" |
1592 ! |
1593 ! |
1593 |
1594 |
1594 displayPendingInvalidation |
1595 displayPendingInvalidation |
1595 "dummy - for ST-80 compatibility" |
1596 "dummy - for ST-80 compatibility" |
1596 |
1597 |