! $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 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