menu-definition for x-popup-menu

[Klaus Berndl]

I have the following menu-definition for `x-popup-menu'.

(setq menu '((function1 "entry1" (nil) t)
             (nil "---" (nil) t)
             (function2 "entry2" (nil) t)
             (function3 "entry3" (nil) t)))

This works fine with x-popup-menu, i.e. choosing "entry1" returns
'(function1) so i can do (funcall (car ...) ...) to run the chosen
menu-entry.

Now my question:
Can anybody add a simple submenu to the menu above, e.g. directly
after the separator "---" with the submenu-title "submenu-test" and
two simple entries in the form of my examples above?

I can not figuring out how to do this...

Thanks a lot in advance,
Klaus


-- 
Klaus Berndl                    mailto: klaus.berndl@sdm.de
sd&m AG                         http://www.sdm.de
software design & management    
Thomas-Dehler-Str. 27, 81737 München, Germany
Tel +49 89 63812-392, Fax -220