Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20328
Modified Files: Tag: devel_0_39 desire.tk Log Message: unbroke menus, sorry
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.279 retrieving revision 1.1.2.280 diff -C2 -d -r1.1.2.279 -r1.1.2.280 *** desire.tk 4 Jul 2006 03:11:18 -0000 1.1.2.279 --- desire.tk 4 Jul 2006 16:25:35 -0000 1.1.2.280 *************** *** 738,742 **** if {[string index $menu 0]!="."} {set menu .$self.m.$menu} foreach name $list { ! if {$name == ""} {$menu add separator; return} $menu add command -label [say $name] -command "$self $name" \ -accelerator [accel_munge $key($name)] --- 738,742 ---- if {[string index $menu 0]!="."} {set menu .$self.m.$menu} foreach name $list { ! if {$name == ""} {$menu add separator; continue} $menu add command -label [say $name] -command "$self $name" \ -accelerator [accel_munge $key($name)]