(in-package :examples)
(use-package :oli)

(defun node-and-name (obj name)
  (sd-display-message (format nil "BrowserNode is: ~A ... ~%~%Browsername is: ~A" obj name)))

(sd-browser-add-popup-entry "parcel-gbrowser" 
       :label           "more commands ..."
       :entry-type      :sub-menu
       :sub-menu-name   "More-Commands-Submenu"
       :new-group       t)
	   
(sd-browser-add-popup-entry "parcel-gbrowser" 
    :parent-menu-name "More-Commands-Submenu"
	:entry-type  :push
	:menu-action 'node-and-name
    :label "Show node and name")