! SCCS_data: @(#) SText 1.1 92/12/10 13:36:59
!
! This is a demonstration of the use of the static text widget class.
! I think it clearly shows the effects of gravity and justification.
! The exclusives widget class is used to contain the choices for the
! justification and gravity and each has a caption as a label.  The
! children of the exclusives widgets are rectButtons.

!*wcTrace:               True
Ori.wcChildren:		control
Ori.wcCallback:		WcSetValue(this.title:SText)

*threeD:		TRUE
*background:		grey

*control.wcClass:	XpTable
*control.Spacing:	10
*control.Margins:	5
*control.wcChildren:	statText justTab gravTab quit
*control.layout:	statText 0 0 1 3 ;	justTab 1 0 WHw; \
						gravTab 1 1 WH; \
						quit    1 2 WHb

*statText.wcClass:	staticTextWidgetClass
*statText.background:	white
*statText.width:	440
*statText.height:	300
*statText.alignment:	left
*statText.borderWidth:	1
*statText.wrap:		FALSE
*statText.recomputeSize:	FALSE
*statText.string:	Now is the time for all good men to come\nto the aid\
 of the party.  The quick brown\nfox jumped over the lazy dog.  All men\n\
are created equal.  We, the people, in order\nto form a more perfect union...


*justTab.wcCreate:	XpTable
*justTab.wcChildren:	just jopts
*justTab.borderWidth:	0
*justTab.layout:	just 0 0 ; jopts 0 1

*just.wcClass:		staticTextWidgetClass
*just.string:		Justification:
*just.alignment:	center

*jopts.wcClass:		exclusivesWidgetClass
*jopts.layoutType:	fixedrows
*jopts.measure:		1
*jopts.wcChildren:	left,center,right

*left.wcClass:		rectButtonWidgetClass
*left.select:		WcSetValueCB(*statText.alignment: left)
*left.label:		Left

*center.wcClass:	rectButtonWidgetClass
*center.select:		WcSetValueCB(*statText.alignment: center)
*center.label:		Center
*center.set:		TRUE
*center.default:	TRUE

*right.wcClass:		rectButtonWidgetClass
*right.select:		WcSetValueCB(*statText.alignment:  right)
*right.label:		Right

*gravTab.wcCreate:	XpTable
*gravTab.wcChildren:	grav gopts
*gravTab.borderWidth:	0
*gravTab.layout:	grav 0 0 ; gopts 0 1

*grav.wcClass:		staticTextWidgetClass
*grav.string:		Gravity:
*grav.alignment:	center

*gopts.wcClass:		exclusivesWidgetClass
*gopts.layoutType:	fixedrows
*gopts.measure:		3
*gopts.wcChildren:	nwg wg swg ng cg sg neg eg seg

*cg.wcClass:		rectButtonWidgetClass
*cg.select:		WcSetValueCB(*statText.gravity: center)
*cg.label:		Center
*cg.set:		TRUE
*cg.default:		TRUE

*ng.wcClass:		rectButtonWidgetClass
*ng.select:		WcSetValueCB(*statText.gravity: north)
*ng.label:		North

*sg.wcClass:		rectButtonWidgetClass
*sg.select:		WcSetValueCB(*statText.gravity: south)
*sg.label:		South

*eg.wcClass:		rectButtonWidgetClass
*eg.select:		WcSetValueCB(*statText.gravity: east)
*eg.label:		East

*wg.wcClass:		rectButtonWidgetClass
*wg.select:		WcSetValueCB(*statText.gravity: west)
*wg.label:		West

*nwg.wcClass:		rectButtonWidgetClass
*nwg.select:		WcSetValueCB(*statText.gravity: northwest)
*nwg.label:		NorthWest

*neg.wcClass:		rectButtonWidgetClass
*neg.select:		WcSetValueCB(*statText.gravity: northeast)
*neg.label:		NorthEast

*swg.wcClass:		rectButtonWidgetClass
*swg.select:		WcSetValueCB(*statText.gravity: southwest)
*swg.label:		SouthWest

*seg.wcClass:		rectButtonWidgetClass
*seg.select:		WcSetValueCB(*statText.gravity: southeast)
*seg.label:		SouthEast

*quit.wcClass:		oblongButtonWidgetClass
*quit.label:		Quit
*quit.select:		WcExitCB
