From d8c406b903894acff44516702654e2a6aac3ccb8 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Wed, 19 Jan 2011 22:58:40 +0000 Subject: fixed bug where quoted items with a space were displayed with surrounding {} svn path=/trunk/scripts/guiplugins/category_menu-plugin/; revision=14763 --- category_menu-plugin.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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] { -- cgit v1.2.1