Index: doc/example-scripts/tk-locomotive.html
===================================================================
diff -u -N -rc2374366bcb47c70ebd33cb16c8152eba783987f -r7c692cef773e19f9da59bef6498ba673cdff468e
--- doc/example-scripts/tk-locomotive.html	(.../tk-locomotive.html)	(revision c2374366bcb47c70ebd33cb16c8152eba783987f)
+++ doc/example-scripts/tk-locomotive.html	(.../tk-locomotive.html)	(revision 7c692cef773e19f9da59bef6498ba673cdff468e)
@@ -769,6 +769,7 @@
 </style>
 <pre class='nx'><span class='nx-keyword'>package</span> <span class='nx-keyword'>require</span> Tk
 <span class='nx-keyword'>package</span> <span class='nx-keyword'>require</span> nx
+<span class='nx-keyword'>package</span> <span class='nx-keyword'>require</span> nx::trait
 
 <span class='nx-keyword'>nx::Class</span> <span class='nx-keyword'>create</span> Wheel {
   <span class='nx-keyword'>:property</span> x
@@ -842,6 +843,8 @@
 <span class='nx-keyword'>nx::Class</span> <span class='nx-keyword'>create</span> Locomotive {
   <span class='nx-keyword'>:property</span> {speed 4}
 
+  <span class='nx-keyword'>:require</span> trait nx::traits::callback
+
   <span class='nx-keyword'>:method</span> turn {} {
     <span class='nx-keyword'>set</span> :alpha [<span class='nx-keyword'>expr</span> {round(<span class='nx-variable'>${</span><span class='nx-variable'>:alpha}</span> + 360 - <span class='nx-variable'>${</span><span class='nx-variable'>:speed}</span>) % 360}]
     <span class='nx-keyword'>foreach</span> i [<span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> find withtag counterweight] {
@@ -903,9 +906,9 @@
     <span class='nx-keyword'>set</span> :c [canvas .c -width 600 -height 160 -background lightblue]
     pack <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span>
 
-    bind <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <b>&lt;1&gt;</b> [<span class='nx-keyword'>list</span> [<span class='nx-keyword'>self</span>] throttle]
-    bind <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <b>&lt;2&gt;</b> [<span class='nx-keyword'>list</span> [<span class='nx-keyword'>self</span>] <span class='nx-keyword'>break</span>]
-    bind <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <b>&lt;3&gt;</b> [<span class='nx-keyword'>list</span> [<span class='nx-keyword'>self</span>] emergencyBreak]
+    bind <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <b>&lt;1&gt;</b> [:callback throttle]
+    bind <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <b>&lt;2&gt;</b> [:callback <span class='nx-keyword'>break</span>]
+    bind <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <b>&lt;3&gt;</b> [:callback emergencyBreak]
 
     <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>delete</span> all
     <span class='nx-variable'>${</span><span class='nx-variable'>:c}</span> <span class='nx-keyword'>create</span> rect 32 115 360 125 -fill black ;<span class='nx-comment'># frame
@@ -958,7 +961,7 @@
 <div id="footnotes"><hr /></div>
 <div id="footer">
 <div id="footer-text">
-Last updated 2013-06-07 09:47:50 CEST
+Last updated 2013-07-26 01:01:36 IST
 </div>
 </div>
 </body>
Index: doc/example-scripts/tk-locomotive.tcl
===================================================================
diff -u -N -rc2374366bcb47c70ebd33cb16c8152eba783987f -r7c692cef773e19f9da59bef6498ba673cdff468e
--- doc/example-scripts/tk-locomotive.tcl	(.../tk-locomotive.tcl)	(revision c2374366bcb47c70ebd33cb16c8152eba783987f)
+++ doc/example-scripts/tk-locomotive.tcl	(.../tk-locomotive.tcl)	(revision 7c692cef773e19f9da59bef6498ba673cdff468e)
@@ -11,6 +11,7 @@
 #
 package require Tk
 package require nx
+package require nx::trait
 
 nx::Class create Wheel {
   :property x 
@@ -84,6 +85,8 @@
 nx::Class create Locomotive {
   :property {speed 4}
 
+  :require trait nx::traits::callback
+
   :method turn {} {
     set :alpha [expr {round(${:alpha} + 360 - ${:speed}) % 360}]
     foreach i [${:c} find withtag counterweight] {
@@ -145,9 +148,9 @@
     set :c [canvas .c -width 600 -height 160 -background lightblue]
     pack ${:c}
 
-    bind ${:c} <1> [list [self] throttle]
-    bind ${:c} <2> [list [self] break]
-    bind ${:c} <3> [list [self] emergencyBreak]
+    bind ${:c} <1> [:callback throttle]
+    bind ${:c} <2> [:callback break]
+    bind ${:c} <3> [:callback emergencyBreak]
     
     ${:c} delete all
     ${:c} create rect 32 115 360 125 -fill black ;# frame