From 785c608efa3c041692ddc5a0ce2c069df03294d8 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 19 Jan 2011 21:53:38 +0000
Subject: try to make it more user friendly by using list logic

svn path=/trunk/scripts/guiplugins/category_menu-plugin/; revision=14761
---
 category_menu-plugin.tcl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/category_menu-plugin.tcl b/category_menu-plugin.tcl
index a5821e1..dc9f020 100644
--- a/category_menu-plugin.tcl
+++ b/category_menu-plugin.tcl
@@ -1,3 +1,6 @@
+# This plug generates a menu tree for selecting objects from a single
+# structured textfile.  The format of the textfile is nested Tcl lists
+# defined using {} brackets.
 
 package require pd_menus
 
@@ -15,21 +18,17 @@ proc category_menu::load_menutree {} {
 }
 
 proc category_menu::create {mymenu} {
-    pdtk_post "category menu plugin\n"
     set menutree [load_menutree]
-
     $mymenu add separator
     foreach categorylist $menutree {
         set category [lindex $categorylist 0]
         menu $mymenu.$category
         $mymenu add cascade -label $category -menu $mymenu.$category
         foreach subcategorylist [lrange $categorylist 1 end] {
-            set subcategory [lindex $subcategorylist 0]
+            set subcategory [lrange $subcategorylist 0 end-1]
             menu $mymenu.$category.$subcategory
             $mymenu.$category add cascade -label $subcategory -menu $mymenu.$category.$subcategory
-            pdtk_post "subcategorylist: $subcategorylist\n"
-            foreach item [lindex $subcategorylist 1] {
-                pdtk_post "item: $item\n"
+            foreach item [lindex $subcategorylist end] {
                 $mymenu.$category.$subcategory add command -label $item \
                     -command "pdsend \"\$::focused_window obj \$::popup_xcanvas \$::popup_ycanvas $item\""
             }
-- 
cgit v1.2.1