LIBARDI@acae.dnet.ge.COM (07/13/90)
;;;CLM -a language binding for CommonLISP and OSF/MOTIF from the
;;;German National Research Center
;;;I am trying to create a menu bar with pulldown menus using Clm -
;;;a common lisp binding for OSF/Motif. Clm has not implemented any
;;;convenience functions (eg. XmCreatePullDownMenu) and does not appear
;;;to include the XmMenuShell class. Obvious attempts at creating the
;;;appropriate widget hierarchy have failed. Can anyone supply me with
;;;an approach? Below is one of my obvious attempts. lynn dolan
(defun test10 (&aux appShell engMain engMain-mb engMain-ww modeMenuShell
pulldownMenu cascadeButton pushButton)
(setf appShell (create-application-shell)
engMain (create-widget :main-window appshell)
engMain-mb (create-widget :row-column engMain :row-column-type
:menu-bar)
engMain-ww (create-widget :bulletin-board engMain)
cascadeButton (create-widget :cascade-button engMain-mb
:label-string "TEST10")
modeMenuShell (create-popup-shell "test10" :override-shell engMain-mb)
pulldownMenu (create-widget :row-column modeMenuShell :row-column-type
:menu-pulldown)
pushButton (create-widget :push-button pulldownMenu
:label-string "mode"))
(set-values engMain-mb :margin-height 20)
(set-values engMain :menu-bar engMain-mb)
(set-values engMain-ww :height 400)
(set-values engMain-ww :width 700)
(set-values engMain :work-window engMain-ww)
(set-values cascadeButton :sub-menu-id pulldownMenu)
;Do I need to add callbacks ?
(realize-widget appShell))