Index: notebook.tcl
===================================================================
RCS file: /target/staff/koen/.cvsroot/bwidget/notebook.tcl,v
retrieving revision 1.1.1.2
diff -b -u -r1.1.1.2 notebook.tcl
--- notebook.tcl	9 Nov 2006 11:34:59 -0000	1.1.1.2
+++ notebook.tcl	2 Oct 2008 08:48:33 -0000
@@ -1,7 +1,7 @@
 # ---------------------------------------------------------------------------
 #  notebook.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: notebook.tcl,v 1.1.1.2 2006/11/09 11:34:59 koen Exp $
+#  $Id: notebook.tcl,v 1.3 2006/11/09 13:38:48 koen Exp $
 # ---------------------------------------------------------------------------
 #  Index of commands:
 #     - NoteBook::create
@@ -503,6 +503,7 @@
          $state == "disabled" && $data(select) == $page } {
         set data(select) ""
     }
+    _set_help $path $page
     return $res
 }
 
