equal
deleted
inserted
replaced
160 ! |
160 ! |
161 |
161 |
162 withView:aView |
162 withView:aView |
163 "set the component view" |
163 "set the component view" |
164 |
164 |
|
165 |fg| |
|
166 |
165 (aView isKindOf:Label) ifTrue:[ |
167 (aView isKindOf:Label) ifTrue:[ |
166 aView viewBackground:viewBackground. |
168 aView viewBackground:viewBackground. |
167 aView backgroundColor:viewBackground. |
169 aView backgroundColor:viewBackground. |
|
170 (fg := styleSheet colorAt:#'activeHelp.foregroundColor' default:nil) notNil ifTrue:[ |
|
171 aView foregroundColor:fg. |
|
172 ]. |
168 ]. |
173 ]. |
169 self addSubView:aView. |
174 self addSubView:aView. |
170 myView := aView. |
175 myView := aView. |
171 myView borderWidth:0 |
176 myView borderWidth:0 |
172 |
177 |
356 ! ! |
361 ! ! |
357 |
362 |
358 !ActiveHelpView class methodsFor:'documentation'! |
363 !ActiveHelpView class methodsFor:'documentation'! |
359 |
364 |
360 version |
365 version |
361 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.32 2009-11-17 13:30:13 cg Exp $' |
366 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.33 2013-04-26 09:48:00 cg Exp $' |
362 ! |
367 ! |
363 |
368 |
364 version_CVS |
369 version_CVS |
365 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.32 2009-11-17 13:30:13 cg Exp $' |
370 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.33 2013-04-26 09:48:00 cg Exp $' |
366 ! ! |
371 ! ! |
|
372 |