[moira.git] / clients / cluster / Cluster

! $Header$

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
Commit	Line	Data
c9104dd4	1	! $Header$
	2
	3	cluster.wcChildren: toplevel
	4
a20ad6ae	5	!================================================================
c9104dd4	6	! Program resources
c9104dd4	7
a20ad6ae	8	*font: fixed
	9
	10	!================================================================
c9104dd4	11	! Widget tree
c9104dd4	12
a20ad6ae	13	*toplevel.wcClass: formWidgetClass
	14	*toplevel.wcChildren: buttons, clusters, machines, query, \
	15	help, error
	16
	17
	18	!================================================================
	19	! Menu Bar
c9104dd4	20
a20ad6ae	21	*buttons.wcClass: boxWidgetClass
	22	*buttons.wcChildren: file, clusterb, machineb, mappingb, helpm, \
	23	fileMenu, cluMenu, macMenu, mapMenu, helpMenu
	24	*buttons.orientation: horizontal
	25	*clusterb.wcClass: menuButtonWidgetClass
	26	*clusterb.label: Cluster
	27	*clusterb.menuName: cluMenu
	28	*clusterb.borderWidth: 0
	29	*machineb.wcClass: menuButtonWidgetClass
	30	*machineb.label: Machine
	31	*machineb.menuName: macMenu
	32	*machineb.borderWidth: 0
	33	*mappingb.wcClass: menuButtonWidgetClass
	34	*mappingb.label: Mappings
	35	*mappingb.menuName: mapMenu
	36	*mappingb.borderWidth: 0
	37	*file.wcClass: menuButtonWidgetClass
	38	*file.label: File
	39	*file.menuName: fileMenu
	40	*file.borderWidth: 0
	41	*helpm.wcClass: menuButtonWidgetClass
	42	*helpm.label: Help
	43	*helpm.menuName: helpMenu
	44	*helpm.borderWidth: 0
2377e4d1	45
a20ad6ae	46	*fileMenu.wcClass: simpleMenuWidgetClass
2377e4d1	47	*fileMenu.wcManaged: False
a20ad6ae	48	*fileMenu.wcChildren: fileM1, fileM2, fileM3
	49	*fileM1.wcClass: smeBSBObjectClass
	50	*fileM1.label: Quit
	51	*fileM1.callback: WcExitCB(0)
	52	*fileM2.wcClass: smeBSBObjectClass
	53	*fileM2.label: Save Cluster List
	54	*fileM2.callback: saveCluster
	55	*fileM3.wcClass: smeBSBObjectClass
	56	*fileM3.label: Save Machine List
	57	*fileM3.callback: saveMachine
2377e4d1	58
a20ad6ae	59	*cluMenu.wcClass: simpleMenuWidgetClass
	60	*cluMenu.wcManaged: False
	61	*cluMenu.wcChildren: cluM1, cluM2, cluM7, cluM3, cluM4, \
	62	cluM9, cluM8, cluM5, cluM6
	63	*cluM1.wcClass: smeBSBObjectClass
	64	*cluM1.label: Fetch by Name
	65	*cluM1.callback: getClusters
	66	*cluM2.wcClass: smeBSBObjectClass
	67	*cluM2.label: Fetch by Member Machine
	68	*cluM2.callback: getClusterMachine
	69	*cluM7.wcClass: smeBSBObjectClass
	70	*cluM7.label: Fetch by Fileserver Used
	71	*cluM7.callback: getClusterServer
	72	*cluM3.wcClass: smeBSBObjectClass
	73	*cluM3.label: Select by Name
	74	*cluM3.callback: selectClusters
	75	*cluM4.wcClass: smeBSBObjectClass
	76	*cluM4.label: Select by Member Machine
	77	*cluM4.callback: selectClusterMachine
	78	*cluM9.wcClass: smeBSBObjectClass
	79	*cluM9.label: Select by Cluster Data
	80	*cluM9.callback: selectClusterData
	81	*cluM8.wcClass: smeBSBObjectClass
	82	*cluM8.label: Select All
	83	*cluM8.callback: selectAllCluster
	84	*cluM5.wcClass: smeBSBObjectClass
	85	*cluM5.label: Deselect All
	86	*cluM5.callback: deselectClusters
	87	*cluM6.wcClass: smeBSBObjectClass
	88	*cluM6.label: Clear All
	89	*cluM6.callback: clearClusters
2377e4d1	90
a20ad6ae	91	*macMenu.wcClass: simpleMenuWidgetClass
2377e4d1	92	*macMenu.wcManaged: False
a20ad6ae	93	*macMenu.wcChildren: macM1, macM2, macM3, macM4, macM5, \
	94	macM10,macM11,macM8, macM6, macM9, \
	95	macM7
	96	*macM1.wcClass: smeBSBObjectClass
	97	*macM1.label: Fetch by Name
	98	*macM1.callback: getMachines
	99	*macM2.wcClass: smeBSBObjectClass
	100	*macM2.label: Fetch by Cluster
	101	*macM2.callback: getMachineCluster
	102	*macM3.wcClass: smeBSBObjectClass
	103	*macM3.label: Select by Name
	104	*macM3.callback: selectMachines
	105	*macM4.wcClass: smeBSBObjectClass
	106	*macM4.label: Select by Cluster
	107	*macM4.callback: selectMachineCluster
	108	*macM5.wcClass: smeBSBObjectClass
	109	*macM5.label: Select by Type
	110	*macM5.callback: selectMachineType
	111	*macM10.wcClass: smeBSBObjectClass
	112	*macM10.label: Select by Subnet
	113	*macM10.callback: selectMachineSubnet
	114	*macM11.wcClass: smeBSBObjectClass
	115	*macM11.label: Update Machine Types
	116	*macM11.callback: getMachineTypes
	117	*macM8.wcClass: smeBSBObjectClass
	118	*macM8.label: Select All
	119	*macM8.callback: selectAllMachine
	120	*macM6.wcClass: smeBSBObjectClass
	121	*macM6.label: Deselect All
	122	*macM6.callback: deselectMachines
	123	*macM9.wcClass: smeBSBObjectClass
	124	*macM9.label: Check Machine
	125	!*macM9.callback: clearMachines
	126	*macM9.sensitive: False
	127	*macM7.wcClass: smeBSBObjectClass
	128	*macM7.label: Clear All
	129	*macM7.callback: clearMachines
2377e4d1	130
a20ad6ae	131	*mapMenu.wcClass: simpleMenuWidgetClass
	132	*mapMenu.wcManaged: False
	133	*mapMenu.wcChildren: mapM1, mapM2, mapM3
	134	*mapM1.wcClass: smeBSBObjectClass
	135	*mapM1.label: Remove Selected Machines from Selected Clusters
	136	*mapM1.callback: removeMachineCluster
	137	*mapM2.wcClass: smeBSBObjectClass
	138	*mapM2.label: Remove Selected Machines from All Clusters
	139	*mapM2.callback: removeMachineAllCluster
	140	*mapM3.wcClass: smeBSBObjectClass
	141	*mapM3.label: Add Selected Machines to Selected Clusters
	142	*mapM3.callback: addMachineCluster
2377e4d1	143
a20ad6ae	144	*helpMenu.wcClass: simpleMenuWidgetClass
2377e4d1	145	*helpMenu.wcManaged: False
a20ad6ae	146	*helpMenu.wcChildren: helpM1, helpM2, helpM3
	147	*helpM1.wcClass: smeBSBObjectClass
	148	*helpM1.label: About Moira
	149	*helpM1.callback: HelpCB(moira)
	150	*helpM2.wcClass: smeBSBObjectClass
	151	*helpM2.label: About This Program
	152	*helpM2.callback: HelpCB(program)
	153	*helpM3.wcClass: smeBSBObjectClass
	154	*helpM3.label: Author
	155	*helpM3.callback: HelpCB(author)
2377e4d1	156
c9104dd4	157
a20ad6ae	158	!================================================================
	159	! Cluster box
	160
c9104dd4	161	*clusters.wcClass: formWidgetClass
a20ad6ae	162	*clusters.wcChildren: clutitle, cluhead, clusterport
c9104dd4	163	clusters.fromVert: buttons
a20ad6ae	164	*clusters.borderWidth: 0
	165	*clusters.top: ChainTop
	166	*clusters.bottom: ChainBottom
	167	!*clusters.right: ChainRight
	168	*clusters.left: ChainLeft
c9104dd4	169
	170	*clutitle.wcClass: labelWidgetClass
	171	*clutitle.label: Clusters
	172	*clutitle.borderWidth: 0
a20ad6ae	173	*clutitle.width: 300
	174	clutitle.font: --fixed-bold-r-normal---140-*
	175
	176	*cluhead.wcClass: labelWidgetClass
	177	*cluhead.label: Name Data
	178	*cluhead.borderWidth: 0
	179	*cluhead.width: 300
	180	cluhead.fromVert: clutitle
	181	*cluhead.justify: left
	182	*cluhead.horizDistance: 20
	183
	184	*clusterport.wcClass: viewportWidgetClass
	185	*clusterport.wcChildren: clusterlist
	186	*clusterport.allowVert: True
	187	*clusterport.allowHoriz: True
	188	*clusterport.height: 300
	189	*clusterport.width: 300
	190	clusterport.fromVert: cluhead
	191	*clusterport.forceBars: True
	192	*clusterlist.wcClass: mlistWidgetClass
c9104dd4	193	*clusterlist.Columns: 1
c9104dd4	194	*clusterlist.numberStrings: 0
c9104dd4	195	*clusterlist.verticalList: True
a20ad6ae	196
	197
	198	!================================================================
	199	! Machine box
c9104dd4	200
c9104dd4	201	*machines.wcClass: formWidgetClass
a20ad6ae	202	*machines.wcChildren: mactitle, machead, machineport
c9104dd4	203	machines.fromVert: buttons
c9104dd4	204	machines.fromHoriz: clusters
a20ad6ae	205	*machines.borderWidth: 0
	206	*machines.top: ChainTop
	207	*machines.bottom: ChainBottom
	208	*machines.right: ChainRight
	209	!*machines.left: ChainLeft
c9104dd4	210
	211	*mactitle.wcClass: labelWidgetClass
	212	*mactitle.label: Machines
a20ad6ae	213	mactitle.font: --fixed-bold-r-normal---140-*
c9104dd4	214	*mactitle.borderWidth: 0
a20ad6ae	215	*mactitle.width: 350
	216
	217	*machead.wcClass: labelWidgetClass
	218	*machead.label: Name Type Address
	219	*machead.justify: left
	220	*machead.borderWidth: 0
	221	*machead.width: 350
	222	machead.fromVert: mactitle
	223	*machead.horizDistance: 20
	224
	225	*machineport.wcClass: viewportWidgetClass
	226	*machineport.wcChildren: machinelist
	227	*machineport.allowVert: True
	228	*machineport.allowHoriz: True
	229	*machineport.height: 300
	230	*machineport.width: 350
	231	machineport.fromVert: machead
	232	*machineport.forceBars: True
	233	*machinelist.wcClass: mlistWidgetClass
	234	*machinelist.Columns: 1
	235	*machinelist.verticalList: True
	236
	237	!================================================================
	238	! User prompt
	239
	240	*query.wcClass: boxWidgetClass
	241	*query.wcChildren: prompt, input
	242	*query.wcManaged: False
	243	*query.orientation: vertical
	244	*query.borderWidth: 3
	245	query.fromVert: buttons
	246	*prompt.wcClass: labelWidgetClass
	247	*prompt.borderWidth: 0
	248	inputstring: *
	249	*input.wcClass: asciiTextWidgetClass
	250	inputlength: 128
	251	inputeditType: edit
	252	inputuseStringInPlace: True
	253	inputtranslations: #override <Key>Return: inputDone()
	254
	255	!================================================================
	256	! Help window
	257
	258	*help.wcConstructor: XtCreateTransientShell
	259	*help.wcChildren: helpbox
	260	*help.geometry: +300+280
	261	*helpbox.wcClass: formWidgetClass
	262	*helpbox.wcChildren: msg, dismiss
	263	*msg.wcClass: asciiTextWidgetClass
	264	*msg.width: 500
	265	*msg.height: 200
	266	msgeditType: edit
	267	msgstring: This is a test
	268	msguseStringInPlace: True
	269	*dismiss.wcClass: commandWidgetClass
	270	*dismiss.label: Remove Help Window
	271	dismiss.callback: WcPopdownCB(help)
	272	dismiss.fromVert: msg
	273
	274	!================================================================
	275	! Error popup
	276
	277	*error.wcConstructor: XtCreateTransientShell
	278	*error.wcChildren: errorbox
279	*error.geometry: +300+280
280	*errorbox.wcClass: formWidgetClass
281	*errorbox.wcChildren: errmsg, edismiss
282	*errmsg.wcClass: asciiTextWidgetClass
283	*errmsg.width: 300
284	*errmsg.height: 50
285	errmsgeditType: edit
286	errmsgstring: This is a test
287	errmsguseStringInPlace: True
288	*edismiss.wcClass: commandWidgetClass
289	*edismiss.label: Remove This Window
290	edismiss.callback: WcPopdownCB(error)
291	edismiss.fromVert: errmsg