!
! $Id: Select,v 1.3 1997/02/08 06:04:57 lister Exp $
!
Select.wcChildren:		mainWin

*XbaeMatrix.fontList:		-*-courier-medium-r-*-*-*-140-*-*-*-*-*-*
*fontList:			-*-helvetica-bold-r-*-*-*-140-*-*-*-*-*-*

*menuBar*background:		VioletRed3
*background:			salmon2


*mainWin.wcClassName:		XmMainWindow
*mainWin.showSeparators:	True
*mainWin.wcChildren:		menuBar, matrix, buttonBox

!
! Menubar and all menus
!

*menuBar.wcConstructor: 	XmCreateMenuBar
*menuBar.wcCallback:            WcSetValue( *mainWin.menuBar: ^*menuBar )
*menuBar.wcChildren:		file, edit, help
*menuBar.wcPopups:		fileMenu, editMenu, helpMenu

*menuBar*XmCascadeButton.marginWidth:	8
*menuBar*XmRowColumn.spacing:		0

*file.wcConstructor:		XmCreateCascadeButton
*file.labelString:		File
*file.subMenuId:		*fileMenu
*fileMenu.wcConstructor:	XmCreatePulldownMenu
*fileMenu.wcChildren:		f_load, f_exit

*fileMenu*wcConstructor:	XmCreatePushButton
*f_load.labelString:		Load
*f_load.activateCallback:	LoadCB(*matrix)
*f_exit.labelString:		Exit
*f_exit.activateCallback:	WcExitCB()

*edit.wcConstructor:		XmCreateCascadeButton
*edit.labelString:		Edit
*edit.subMenuId:		*editMenu
*editMenu.wcConstructor:	XmCreatePulldownMenu
*editMenu.wcChildren:		e_copy, e_clear, e_delete, e_deselect

*editMenu*wcConstructor:	XmCreatePushButton
*e_copy.labelString:		Copy
*e_copy.activateCallback: 	CopyCB(*matrix)
*e_clear.labelString:		Clear
*e_clear.activateCallback: 	ClearCB(*matrix)
*e_delete.labelString:		Delete
*e_delete.activateCallback: 	DeleteCB(*matrix)
*e_deselect.labelString:	Deselect
*e_deselect.activateCallback: 	DeselectCB(*matrix)

*help.wcConstructor:		XmCreateCascadeButton
*help.wcCallback:		WcSetValue( ^.menuHelpWidget: ^*help )
*help.labelString:		Help
*help.subMenuId:		*helpMenu
*helpMenu.wcConstructor:	XmCreatePulldownMenu
*helpMenu.wcChildren:		h_onSelect

*helpMenu*wcConstructor:	XmCreatePushButton
*h_onSelect.labelString:	On Select...
*h_onSelect.activateCallback:	WcCreateChildrenCB( Select, helpDialog ),\
				WcSetValueCB(this.activateCallback: \
					WcManageCB( *helpDialog ))

*helpDialog.wcConstructor:	XmCreateInformationDialog
*helpDialog.wcCallback:		WcUnmanageCB( .Cancel, .Help )
*helpDialog.messageString:\
Shift-Click Button1 to select a row, column or cell.\n\
Select the mode with the "Selection Mode" menu.\n\
Select the type with the "Selection Type" menu.


!
! Matrix
!

*matrix.wcClassName:		XbaeMatrix
*matrix.wcCallback:		WcSetValue( *mainWin.workWindow: ^*matrix ),\
				NewMatrixCB()
*matrix.boldLabels:		True
*matrix.rowLabels:		1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
*matrix.columnLabels:		One,Two,Three,Four,Five,Six,Seven,Eight,\
				Nine,Ten
*matrix.rows:			15
*matrix.columns:		10
*matrix.visibleRows:		8
*matrix.visibleColumns:		5
*matrix.columnWidths:		10,5,10,5,10,5,10,10,5,10
*matrix.selectCellCallback:	SelectCB()
*matrix.translations:		#override\n\
				Shift<Btn1Down>:	SelectCell()

!
! buttonBox
!
*buttonBox.wcClassName:		XmRowColumn
*buttonBox.wcChildren:		selectionType, selectionMode
*buttonBox.wcCallback:		WcSetValue( *mainWin.commandWindow: ^*buttonBox)


*selectionType.wcConstructor:	XmCreateOptionMenu
*selectionType.labelString:	Selection Type:
*selectionType.wcPopups:	typeMenu

*typeMenu.wcConstructor:	XmCreatePulldownMenu
*typeMenu.wcCallback:		WcSetValue(^^.subMenuId: ^*typeMenu)
*typeMenu.wcChildren:		cellType, rowType, columnType

*typeMenu*wcConstructor:	XmCreatePushButton

*cellType.labelString:		Cell
*cellType.wcCallback:		RegisterSelectionWidgetCB(*matrix),\
				SetSelectionTypeCB(1)
*cellType.activateCallback:	SetSelectionTypeCB(1)
*rowType.labelString:		Row
*rowType.wcCallback:		RegisterSelectionWidgetCB(*matrix)
*rowType.activateCallback:	SetSelectionTypeCB(2)
*columnType.labelString:	Column
*columnType.wcCallback:		RegisterSelectionWidgetCB(*matrix)
*columnType.activateCallback:	SetSelectionTypeCB(3)


*selectionMode.wcConstructor:	XmCreateOptionMenu
*selectionMode.labelString:	Selection Mode:
*selectionMode.wcPopups:	modeMenu

*modeMenu.wcConstructor:	XmCreatePulldownMenu
*modeMenu.wcCallback:		WcSetValue(^^.subMenuId: ^*modeMenu)
*modeMenu.wcChildren:		exclusiveMode, addMode
*modeMenu*wcConstructor:	XmCreatePushButton

*exclusiveMode.labelString:	Exclusive
*exclusiveMode.wcCallback:	RegisterSelectionWidgetCB(*matrix),\
				SetSelectionModeCB(0)
*exclusiveMode.activateCallback:SetSelectionModeCB(0)

*addMode.labelString:		Add
*addMode.wcCallback:		RegisterSelectionWidgetCB(*matrix)
*addMode.activateCallback:	SetSelectionModeCB(1)
