Example menu entries

(set!
 font-view-tools
 [list
  (action-entry #:text "Test menu entry" #:background-color #xff0000
                #:image (string-append (getenv "HOME") "/fontforge/fontforge/data/pixmaps/fileexport.png")
                #:action (lambda (view) (format #t "This is a test\n")))
  (separator-line)
  (submenu-entry #:text "Test submenu _9"
                 #:entries
                 [list
                  (action-entry #:text "Test menu entry"
                                #:image (string-append (getenv "HOME")
                                                       "/fontforge/fontforge/data/pixmaps/fileexport.png")
                                #:action (lambda (view) (format #t "This is a test\n")))
                  ])
  ])

(activate-gui-tools)