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))