equal
deleted
inserted
replaced
91 for:someText onDevice:aDevice |
91 for:someText onDevice:aDevice |
92 "create a bubble-view for some text" |
92 "create a bubble-view for some text" |
93 |
93 |
94 |helpView textView| |
94 |helpView textView| |
95 |
95 |
96 helpView := self on:aDevice. |
96 helpView := self onDevice:aDevice. |
97 |
97 |
98 textView := Label new. |
98 textView := Label onDevice:aDevice. |
99 textView font:(helpView font onDevice:textView graphicsDevice). |
99 textView font:(helpView font onDevice:textView graphicsDevice). |
100 ^ (helpView withView:textView) contents:someText |
100 ^ (helpView withView:textView) contents:someText |
101 |
101 |
102 " |
102 " |
103 |v| |
103 |v| |
358 ! ! |
358 ! ! |
359 |
359 |
360 !ActiveHelpView class methodsFor:'documentation'! |
360 !ActiveHelpView class methodsFor:'documentation'! |
361 |
361 |
362 version |
362 version |
363 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.27 2002-12-09 17:49:35 cg Exp $' |
363 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.28 2003-03-12 11:33:45 stefan Exp $' |
364 ! ! |
364 ! ! |