! SCCS_data: @(#) MButtSimp 1.1 92/12/10 13:32:08
!
! This is like the third demo in the OLIT Programmer's Guide--demonstrating
! the use of the menuButton.  This example shows the trick that
! has the wcCallback create the children of the menu button.
! The default button is the first one on the list.

!*wcTrace:		True
Ori.wcChildren:		menuBtn
Ori.wcCallback:		WcSetValue( this.title: MButtSimp )

*threeD:		TRUE
*background:		grey

*menuBtn.wcClass:	menuButtonWidgetClass
*menuBtn.label:		MenuButtonWidget
*menuBtn.wcCallback:	WcCreateChildren( this*pane, open, edit, quit)

*menuBtn*pane.open.Label:	Open
*menuBtn*pane.open.wcClass:	oblongButtonGadgetClass
*menuBtn*pane.open.select:	WcSystem(echo open)

*menuBtn*pane.edit.wcClass:	oblongButtonGadgetClass
*menuBtn*pane.edit.select:	WcSystem(echo edit)
*menuBtn*pane.edit.Label:	Edit

*menuBtn*pane.quit.wcClass:	oblongButtonGadgetClass
*menuBtn*pane.quit.Label:	Quit
*menuBtn*pane.quit.select:	WcExit()
