--- a/TriggerBox.st	Thu Sep 19 13:03:14 2013 +0200
+++ b/TriggerBox.st	Thu Sep 19 13:47:48 2013 +0200
@@ -82,6 +82,18 @@
                                                                         [exEnd]
 
 
+  using a trigger channel instead of a callback:
+                                                                        [exBegin]
+     |b holder|
+
+     holder := TriggerValue new.
+     holder onChangeEvaluate:[ Transcript showCR:'changed'].
+     b := TriggerBox label:'foo'.
+     b triggerChannel:holder.
+     b open
+                                                                        [exEnd]
+
+
   changing colors 
                                                                         [exBegin]
      |panel b|
@@ -130,6 +142,12 @@
 "
 ! !
 
+!TriggerBox methodsFor:'accessing - model'!
+
+triggerChannel:aValueHolder
+    toggleView controller pressChannel:aValueHolder.
+! !
+
 !TriggerBox methodsFor:'initialization & release'!
 
 defaultCheckToggleClass
@@ -157,10 +175,10 @@
 !TriggerBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TriggerBox.st,v 1.1 2013-09-19 11:02:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TriggerBox.st,v 1.2 2013-09-19 11:47:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TriggerBox.st,v 1.1 2013-09-19 11:02:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TriggerBox.st,v 1.2 2013-09-19 11:47:48 cg Exp $'
 ! !