! SCCS_data: @(#) WcMethods 1.1 92/12/08 15:04:30
!
Mri.wcChildren:	rc

! Unless otherwise specified, everything is a push button.
!
*wcCreate:		XmPushButton

*rc.wcCreate:		XmRowColumn
*rc.wcChildren:		objs sep anObj

*sep.wcCreate:		XmSeparator

! Buttons: when created, they create objects of class TestObj.
! When pressed, they attach their object to the anObj widget.
!
*objs.wcCreate:		XmRowColumn
*objs.wcChildren:	obj1 obj2 obj3

*obj1.wcCallback:	TestObj::Create( object_1 )
*obj2.wcCallback:	TestObj::Create( second object )
*obj3.wcCallback:	TestObj::Create()

*objs*activateCallback:	TestObj::AttachTo(*anObj)

! Represents an object.  Buttons invoke methods on object
!
*anObj.wcCreate:	XmRowColumn
*anObj.wcChildren:	1st 2nd 3rd

*1st.activateCallback:	TestObj::1st(yeah)
*2nd.activateCallback:	TestObj::2nd()
*3rd.activateCallback:	TestObj::1st() TestObj::2nd( third	)