--- a/ActiveHelpView.st	Mon Dec 09 11:44:15 2002 +0100
+++ b/ActiveHelpView.st	Mon Dec 09 18:49:35 2002 +0100
@@ -65,9 +65,35 @@
 for:someText
     "create a bubble-view for some text"
 
+    ^ self for:someText onDevice:Screen current.
+
+    "
+     |v|
+
+     v := (ActiveHelpView for:'hello world\this is an ActiveHelpView' withCRs) shapeStyle:nil.
+     v realize.
+     Delay waitForSeconds:2.
+     v destroy
+    "
+
+    "
+     |v|
+
+     v := (ActiveHelpView for:'hello world\this is an ActiveHelpView' withCRs) shapeStyle:#cartoon.
+     v realize.
+     Delay waitForSeconds:2.
+     v destroy
+    "
+
+    "Modified: 28.6.1997 / 14:24:23 / cg"
+!
+
+for:someText onDevice:aDevice
+    "create a bubble-view for some text"
+
     |helpView textView|
 
-    helpView := self new.
+    helpView := self on:aDevice.
 
     textView := Label new.
     textView font:(helpView font onDevice:textView graphicsDevice).
@@ -334,5 +360,5 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.26 2002-07-25 16:11:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.27 2002-12-09 17:49:35 cg Exp $'
 ! !