From 47be9ff57e72906660bb62a515222f482131e1fb Mon Sep 17 00:00:00 2001
From: Miroslav Grepl <mgrepl@redhat.com>
Date: Fri, 11 Apr 2014 09:37:53 +0200
Subject: Create setools-3.3.7 git repo

---
 packages/notebook.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 packages/notebook.tcl

(limited to 'packages/notebook.tcl')

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 {}
+    }
+}
-- 
cgit