diff options
author | Miroslav Grepl <mgrepl@redhat.com> | 2014-04-11 09:37:53 +0200 |
---|---|---|
committer | Miroslav Grepl <mgrepl@redhat.com> | 2014-04-11 09:37:53 +0200 |
commit | 47be9ff57e72906660bb62a515222f482131e1fb (patch) | |
tree | 2cb0ef0ba48d73b1df7cc0915754a17e19464bb6 /packages/notebook.tcl | |
download | setools-master.tar.gz setools-master.tar.xz setools-master.zip |
Create setools-3.3.7 git repomaster
Diffstat (limited to 'packages/notebook.tcl')
-rw-r--r-- | packages/notebook.tcl | 9 |
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 {} + } +} |