equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2415 self destroy |
2413 self destroy |
2416 |
2414 |
2417 "Created: 2.4.1997 / 19:31:27 / cg" |
2415 "Created: 2.4.1997 / 19:31:27 / cg" |
2418 ! |
2416 ! |
2419 |
2417 |
|
2418 defaultFont |
|
2419 ^ self class defaultFont |
|
2420 ! |
|
2421 |
2420 destroy |
2422 destroy |
2421 "destroy a medium - here the gc is completely destroyed" |
2423 "destroy a medium - here the gc is completely destroyed" |
2422 |
2424 |
2423 gc notNil ifTrue:[ |
2425 gc notNil ifTrue:[ |
2424 gc destroy. |
2426 gc destroy. |