equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
2 COPYRIGHT (c) 1995 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 |
136 DefaultGreen notNil ifTrue:[^ DefaultGreen]. |
134 DefaultGreen notNil ifTrue:[^ DefaultGreen]. |
137 ^ Color red:0 green:80 blue:20 |
135 ^ Color red:0 green:80 blue:20 |
138 ! |
136 ! |
139 |
137 |
140 defaultIcon |
138 defaultIcon |
141 "return a smalltalk/X icon. |
139 "return a Smalltalk/X icon. |
142 Can be redefined in custom subclasses." |
140 Can be redefined in custom subclasses." |
143 |
141 |
144 <resource: #programImage> |
142 <resource: #programImage> |
145 |
143 |
146 ^ Icon stxIconTransparent3. |
144 ^ Icon stxIconTransparent3. |