Tk Library Source Code

Artifact [81e14637cb]
Login

Artifact 81e14637cb61cf68e282a8e8e9cb65b4f6d179af:

Attachment "notebook.patch" to ticket [2814050fff] added by danckaert 2009-06-29 22:30:53.
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
 }