! $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/cluster/RCS/Cluster,v 1.3 93/10/21 15:01:36 mar Exp $

cluster.wcChildren:		toplevel

!================================================================
! Program resources

*font:				fixed

!================================================================
! Widget tree

*toplevel.wcClass:		formWidgetClass
*toplevel.wcChildren:		buttons, clusters, machines, query, \
				help, error


!================================================================
! Menu Bar

*buttons.wcClass:		boxWidgetClass
*buttons.wcChildren:		file, clusterb, machineb, mappingb, helpm, \
				fileMenu, cluMenu, macMenu, mapMenu, helpMenu
*buttons.orientation:		horizontal
*clusterb.wcClass:		menuButtonWidgetClass
*clusterb.label:		Cluster
*clusterb.menuName:		cluMenu
*clusterb.borderWidth:		0
*machineb.wcClass:		menuButtonWidgetClass
*machineb.label:		Machine
*machineb.menuName:		macMenu
*machineb.borderWidth:		0
*mappingb.wcClass:		menuButtonWidgetClass
*mappingb.label:		Mappings
*mappingb.menuName:		mapMenu
*mappingb.borderWidth:		0
*file.wcClass:			menuButtonWidgetClass
*file.label:			File
*file.menuName:			fileMenu
*file.borderWidth:		0
*helpm.wcClass:			menuButtonWidgetClass
*helpm.label:			Help
*helpm.menuName:		helpMenu
*helpm.borderWidth:		0

*fileMenu.wcClass:		simpleMenuWidgetClass
*fileMenu.wcManaged:		False
*fileMenu.wcChildren:		fileM1, fileM2, fileM3
*fileM1.wcClass:		smeBSBObjectClass
*fileM1.label:			Quit
*fileM1.callback:		WcExitCB(0)
*fileM2.wcClass:		smeBSBObjectClass
*fileM2.label:			Save Cluster List
*fileM2.callback:		saveCluster
*fileM3.wcClass:		smeBSBObjectClass
*fileM3.label:			Save Machine List
*fileM3.callback:		saveMachine

*cluMenu.wcClass:		simpleMenuWidgetClass
*cluMenu.wcManaged:		False
*cluMenu.wcChildren:		cluM1, cluM2, cluM7, cluM3, cluM4, \
				cluM9, cluM8, cluM5, cluM6
*cluM1.wcClass:			smeBSBObjectClass
*cluM1.label:			Fetch by Name
*cluM1.callback:		getClusters
*cluM2.wcClass:			smeBSBObjectClass
*cluM2.label:			Fetch by Member Machine
*cluM2.callback:		getClusterMachine
*cluM7.wcClass:			smeBSBObjectClass
*cluM7.label:			Fetch by Fileserver Used
*cluM7.callback:		getClusterServer
*cluM3.wcClass:			smeBSBObjectClass
*cluM3.label:			Select by Name
*cluM3.callback:		selectClusters
*cluM4.wcClass:			smeBSBObjectClass
*cluM4.label:			Select by Member Machine
*cluM4.callback:		selectClusterMachine
*cluM9.wcClass:			smeBSBObjectClass
*cluM9.label:			Select by Cluster Data
*cluM9.callback:		selectClusterData
*cluM8.wcClass:			smeBSBObjectClass
*cluM8.label:			Select All
*cluM8.callback:		selectAllCluster
*cluM5.wcClass:			smeBSBObjectClass
*cluM5.label:			Deselect All
*cluM5.callback:		deselectClusters
*cluM6.wcClass:			smeBSBObjectClass
*cluM6.label:			Clear All
*cluM6.callback:		clearClusters

*macMenu.wcClass:		simpleMenuWidgetClass
*macMenu.wcManaged:		False
*macMenu.wcChildren:		macM1, macM2, macM3, macM4, macM5, \
				macM10,macM11,macM8, macM6, macM9, \
				macM7
*macM1.wcClass:			smeBSBObjectClass
*macM1.label:			Fetch by Name
*macM1.callback:		getMachines
*macM2.wcClass:			smeBSBObjectClass
*macM2.label:			Fetch by Cluster
*macM2.callback:		getMachineCluster
*macM3.wcClass:			smeBSBObjectClass
*macM3.label:			Select by Name
*macM3.callback:		selectMachines
*macM4.wcClass:			smeBSBObjectClass
*macM4.label:			Select by Cluster
*macM4.callback:		selectMachineCluster
*macM5.wcClass:			smeBSBObjectClass
*macM5.label:			Select by Type
*macM5.callback:		selectMachineType
*macM10.wcClass:		smeBSBObjectClass
*macM10.label:			Select by Subnet
*macM10.callback:		selectMachineSubnet
*macM11.wcClass:		smeBSBObjectClass
*macM11.label:			Update Machine Types
*macM11.callback:		getMachineTypes
*macM8.wcClass:			smeBSBObjectClass
*macM8.label:			Select All
*macM8.callback:		selectAllMachine
*macM6.wcClass:			smeBSBObjectClass
*macM6.label:			Deselect All
*macM6.callback:		deselectMachines
*macM9.wcClass:			smeBSBObjectClass
*macM9.label:			Check Machine
!*macM9.callback:		clearMachines
*macM9.sensitive:		False
*macM7.wcClass:			smeBSBObjectClass
*macM7.label:			Clear All
*macM7.callback:		clearMachines

*mapMenu.wcClass:		simpleMenuWidgetClass
*mapMenu.wcManaged:		False
*mapMenu.wcChildren:		mapM1, mapM2, mapM3
*mapM1.wcClass:			smeBSBObjectClass
*mapM1.label:			Remove Selected Machines from Selected Clusters
*mapM1.callback:		removeMachineCluster
*mapM2.wcClass:			smeBSBObjectClass
*mapM2.label:			Remove Selected Machines from All Clusters
*mapM2.callback:		removeMachineAllCluster
*mapM3.wcClass:			smeBSBObjectClass
*mapM3.label:			Add Selected Machines to Selected Clusters
*mapM3.callback:		addMachineCluster

*helpMenu.wcClass:		simpleMenuWidgetClass
*helpMenu.wcManaged:		False
*helpMenu.wcChildren:		helpM1, helpM2, helpM3
*helpM1.wcClass:		smeBSBObjectClass
*helpM1.label:			About Moira
*helpM1.callback:		HelpCB(moira)
*helpM2.wcClass:		smeBSBObjectClass
*helpM2.label:			About This Program
*helpM2.callback:		HelpCB(program)
*helpM3.wcClass:		smeBSBObjectClass
*helpM3.label:			Author
*helpM3.callback:		HelpCB(author)


!================================================================
! Cluster box

*clusters.wcClass:		formWidgetClass
*clusters.wcChildren:		clutitle, cluhead, clusterport
*clusters.fromVert:		*buttons
*clusters.borderWidth:		0
*clusters.top:			ChainTop
*clusters.bottom:		ChainBottom
!*clusters.right:		ChainRight
*clusters.left:			ChainLeft

*clutitle.wcClass:		labelWidgetClass
*clutitle.label:		Clusters
*clutitle.borderWidth:		0
*clutitle.width:		300
*clutitle.font:			-*-fixed-bold-r-normal-*-*-140-*

*cluhead.wcClass:		labelWidgetClass
*cluhead.label:			Name              Data
*cluhead.borderWidth:		0
*cluhead.width:			300
*cluhead.fromVert:		*clutitle
*cluhead.justify:		left
*cluhead.horizDistance:		20

*clusterport.wcClass:		viewportWidgetClass
*clusterport.wcChildren:	clusterlist
*clusterport.allowVert:		True
*clusterport.allowHoriz:	True
*clusterport.height:		300
*clusterport.width:		300
*clusterport.fromVert:		*cluhead
*clusterport.forceBars:		True
*clusterlist.wcClass:		mlistWidgetClass
*clusterlist.Columns:		1
*clusterlist.numberStrings:	0
*clusterlist.verticalList:	True


!================================================================
! Machine box

*machines.wcClass:		formWidgetClass
*machines.wcChildren:		mactitle, machead, machineport
*machines.fromVert:		*buttons
*machines.fromHoriz:		*clusters
*machines.borderWidth:		0
*machines.top:			ChainTop
*machines.bottom:		ChainBottom
*machines.right:		ChainRight
!*machines.left:			ChainLeft

*mactitle.wcClass:		labelWidgetClass
*mactitle.label:		Machines
*mactitle.font:			-*-fixed-bold-r-normal-*-*-140-*
*mactitle.borderWidth:		0
*mactitle.width:		350

*machead.wcClass:		labelWidgetClass
*machead.label:			Name                             Type     Address
*machead.justify:		left
*machead.borderWidth:		0
*machead.width:			350
*machead.fromVert:		*mactitle
*machead.horizDistance:		20

*machineport.wcClass:		viewportWidgetClass
*machineport.wcChildren:	machinelist
*machineport.allowVert:		True
*machineport.allowHoriz:	True
*machineport.height:		300
*machineport.width:		350
*machineport.fromVert:		*machead
*machineport.forceBars:		True
*machinelist.wcClass:		mlistWidgetClass
*machinelist.Columns:		1
*machinelist.verticalList:	True

!================================================================
! User prompt

*query.wcClass:			boxWidgetClass
*query.wcChildren:		prompt, input
*query.wcManaged:		False
*query.orientation:		vertical
*query.borderWidth:		3
*query.fromVert:		*buttons
*prompt.wcClass:		labelWidgetClass
*prompt.borderWidth:		0
*input*string:			*
*input.wcClass:			asciiTextWidgetClass
*input*length:			128
*input*editType:		edit
*input*useStringInPlace:	True
*input*translations:		#override <Key>Return:	inputDone()

!================================================================
! Help window

*help.wcConstructor:		XtCreateTransientShell
*help.wcChildren:		helpbox
*help.geometry:			+300+280
*helpbox.wcClass:		formWidgetClass
*helpbox.wcChildren:		msg, dismiss
*msg.wcClass:			asciiTextWidgetClass
*msg.width:			500
*msg.height:			200
*msg*editType:			edit
*msg*string:			This is a test
*msg*useStringInPlace:		True
*dismiss.wcClass:		commandWidgetClass
*dismiss.label:			Remove Help Window
*dismiss.callback:		WcPopdownCB(*help)
*dismiss.fromVert:		*msg

!================================================================
! Error popup

*error.wcConstructor:		XtCreateTransientShell
*error.wcChildren:		errorbox
*error.geometry:		+300+280
*errorbox.wcClass:		formWidgetClass
*errorbox.wcChildren:		errmsg, edismiss
*errmsg.wcClass:		asciiTextWidgetClass
*errmsg.width:			300
*errmsg.height:			50
*errmsg*editType:		edit
*errmsg*string:			This is a test
*errmsg*useStringInPlace:	True
*edismiss.wcClass:		commandWidgetClass
*edismiss.label:		Remove This Window
*edismiss.callback:		WcPopdownCB(*error)
*edismiss.fromVert:		*errmsg
