Artifact
2a4e986fb013b9b753d2a2462a69016668f7b55f:
Attachment "BWidget-1.7.0.patch" to
ticket [886304ffff]
added by
donp1
2004-01-28 23:57:54.
diff -ruN BWidget-1.7.0_old/notebook.tcl BWidget-1.7.0/notebook.tcl
--- BWidget-1.7.0_old/notebook.tcl 2004-01-28 11:59:04.485484720 -0500
+++ BWidget-1.7.0/notebook.tcl 2004-01-28 11:58:37.267622464 -0500
@@ -1158,5 +1158,5 @@
proc NoteBook::_get_page_name { path {item current} {tagindex end-1} } {
- return [string range [lindex [$path.c gettags $item] $tagindex] 2 end]
+ return [string range [lindex [$path.c gettags $item] $tagindex] 0 end]
}
