comparison lisp/eos/sun-eos-menubar.el @ 149:538048ae2ab8 r20-3b1

Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
104 "SPARCworks menu will be local (menubar is buffer-local); proceed?"))) 104 "SPARCworks menu will be local (menubar is buffer-local); proceed?")))
105 (progn 105 (progn
106 (add-menu-button '("Help") ["SPARCworks..." eos::sw-intro t]) 106 (add-menu-button '("Help") ["SPARCworks..." eos::sw-intro t])
107 (add-submenu nil 107 (add-submenu nil
108 (append '("SPARCworks") (copy-tree eos::short-menu)) 108 (append '("SPARCworks") (copy-tree eos::short-menu))
109 "VC" 109 "Version Control"
110 ) 110 )
111 ))) 111 )))
112 112
113 ;; 113 ;;
114 ;; Insertion of text with a font 114 ;; Insertion of text with a font