clients/cluster/Cluster

   1 ! $Header$
   2
   3 cluster.wcChildren:             toplevel
   4
   5 !================================================================
   6 ! Program resources
   7
   8 *font:                          fixed
   9
  10 !================================================================
  11 ! Widget tree
  12
  13 *toplevel.wcClass:              formWidgetClass
  14 *toplevel.wcChildren:           buttons, clusters, machines, query, \
  15                                 help, error
  16
  17
  18 !================================================================
  19 ! Menu Bar
  20
  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
  45
  46 *fileMenu.wcClass:              simpleMenuWidgetClass
  47 *fileMenu.wcManaged:            False
  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
  58
  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
  90
  91 *macMenu.wcClass:               simpleMenuWidgetClass
  92 *macMenu.wcManaged:             False
  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
 130
 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
 143
 144 *helpMenu.wcClass:              simpleMenuWidgetClass
 145 *helpMenu.wcManaged:            False
 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)
 156
 157
 158 !================================================================
 159 ! Cluster box
 160
 161 *clusters.wcClass:              formWidgetClass
 162 *clusters.wcChildren:           clutitle, cluhead, clusterport
 163 *clusters.fromVert:             *buttons
 164 *clusters.borderWidth:          0
 165 *clusters.top:                  ChainTop
 166 *clusters.bottom:               ChainBottom
 167 !*clusters.right:               ChainRight
 168 *clusters.left:                 ChainLeft
 169
 170 *clutitle.wcClass:              labelWidgetClass
 171 *clutitle.label:                Clusters
 172 *clutitle.borderWidth:          0
 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
 193 *clusterlist.Columns:           1
 194 *clusterlist.numberStrings:     0
 195 *clusterlist.verticalList:      True
 196
 197
 198 !================================================================
 199 ! Machine box
 200
 201 *machines.wcClass:              formWidgetClass
 202 *machines.wcChildren:           mactitle, machead, machineport
 203 *machines.fromVert:             *buttons
 204 *machines.fromHoriz:            *clusters
 205 *machines.borderWidth:          0
 206 *machines.top:                  ChainTop
 207 *machines.bottom:               ChainBottom
 208 *machines.right:                ChainRight
 209 !*machines.left:                        ChainLeft
 210
 211 *mactitle.wcClass:              labelWidgetClass
 212 *mactitle.label:                Machines
 213 *mactitle.font:                 -*-fixed-bold-r-normal-*-*-140-*
 214 *mactitle.borderWidth:          0
 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 *input*string:                  *
 249 *input.wcClass:                 asciiTextWidgetClass
 250 *input*length:                  128
 251 *input*editType:                edit
 252 *input*useStringInPlace:        True
 253 *input*translations:            #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 *msg*editType:                  edit
 267 *msg*string:                    This is a test
 268 *msg*useStringInPlace:          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 *errmsg*editType:               edit
 286 *errmsg*string:                 This is a test
 287 *errmsg*useStringInPlace:       True
 288 *edismiss.wcClass:              commandWidgetClass
 289 *edismiss.label:                Remove This Window
 290 *edismiss.callback:             WcPopdownCB(*error)
 291 *edismiss.fromVert:             *errmsg