equal
deleted
inserted
replaced
23 |
23 |
24 !InfoBox class methodsFor:'documentation'! |
24 !InfoBox class methodsFor:'documentation'! |
25 |
25 |
26 version |
26 version |
27 " |
27 " |
28 $Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.12 1995-03-06 19:28:49 claus Exp $ |
28 $Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.13 1995-03-20 11:49:23 claus Exp $ |
29 " |
29 " |
30 ! |
30 ! |
31 |
31 |
32 documentation |
32 documentation |
33 " |
33 " |
163 iconBitmap |
163 iconBitmap |
164 "return the bitmap shown as icon in my instances. |
164 "return the bitmap shown as icon in my instances. |
165 The form is cached and reused, for faster opening." |
165 The form is cached and reused, for faster opening." |
166 |
166 |
167 InfoBitmap isNil ifTrue:[ |
167 InfoBitmap isNil ifTrue:[ |
168 InfoBitmap := (Image fromFile:'bitmaps/Information.xbm') on:Display |
168 InfoBitmap := Image fromFile:'bitmaps/Information.xbm'. |
|
169 InfoBitmap notNil ifTrue:[ |
|
170 InfoBitmap := InfoBitmap on:Display |
|
171 ] |
169 ]. |
172 ]. |
170 ^ InfoBitmap |
173 ^ InfoBitmap |
171 ! ! |
174 ! ! |
172 |
175 |
173 !InfoBox class methodsFor:'styles'! |
176 !InfoBox class methodsFor:'styles'! |