Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!wuarchive!usc!zaphod.mps.ohio-state.edu!tut.cis.ohio-state.edu!snorkelwacker!bloom-beacon!acae.dnet.ge.COM!LIBARDI
From: LIBARDI@acae.dnet.ge.COM
Newsgroups: comp.windows.x
Subject: help with Clm
Message-ID: <9007131521.AA02842@crdgw1.ge.com>
Date: 13 Jul 90 16:21:00 GMT
Sender: daemon@athena.mit.edu (Mr Background)
Organization: The Internet
Lines: 34


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