summaryrefslogtreecommitdiffstats
path: root/packages/notebook.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'packages/notebook.tcl')
-rw-r--r--packages/notebook.tcl9
1 files changed, 9 insertions, 0 deletions
diff --git a/packages/notebook.tcl b/packages/notebook.tcl
new file mode 100644
index 0000000..c0cc159
--- /dev/null
+++ b/packages/notebook.tcl
@@ -0,0 +1,9 @@
+# this fragment taken from BWidget 1.8 release
+proc NoteBook::bindtabs { path event script } {
+ if { $script != "" } {
+ append script " \[NoteBook::_get_page_name [list $path] current 1\]"
+ $path.c bind "page" $event $script
+ } else {
+ $path.c bind "page" $event {}
+ }
+}