aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2011-01-19 22:58:40 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2011-01-19 22:58:40 +0000
commitd8c406b903894acff44516702654e2a6aac3ccb8 (patch)
treea76aba58976e24567b9ec81ca9d9757db825d380
parent3a76b8af8364d0ec5e226003213bf26a79b3a284 (diff)
fixed bug where quoted items with a space were displayed with surrounding {}HEADsvn2git-headscripts/guiplugins/category_menu-plugin
svn path=/trunk/scripts/guiplugins/category_menu-plugin/; revision=14763
-rw-r--r--category_menu-plugin.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/category_menu-plugin.tcl b/category_menu-plugin.tcl
index cd95eec..8e21e78 100644
--- a/category_menu-plugin.tcl
+++ b/category_menu-plugin.tcl
@@ -26,7 +26,7 @@ proc category_menu::create {mymenu} {
menu $mymenu.$category
$mymenu add cascade -label $category -menu $mymenu.$category
foreach subcategorylist [lrange $categorylist 1 end] {
- set subcategory [lrange $subcategorylist 0 end-1]
+ set subcategory [lindex $subcategorylist 0]
menu $mymenu.$category.$subcategory
$mymenu.$category add cascade -label $subcategory -menu $mymenu.$category.$subcategory
foreach item [lindex $subcategorylist end] {