PC World Komputer 1999 March B/SCO_CASTOR4RRT.iso/inet/root.2/usr/lib/scoadmin/aas/aasGUI/aasGUI~

Text File | 1998-08-19 | 107KB | 2,965 lines

#!/bin/osavtcl
# Copyright (c) 1992-1998 The Santa Cruz Operation, Inc.. All Rights Reserved.
#
#        THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF THE
#                   SANTA CRUZ OPERATION INC.
#
#   The copyright notice above does not evidence any actual or intended
#   publication of such source code.

#******************************************************************************
#
#    Copyright (C) 1992-1998 The Santa Cruz Operation, Inc.
#        All Rights Reserved.
#
#    The information in this file is provided for the exclusive use of
#    the licensees of The Santa Cruz Operation, Inc.  Such users have the
#    right to use, modify, and incorporate this code into other products
#    for purposes authorized by the license agreement provided they include
#    this notice and the associated copyright notice with any such product.
#    The information in this file is provided "AS IS" without warranty.
#
#===============================================================================
#@package: SCO_AAS_MSGS SCO_AAS_MSGS
proc SCO_AAS_MSGS {} {}
global SCO_AAS_MSGS
set SCO_AAS_MSGS(@catalog@) {aas.cat@sa 1}
set SCO_AAS_MSGS(MSG_APP_TITLE) {1 {Address Allocation Manager}}
set SCO_AAS_MSGS(MSG_TITLE) {2 {Address Allocation Manager on %s}}
set SCO_AAS_MSGS(MSG_VERSION) {3 {Address Allocation Manager %s}}
set SCO_AAS_MSGS(MSG_WAIT) {4 {Please wait...}}
set SCO_AAS_MSGS(MSG_HOST) {5 Host}
set SCO_AAS_MSGS(MSG_HOST_MN) {6 t}
set SCO_AAS_MSGS(MSG_OPEN_HOST) {7 {Open host...}}
set SCO_AAS_MSGS(MSG_OPEN_HOST_MN) {8 O}
set SCO_AAS_MSGS(MSG_OPEN_HOST_SH) {9 {Manage address allocation on another host}}
set SCO_AAS_MSGS(MSG_EXIT) {10 Exit}
set SCO_AAS_MSGS(MSG_EXIT_MN) {11 x}
set SCO_AAS_MSGS(MSG_EXIT_SH) {12 {Exit Address Allocation Manager}}
set SCO_AAS_MSGS(MSG_EDIT) {13 Pools}
set SCO_AAS_MSGS(MSG_EDIT_MN) {14 P}
set SCO_AAS_MSGS(MSG_ADD) {15 Add}
set SCO_AAS_MSGS(MSG_ADD_INET) {16 Add...}
set SCO_AAS_MSGS(MSG_ADD_INET_MN) {17 A}
set SCO_AAS_MSGS(MSG_ADD_INET_SH) {18 {Add a new address pool}}
set SCO_AAS_MSGS(MSG_MODIFY) {19 Modify...}
set SCO_AAS_MSGS(MSG_MODIFY_MN) {20 M}
set SCO_AAS_MSGS(MSG_MODIFY_SH) {21 {Modify the selected address pool}}
set SCO_AAS_MSGS(MSG_DELETE) {22 Delete}
set SCO_AAS_MSGS(MSG_DELETE_MN) {23 D}
set SCO_AAS_MSGS(MSG_DELETE_SH) {24 {Delete the selected address pool}}
set SCO_AAS_MSGS(MSG_RENAME) {25 Rename...}
set SCO_AAS_MSGS(MSG_RENAME_MN) {26 R}
set SCO_AAS_MSGS(MSG_RENAME_SH) {27 {Rename the selected address pool}}
set SCO_AAS_MSGS(MSG_CONTROL) {28 Control...}
set SCO_AAS_MSGS(MSG_CONTROL_MN) {29 C}
set SCO_AAS_MSGS(MSG_CONTROL_SH) {30 {Control the status of the selected addresses}}
set SCO_AAS_MSGS(MSG_VIEW) {31 View}
set SCO_AAS_MSGS(MSG_VIEW_MN) {32 V}
set SCO_AAS_MSGS(MSG_POOL_DEFINITION) {33 {Pool Definition}}
set SCO_AAS_MSGS(MSG_POOL_DEFINITION_MN) {34 P}
set SCO_AAS_MSGS(MSG_POOL_DEFINITION_SH) {35 {View the address pool definitions}}
set SCO_AAS_MSGS(MSG_ADDRESS_ALLOCATION) {36 {Address Allocation}}
set SCO_AAS_MSGS(MSG_ADDRESS_ALLOCATION_MN) {37 A}
set SCO_AAS_MSGS(MSG_ADDRESS_ALLOCATION_SH) {38 {View current address allocation for the selected pool}}
set SCO_AAS_MSGS(MSG_SERVICE_ALLOCATION) {39 {Service Allocation}}
set SCO_AAS_MSGS(MSG_SERVICE_ALLOCATION_MN) {40 S}
set SCO_AAS_MSGS(MSG_SERVICE_ALLOCATION_SH) {41 {View current service allocation for the selected pool}}
set SCO_AAS_MSGS(MSG_SERVER) {42 Server}
set SCO_AAS_MSGS(MSG_SERVER_MN) {43 S}
set SCO_AAS_MSGS(MSG_SERVER_PARAM) {44 {Edit Server Parameters...}}
set SCO_AAS_MSGS(MSG_SERVER_PARAM_MN) {45 E}
set SCO_AAS_MSGS(MSG_SERVER_PARAM_SH) {46 {Configure address server parameters}}
set SCO_AAS_MSGS(MSG_SERVER_START) {47 {Start Server}}
set SCO_AAS_MSGS(MSG_SERVER_START_MN) {48 S}
set SCO_AAS_MSGS(MSG_SERVER_START_SH) {49 {Start the address allocation server}}
set SCO_AAS_MSGS(MSG_SERVER_STOP) {50 {Stop Server}}
set SCO_AAS_MSGS(MSG_SERVER_STOP_MN) {51 p}
set SCO_AAS_MSGS(MSG_SERVER_STOP_SH) {52 {Stop the address allocation server}}
set SCO_AAS_MSGS(MSG_SERVER_RECONFIG) {53 Reconfigure}
set SCO_AAS_MSGS(MSG_SERVER_RECONFIG_MN) {54 R}
set SCO_AAS_MSGS(MSG_SERVER_RECONFIG_SH) {55 {Reconfigure the address allocation server}}
set SCO_AAS_MSGS(MSG_DB) {56 Database}
set SCO_AAS_MSGS(MSG_DB_MN) {57 D}
set SCO_AAS_MSGS(MSG_DB_VIEWTRAN) {58 {View Transaction Database}}
set SCO_AAS_MSGS(MSG_DB_VIEWTRAN_MN) {59 T}
set SCO_AAS_MSGS(MSG_DB_VIEWTRAN_SH) {60 {View the transaction database file}}
set SCO_AAS_MSGS(MSG_DB_VIEWCKPT) {61 {View Checkpoint Files...}}
set SCO_AAS_MSGS(MSG_DB_VIEWCKPT_MN) {62 V}
set SCO_AAS_MSGS(MSG_DB_VIEWCKPT_SH) {63 {View the checkpoint files}}
set SCO_AAS_MSGS(MSG_DB_REMTRAN) {64 {Delete Transaction Database}}
set SCO_AAS_MSGS(MSG_DB_REMTRAN_MN) {65 D}
set SCO_AAS_MSGS(MSG_DB_REMTRAN_SH) {66 {Delete the transaction database file}}
set SCO_AAS_MSGS(MSG_DB_REMCKPT) {67 {Delete Checkpoint File...}}
set SCO_AAS_MSGS(MSG_DB_REMCKPT_MN) {68 C}
set SCO_AAS_MSGS(MSG_DB_REMCKPT_SH) {69 {Delete a checkpoint file}}
set SCO_AAS_MSGS(MSG_DB_REMALL) {70 {Delete All}}
set SCO_AAS_MSGS(MSG_DB_REMALL_MN) {71 A}
set SCO_AAS_MSGS(MSG_DB_REMALL_SH) {72 {Remove the transaction database and checkpoint files}}
set SCO_AAS_MSGS(MSG_OPTIONS) {73 Options}
set SCO_AAS_MSGS(MSG_OPTIONS_MN) {74 O}
set SCO_AAS_MSGS(MSG_AUTO_REFRESH_SH) {75 {current view}}
set SCO_AAS_MSGS(MSG_POOL_NAME) {76 {Pool name:}}
set SCO_AAS_MSGS(MSG_POOL_NAME_SH) {77 {Name of the address pool}}
set SCO_AAS_MSGS(MSG_ADDR_IN_POOL) {78 Addresses:}
set SCO_AAS_MSGS(MSG_ADDR_IN_POOL_SH) {79 {List of all addresses in this pool}}
set SCO_AAS_MSGS(MSG_IP_ADD) {80 Add...}
set SCO_AAS_MSGS(MSG_IP_ADD_SH) {81 {Add an address or a range of addresses to the pool}}
set SCO_AAS_MSGS(MSG_IP_MOD) {82 Modify...}
set SCO_AAS_MSGS(MSG_IP_MOD_SH) {83 {Change the selected address or range of addresses}}
set SCO_AAS_MSGS(MSG_IP_DEL) {84 Delete}
set SCO_AAS_MSGS(MSG_IP_DEL_SH) {85 {Remove the selected addresses from the pool}}
set SCO_AAS_MSGS(MSG_INET_POOL) {86 {Address Pool Configuration}}
set SCO_AAS_MSGS(MSG_SELECT_AR) {87 Select:}
set SCO_AAS_MSGS(MSG_SELECT_AR_SH) {88 {Select to enter an address or an address range}}
set SCO_AAS_MSGS(MSG_SELECT_ADDR) {89 Address}
set SCO_AAS_MSGS(MSG_SELECT_ADDR_SH) {90 {Define an address}}
set SCO_AAS_MSGS(MSG_SELECT_RANGE) {91 Range}
set SCO_AAS_MSGS(MSG_SELECT_RANGE_SH) {92 {Define an address range}}
set SCO_AAS_MSGS(MSG_ADDR_RANGE) {93 {Address range:}}
set SCO_AAS_MSGS(MSG_ADDR_RANGE_SH) {94 {Enter an address range or an address}}
set SCO_AAS_MSGS(MSG_ADDR) {95 Address:}
set SCO_AAS_MSGS(MSG_START_ADDR) {96 {Start address:}}
set SCO_AAS_MSGS(MSG_END_ADDR) {97 {End address:}}
set SCO_AAS_MSGS(MSG_IP_SH) {98 {IP address}}
set SCO_AAS_MSGS(MSG_IP_START_SH) {99 {First IP address in range}}
set SCO_AAS_MSGS(MSG_IP_END_SH) {100 {Last IP address in range}}
set SCO_AAS_MSGS(MSG_ADD_ADDRESS) {101 {Add Address or Address Range}}
set SCO_AAS_MSGS(MSG_MOD_ADDRESS) {102 {Modify Address or Address Range}}
set SCO_AAS_MSGS(ERR_DELETE_POOL) {103 {Failed to delete address pool %s}}
set SCO_AAS_MSGS(ERR_REPLACE_POOL) {104 {Failed to modify pool %s}}
set SCO_AAS_MSGS(ERR_CREATE_POOL) {105 {Failed to create pool %s}}
set SCO_AAS_MSGS(MSG_AYS_DEL) {106 {Are you sure you want to delete this pool entry?\n\n%s}}
set SCO_AAS_MSGS(ERR_RENAME_POOL_NAME_EXISTS) {107 {Failed to rename %1$s to %2$s:\n%3$s already exists}}
set SCO_AAS_MSGS(MSG_NEW_POOL_NAME) {108 {New pool name}}
set SCO_AAS_MSGS(MSG_NEW_POOL_NAME_SH) {109 {New name of the address pool}}
set SCO_AAS_MSGS(MSG_RENAME_POOL_TITLE) {110 {Rename Pool}}
set SCO_AAS_MSGS(MSG_NOT_ALLOCATED) {111 UNUSED}
set SCO_AAS_MSGS(MSG_ALLOCATED) {112 ALLOCATED}
set SCO_AAS_MSGS(MSG_RELEASED) {113 RELEASED}
set SCO_AAS_MSGS(MSG_EXPIRED) {114 EXPIRED}
set SCO_AAS_MSGS(MSG_DISABLED) {115 DISABLED}
set SCO_AAS_MSGS(MSG_TEMPORARY) {116 TEMPORARY}
set SCO_AAS_MSGS(ERR_CONTROL_ACTION) {117 {Failed to modify the address status}}
set SCO_AAS_MSGS(ERR_CONTROL_NO_CHANGE) {118 {The %s operation resulted in no changes\nbeing made to the selected addresses.}}
set SCO_AAS_MSGS(MSG_ACTION) {119 Action:}
set SCO_AAS_MSGS(MSG_CONTROL_ENABLE) {120 Enable}
set SCO_AAS_MSGS(MSG_CONTROL_ENABLE_SH) {121 {Enable the selected addresses}}
set SCO_AAS_MSGS(MSG_CONTROL_DISABLE) {122 Disable}
set SCO_AAS_MSGS(MSG_CONTROL_DISABLE_SH) {123 {Disable the selected addresses after its current lease}}
set SCO_AAS_MSGS(MSG_CONTROL_RELEASE) {124 Release}
set SCO_AAS_MSGS(MSG_CONTROL_RELEASE_SH) {125 {Release the lease for the selected addresses}}
set SCO_AAS_MSGS(MSG_CONTROL_NAME) {126 {Control Address Status}}
set SCO_AAS_MSGS(ERR_DELETE_SERVER_ATTR) {127 {Failed to delete server attributes}}
set SCO_AAS_MSGS(ERR_CREATE_SERVER_ATTR) {128 {Failed to create server attributes}}
set SCO_AAS_MSGS(ERR_GET_SERVER_ATTR) {129 {Failed to read the server attributes}}
set SCO_AAS_MSGS(MSG_PWD_ADD) {130 {Password will be added}}
set SCO_AAS_MSGS(ERR_PWD_ADD_EXIST) {131 {Failed to add password, it already exists}}
set SCO_AAS_MSGS(MSG_PWD_DEL) {132 {Password will be deleted}}
set SCO_AAS_MSGS(ERR_PWD_DEL_EXIST) {133 {Failed to delete password, it does not exist}}
set SCO_AAS_MSGS(ERR_PWD_VERIFY) {134 {Password verify failed, password does not exist}}
set SCO_AAS_MSGS(MSG_PWD_VERIFY) {135 {Password verify passed, password exists}}
set SCO_AAS_MSGS(ERR_PWD_BAD_ACTION) {136 {Password maintenance failure - invalid action %s}}
set SCO_AAS_MSGS(MSG_DBASE) {137 {Database directory:}}
set SCO_AAS_MSGS(MSG_DBASE_SH) {138 {Location of the transaction database file}}
set SCO_AAS_MSGS(MSG_COMP_SIZE) {139 {Database compression size (bytes):}}
set SCO_AAS_MSGS(MSG_COMP_SIZE_SH) {140 {Size of the transaction database at which it is compressed}}
set SCO_AAS_MSGS(MSG_CHKP_DIR) {141 {Checkpoint directory:}}
set SCO_AAS_MSGS(MSG_CHKP_DIR_SH) {142 {Location of the checkpoint files}}
set SCO_AAS_MSGS(MSG_CHKP_INTVL) {143 {Checkpoint interval (seconds):}}
set SCO_AAS_MSGS(MSG_CHKP_INTVL_SH) {144 {Number of seconds between checkpoints}}
set SCO_AAS_MSGS(MSG_NUM_CHKP) {145 {Number of checkpoints:}}
set SCO_AAS_MSGS(MSG_NUM_CHKP_SH) {146 {Number of checkpoint files retained by the server}}
set SCO_AAS_MSGS(MSG_PASSWD) {147 Password:}
set SCO_AAS_MSGS(MSG_PASSWD_SH) {148 {Password to authenticate services requesting addresses}}
set SCO_AAS_MSGS(MSG_PASSWD_ADD) {149 {  Add  }}
set SCO_AAS_MSGS(MSG_PASSWD_ADD_SH) {150 {Add this password to the list of passwords}}
set SCO_AAS_MSGS(MSG_PASSWD_DEL) {151 Delete}
set SCO_AAS_MSGS(MSG_PASSWD_DEL_SH) {152 {Delete this password from the list of passwords}}
set SCO_AAS_MSGS(MSG_PASSWD_VER) {153 Verify}
set SCO_AAS_MSGS(MSG_PASSWD_VER_SH) {154 {Verify if this password exists in the database}}
set SCO_AAS_MSGS(MSG_SERV) {155 {Edit Server Parameters}}
set SCO_AAS_MSGS(ERR_GET_SERVER_CONFIG) {156 {Failed to read server configuration}}
set SCO_AAS_MSGS(ERR_START_SERVER) {157 {Failed to start the address allocation server}}
set SCO_AAS_MSGS(ERR_STOP_SERVER) {158 {Failed to stop the address allocation server}}
set SCO_AAS_MSGS(ERR_RESTART_SERVER) {159 {Failed to restart the address allocation server}}
set SCO_AAS_MSGS(MSG_RECONFIG) {160 Restart}
set SCO_AAS_MSGS(MSG_RECONFIG_INFO) {161 {You have changed the database directory.  This requires\na fresh start of the Address Allocation Server}}
set SCO_AAS_MSGS(ERR_RECONFIG_SERVER) {162 {Failed to reconfigure the Address Allocation Server}}
set SCO_AAS_MSGS(MSG_FILE_PATH) {163 {Path name:}}
set SCO_AAS_MSGS(MSG_FILE_PATH_SH) {164 {Path name}}
set SCO_AAS_MSGS(MSG_FILE_SIZE) {165 {File size:}}
set SCO_AAS_MSGS(MSG_FILE_SIZE_SH) {166 {Size of the file}}
set SCO_AAS_MSGS(MSG_FILE_MTIME) {167 {Modification time:}}
set SCO_AAS_MSGS(MSG_FILE_MTIME_SH) {168 {Time the file was last modified}}
set SCO_AAS_MSGS(MSG_FILE_ATIME) {169 {Access time:}}
set SCO_AAS_MSGS(MSG_FILE_ATIME_SH) {170 {Time the file was last accessed}}
set SCO_AAS_MSGS(ERR_GET_VIEW_TDB) {171 {Failed to get transaction database information}}
set SCO_AAS_MSGS(MSG_TDB) {172 {View Transaction Database File Properties}}
set SCO_AAS_MSGS(MSG_CKPT_NAME) {173 {File name}}
set SCO_AAS_MSGS(MSG_CKPT_TIME) {174 {Creation time}}
set SCO_AAS_MSGS(MSG_CKPT_FILES_SH) {175 {List of all checkpoint files}}
set SCO_AAS_MSGS(MSG_CKPT_FILE) {176 {View Checkpoint File Properties}}
set SCO_AAS_MSGS(ERR_CKPT_EMPTY) {177 {There are no checkpoint files}}
set SCO_AAS_MSGS(ERR_CKPT_VIEW) {178 {Failed to get checkpoint file information}}
set SCO_AAS_MSGS(MSG_CKPT_REMOVE) {179 {Delete Checkpoint File}}
set SCO_AAS_MSGS(MSG_CKPT_VIEW) {180 {View Checkpoint File}}
set SCO_AAS_MSGS(ERR_BAD_ATTR) {181 {Failed to perform remove operation.\n%s is not a valid attribute}}
set SCO_AAS_MSGS(ERR_DELETE_DB) {182 {Remove database operation failed}}
set SCO_AAS_MSGS(MSG_DELETE_TDB) {183 {Are you sure that you want to delete the transaction database ?\nIf you delete the transaction database, the current status of the\nAddress Allocation Server will be destroyed.}}
set SCO_AAS_MSGS(MSG_DELETE_CKPT) {184 {Are you sure that you want to delete this checkpoint file ?\nIf you delete a checkpoint file, the current status of the Address Allocation Server\nmay be destroyed.}}
set SCO_AAS_MSGS(MSG_DELETE_ALL) {185 {Are you sure that you want to delete the transaction database\nand the checkpoint files ?\nIf you do this, the current status of the Address Allocation server\nwill be destroyed.}}
set SCO_AAS_MSGS(MSG_VIEW_TYPE) {186 Type}
set SCO_AAS_MSGS(MSG_VIEW_ADDRESSES) {187 {Addresses in pool}}
set SCO_AAS_MSGS(MSG_VIEW_POOL_NAME) {188 {Pool name}}
set SCO_AAS_MSGS(MSG_VIEW_TOTAL) {189 Total}
set SCO_AAS_MSGS(MSG_VIEW_USED) {190 Used}
set SCO_AAS_MSGS(MSG_VIEW_ADDRESS) {191 Address}
set SCO_AAS_MSGS(MSG_VIEW_STATUS) {192 Status}
set SCO_AAS_MSGS(MSG_VIEW_SERVICE) {193 Service}
set SCO_AAS_MSGS(MSG_VIEW_LEASE) {194 Lease}
set SCO_AAS_MSGS(MSG_VIEW_AllOC_TIME) {195 Allocated}
set SCO_AAS_MSGS(MSG_VIEW_RELEASE_TIME) {196 Released}
set SCO_AAS_MSGS(MSG_VIEW_CLIENT_ID) {197 {Client ID}}
set SCO_AAS_MSGS(ERR_POOL_INFO) {198 {Failed to read pool information}}
set SCO_AAS_MSGS(ERR_INVALID_ADDRTYPE) {199 {Error reading pool information: invalid address type %s}}
set SCO_AAS_MSGS(MSG_VIEW_POOL_DEF_LABEL) {200 {Pools defined on %s:}}
set SCO_AAS_MSGS(MSG_VIEW_ADDR_ALLOC_LABEL) {201 {Address allocation by pool on %s:}}
set SCO_AAS_MSGS(MSG_VIEW_SERV_ALLOC_LABEL) {202 {Address allocation by pool and service on %s:}}
set SCO_AAS_MSGS(ERR_NO_INTERVAL) {203 {An interval must be specified}}
set SCO_AAS_MSGS(MSG_AUTO_REFRESH_TITLE) {204 {Set auto refresh interval}}
set SCO_AAS_MSGS(MSG_AUTO_REFRESH_LABEL) {205 {Refresh interval (minutes)}}
set SCO_AAS_MSGS(MSG_EXPAND_ALL) {206 {Expand All}}
set SCO_AAS_MSGS(MSG_EXPAND_ALL_SH) {207 {Expand all entries in the main list}}
set SCO_AAS_MSGS(MSG_COLLAPSE_ALL) {208 {Collapse All}}
set SCO_AAS_MSGS(MSG_COLLAPSE_ALL_SH) {209 {Collapse all entries in the main list}}
set SCO_AAS_MSGS(MSG_EXPAND) {210 Expand}
set SCO_AAS_MSGS(MSG_EXPAND_SH) {211 {Expand the selected entry in the main list}}
set SCO_AAS_MSGS(MSG_COLLAPSE) {212 Collapse}
set SCO_AAS_MSGS(MSG_COLLAPSE_SH) {213 {Collapse the selected entry in the main list}}
#@package: browser \
    browser:Init browser:MenuOpts browser:SetSensitivity \
    browser:ExpandCollapseCB browser:SetStateCB \
    browser:SetDisplayEntry browser:SetParent browser:SetChildren \
    browser:RemDisplayEntry browser:RenameDisplayEntry browser:GetParent \
    browser:GetChildren browser:GetParentPos browser:ShowDisplayEntry \
    browser:HideDisplayEntry browser:ReDisplay browser:FindItemParent \
    browser:FindItemParentPos browser:GetItemFromPos \
    browser:RemoveEntryFromPos browser:RemoveSelectedEntry browser:Search \
    browser:GetSelectedItem browser:GetSelectedItemPos \
    browser:Highlight browser:IsParent browser:DeleteAll \
    browser:GetParentDrawnList
proc browser:Init {browserW {data {}}} {
    global BROWSER BROWSER_DATA BROWSER_STATE
    global BROWSER_NUM_COL_PARENT BROWSER_NUM_COL_CHILD
    set BROWSER $browserW
    if [lempty $data] {
    set data { { {{ICON 1 1 5} {STRING 15} {STRING 50} {DATA} {DATA}}
        {{ICON 1 1 1} {STRING 15} {STRING 40} {DATA} {DATA}} medBoldFont}
      { {{ICON 2} {STRING 15 10 10} {STRING 38} {DATA} {DATA}}
        {{ICON 1} {STRING 20 5 5} {STRING 40} {DATA} {DATA}} medNormalFont}
    }
    }
    set i 0
    foreach levelData $data {
    incr i
    set BROWSER_DATA(level_$i) $levelData
    }
    set col_desc_list [lindex $BROWSER_DATA(level_1) 0]
    set col_desc [lindex $col_desc_list 0]
    set BROWSER_NUM_COL_PARENT [llength [lindex $BROWSER_DATA(level_1) 0]]
    set BROWSER_NUM_COL_CHILD  [llength [lindex $BROWSER_DATA(level_2) 0]]
    set BROWSER_STATE COLLAPSED
} ;# browser:Init
proc browser:MenuOpts {msgID pulldown dialog} {
    set expandAll [VtPushButton $pulldown.exp_all \
        -label [IntlLocalizeMsg ${msgID}_MSG_EXPAND_ALL] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg ${msgID}_MSG_EXPAND_ALL_SH] \
        -callback "browser:SetStateCB EXPANDED"]
    set collapseAll [VtPushButton $pulldown.col_all \
        -label [IntlLocalizeMsg ${msgID}_MSG_COLLAPSE_ALL] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg ${msgID}_MSG_COLLAPSE_ALL_SH]\
        -callback "browser:SetStateCB COLLAPSED"]
    set expand [VtPushButton $pulldown.exp \
        -label [IntlLocalizeMsg ${msgID}_MSG_EXPAND] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg ${msgID}_MSG_EXPAND_SH] \
        -autoLock browser:ExpandCollapseCB \
        -callback browser:ExpandCollapseCB ]
    set collapse [VtPushButton $pulldown.col \
        -label [IntlLocalizeMsg ${msgID}_MSG_COLLAPSE] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg ${msgID}_MSG_COLLAPSE_SH] \
        -autoLock browser:ExpandCollapseCB \
        -callback browser:ExpandCollapseCB ]
    VxSetVar $dialog expandAll   $expandAll
    VxSetVar $dialog collapseAll $collapseAll
    VxSetVar $dialog expand      $expand
    VxSetVar $dialog collapse    $collapse
} ;# browser:MenuOpts
proc browser:SetSensitivity {dialog} {
    global BROWSER displayData
    set expandAll   [VxGetVar $dialog expandAll]
    set collapseAll [VxGetVar $dialog collapseAll]
    set expand      [VxGetVar $dialog expand]
    set collapse    [VxGetVar $dialog collapse]
    set selected [VtDrawnListGetSelectedItem $BROWSER -byPositionList]
    if {$selected == 0} {set selected {}}
    if [lempty $selected] {
    VtSetSensitive $expand 0
    VtSetSensitive $collapse 0
    VtSetSensitive $expandAll 0
    VtSetSensitive $collapseAll 0
    VtUnLock -once
    return
    } else {
    VtSetSensitive $expandAll 1
    VtSetSensitive $collapseAll 1
    }
    set selected [lindex [VtDrawnListGetSelectedItem $BROWSER -byRecordList] 0]
    set type [browser:GetType $selected]
    if [cequal CHILD $type] {
    VtSetSensitive $expand 0
    VtSetSensitive $collapse 0
    VtUnLock -once
    return
    }
    set parentId [browser:GetParentId $type $selected]
    set ent $displayData($parentId)
    keylget ent state state
    if [cequal EXPANDED $state] {
    VtSetSensitive $expand 0
    VtSetSensitive $collapse 1
    } else {
    VtSetSensitive $expand 1
    VtSetSensitive $collapse 0
    }
} ;# browser:SetSensitivity
proc browser:ExpandCollapseCB {cbs} {
    global displayData BROWSER BROWSER_DATA
    if {[info exists displayData] == 0} {
    VtUnLock
    return
    }
    keylget cbs dialog dialog
    set expand   [VxGetVar $dialog expand]
    set collapse [VxGetVar $dialog collapse]
    set pos [VtDrawnListGetSelectedItem $BROWSER -byPositionList]
    set selected [lindex [VtDrawnListGetSelectedItem $BROWSER -byRecordList] 0]
    set type [browser:GetType $selected]
    if [cequal $type CHILD] {
    if {![lempty [info commands SelectChildCB]] } {    ;#CALLOUT
        SelectChildCB $cbs            ;# modify child
    }
    VtUnLock
    return
    }
    set parentId [browser:GetParentId $type $selected]
    set entity $displayData($parentId)
    keylget entity state state
    keylget entity children children
    set numChildren [llength $children]
    if {$numChildren == 0} {
    VtUnLock -once
    return
    }
    set levelData $BROWSER_DATA(level_2)
    switch -- $state {
    EXPANDED {        ;# collapse the browser
        incr pos
        loop i 0 $numChildren 1 {
        VtDrawnListDeleteItem $BROWSER -position $pos
        }
        keylset entity state COLLAPSED
        keylset entity displayed 1
        set displayData($parentId) $entity
    }
    COLLAPSED {        ;# expand the browser
        keylget entity children children
        foreach child $children {
        incr pos
        VtDrawnListAddItem $BROWSER \
            -position $pos \
            -MOTIF_formatList [lindex $levelData 0]\
            -CHARM_formatList [lindex $levelData 1]\
            -overrideFont [lindex $levelData 2]\
            -fieldList $child
        }
        keylset entity state EXPANDED
        keylset entity displayed [expr $numChildren + 1]
        set displayData($parentId) $entity
    }
    }
    browser:SetSensitivity $dialog
    VtUnLock -once
}
proc browser:SetStateCB {newState cbs} {
    global displayData BROWSER_STATE
    if {[info exists displayData] == 0} {
    VtUnLock
    return
    }
    set BROWSER_STATE $newState
    for_array_keys parentId displayData {
    set ent $displayData($parentId)
    keylget ent state state
    if [cequal $state $newState] {
        continue
    }
    keylset ent state $newState
    set displayData($parentId) $ent
    }
    browser:ReDisplay
    browser:SetSensitivity [keylget cbs dialog]
    VtUnLock
} ;# browser:SetStateCB
proc browser:SetDisplayEntry {parentId parent subentries} {
    global displayData BROWSER_STATE
    set displayed 0
    if {[info exists displayData] && \
    ([lsearch [array names displayData] $parentId] != -1)} {
    set oldEntry $displayData($parentId)
    set state [keylget oldEntry state]
    set displayed [keylget oldEntry displayed]
    } elseif {[cequal $BROWSER_STATE EXPANDED]} {
    set state EXPANDED
    } else {
    set state COLLAPSED
    }
    set children {}
    foreach child $subentries {
    lappend children [lappend child $parentId CHILD]
    }
    lappend parent $parentId PARENT
    keylset newEntry data "$parent"
    keylset newEntry children $children
    keylset newEntry state $state
    keylset newEntry displayed $displayed
    set displayData($parentId) $newEntry
} ;# browser:SetDisplayEntry
proc browser:SetParent {parentId data} {
    global displayData
    lappend data $parentId PARENT
    set entry $displayData($parentId)
    keylset entry data $data
    set displayData($parentId) $entry
} ;# SetParent
proc browser:SetChildren {parentId subentries} {
    global displayData
    set children {}
    foreach child $subentries {
    lappend children [lappend child $parentId CHILD]
    }
    set entry $displayData($parentId)
    keylset entry children $children
    set displayData($parentId) $entry
} ;#SetChildren
proc browser:RemDisplayEntry {parentId} {
    global displayData
    unset displayData($parentId)
} ;# RemDisplayEntry
proc browser:RenameDisplayEntry {oldParentId newParentId} {
    global displayData
    set entry $displayData($oldParentId)
    keylget entry data data
    lvarpop data end    ;# remove PARENT flag
    lvarpop data end    ;# remove oldParentId
    lappend data $newParentId PARENT
    keylset entry data "$data"
    keylget entry children subentries
    set children {}
    foreach child $subentries {
        lvarpop child end    ;# remove PARENT flag
        lvarpop child end    ;# remove oldParentId
    lappend children [lappend child $newParentId CHILD]
    }
    keylset entry children $children
    set displayData($newParentId) $entry
    unset displayData($oldParentId)
} ;# RenameDisplayEntry
proc browser:GetParent {parentId} {
    global displayData
    set entry $displayData($parentId)
    keylget entry data data
    lvarpop data end    ;# remove PARENT flag
    lvarpop data end    ;# remove parentId
    return $data
} ;# GetParent
proc browser:GetChildren {parentId} {
    global displayData
    set entry $displayData($parentId)
    keylget entry children children
    set childList {}
    foreach item $children {
        lvarpop item end    ;# remove CHILD flag
        lvarpop item end    ;# remove parentId
    lappend childList $item
    }
    return $childList
} ;#GetChildren
proc browser:GetParentPos {parentId} {
    global displayData BROWSER BROWSER_DATA
    if {! [lempty [info commands SortParentList]] } {    ;#CALLOUT
    set parents [SortParentList [array names displayData]]
    } else {
    set parents [lsort -increasing [array names displayData]]
    }
    if {[lsearch $parents $parentId] == -1} {
    return 0 ;# parentId is not in displayData
    }
    set pos 1    ;# DrawnList starts from 1
    foreach parent $parents {
    set entry $displayData($parent)
    keylget entry displayed displayed
    if {[cequal $parent $parentId]} {
        break
    }
    if {$displayed} {
        set pos [expr $pos + $displayed]
    }
    }
    return $pos
} ;# GetParentPos
proc browser:ShowDisplayEntry {parentId {highlight 0}} {
    global displayData BROWSER BROWSER_DATA
    set parentPos [browser:GetParentPos $parentId]
    set entry $displayData($parentId)
    keylget entry displayed displayed
    keylget entry state state
    keylget entry data data
    if {$displayed} {
    for {set cnt 0} {$cnt < $displayed} {incr cnt} {
        VtDrawnListDeleteItem $BROWSER -position $parentPos
    }
    }
    set levelData $BROWSER_DATA(level_1)
    VtDrawnListAddItem $BROWSER -position $parentPos \
    -fieldList $data \
    -MOTIF_formatList [lindex $levelData 0]\
    -CHARM_formatList [lindex $levelData 1]\
    -overrideFont [lindex $levelData 2]
    if [cequal EXPANDED $state] {
        keylget entry children children
    set pos $parentPos
    set levelData $BROWSER_DATA(level_2)
    foreach child $children {
        incr pos
        VtDrawnListAddItem $BROWSER \
        -position $pos \
        -MOTIF_formatList [lindex $levelData 0]\
        -CHARM_formatList [lindex $levelData 1]\
        -overrideFont [lindex $levelData 2]\
        -fieldList $child
    }
    keylset entry displayed [expr [llength $children] + 1]
    } else {
    keylset entry displayed 1
    }
    set displayData($parentId) $entry
    if {$highlight} {
    browser:Highlight $parentPos
    }
} ;# browser:ShowDisplayEntry
proc browser:HideDisplayEntry {parentId} {
    global displayData BROWSER BROWSER_DATA
    set parentPos [browser:GetParentPos $parentId]
    set entry $displayData($parentId)
    keylget entry displayed displayed
    if {$displayed} {
    for {set cnt 0} {$cnt < $displayed} {incr cnt} {
        VtDrawnListDeleteItem $BROWSER -position $parentPos
    }
    keylset entry displayed 0
        set displayData($parentId) $entry
    }
} ;# HideDisplayEntry
proc browser:ReDisplay {{pos 1}} {
    global displayData BROWSER BROWSER_DATA
    set level1Data $BROWSER_DATA(level_1)
    set level2Data $BROWSER_DATA(level_2)
    VtDrawnListDeleteItem $BROWSER -all
    if {[info exists displayData]} {
    if {! [lempty [info commands SortParentList]] } {    ;#CALLOUT
        set parentList [SortParentList [array names displayData]]
    } else {
        set parentList [lsort -increasing [array names displayData]]
    }
    } else {
    set parentList {}
    }
    if {[lempty $parentList]} {
    return 0
    } else {
    foreach parentId $parentList {
        set ent $displayData($parentId)
        keylget ent state state
        keylget ent data data
        VtDrawnListAddItem $BROWSER \
        -position 0 \
        -MOTIF_formatList [lindex $level1Data 0]\
        -CHARM_formatList [lindex $level1Data 1]\
        -overrideFont [lindex $level1Data 2]\
        -fieldList $data
        if [cequal EXPANDED $state] {
        keylget ent children children
        foreach child $children {
            VtDrawnListAddItem $BROWSER \
            -position 0 \
            -MOTIF_formatList [lindex $level2Data 0]\
            -CHARM_formatList [lindex $level2Data 1]\
            -overrideFont [lindex $level2Data 2]\
            -fieldList $child
        }
        keylset ent displayed [expr [llength $children] + 1]
        } else {
        keylset ent displayed 1
        }
        set displayData($parentId) $ent
    }
        browser:Highlight $pos
    return 1
    }
} ;# browser:ReDisplay
proc browser:FindItemParent {pos} {
    global BROWSER displayData
    set selected [lindex [VtDrawnListGetItem $BROWSER -position $pos] 0]
    if {[lempty $selected]} {
    return {}
    }
    set type [browser:GetType $selected]
    set parentId [browser:GetParentId $type $selected]
    keylget displayData($parentId) data data
    lvarpop data end    ;# remove parentId
    lvarpop data end    ;# remove PARENT flag
    return $data
}
proc browser:FindItemParentPos {pos} {
    global BROWSER
    set selected [lindex [VtDrawnListGetItem $BROWSER -position $pos] 0]
    if {[lempty $selected]} {
    return {}
    }
    set type [browser:GetType $selected]
    if [cequal $type CHILD] {
    set all [VtDrawnListGetItem $BROWSER -all]    ;# all items
    if {! [lempty [info commands FindItemParent]] } { ;#CALLOUT
        set parent [FindItemParent $selected $all]
    } else {
        set parent [VtDrawnListGetItem $BROWSER \
        -field [browser:GetParentIdIndex $type] \
               [browser:GetParentId $type $selected] \
        -field [browser:GetTypeIndex $type] $type
        set parent [lsearch $all [join $parent]]
    }
    set parent [expr {($parent == -1) ? 1 : $parent + 1}]
    } else {
    set parent $pos
    }
    return $parent
}
proc browser:GetItemFromPos {pos} {
    global BROWSER
    set selected [lindex [VtDrawnListGetItem $BROWSER -position $pos] 0]
    lvarpop selected end    ;# remove parentId
    lvarpop selected end    ;# remove PARENT flag
    return $selected
} ;# browser:GetItemFromPos
proc browser:RemoveEntryFromPos {pos} {
    global displayData BROWSER
    set selected [lindex [VtDrawnListGetItem $BROWSER -position $pos] 0]
    set type [browser:GetType $selected]
    set parentId [browser:GetParentId $type $selected]
    if [cequal CHILD $type] {
        set compare [lrange $selected 0 end]
    set ent $displayData($parentId)
    keylget ent children children
    set pop [lvarpop children [lsearch $children $compare]]
    if [string match $pop $compare] {
        VtDrawnListDeleteItem $BROWSER -position $pos
        keylset ent children $children
        keylset ent displayed [expr [llength $children] + 1]
        set displayData($parentId) $ent
        set ret 1
    } else {
        set ret -1        ;# failed to remove child item
    }
    return $ret
    }
    VtDrawnListDeleteItem $BROWSER -position $pos
    set ent $displayData($parentId)
    keylget ent state state
    if [cequal EXPANDED $state ] {
    keylget ent children children
    foreach child $children {
        VtDrawnListDeleteItem $BROWSER -position $pos
    }
    }
    unset displayData($parentId)
    return [browser:Highlight $pos]
} ;# browser:RemoveEntryFromPos
proc browser:RemoveSelectedEntry {} {
    global BROWSER
    set pos [VtDrawnListGetSelectedItem $BROWSER -byPositionList]
    return [browser:RemoveEntryFromPos $pos]
}
proc browser:Search {search {highlight {}}} {
    global BROWSER
    set numEntries [llength [VtDrawnListGetItem $BROWSER -all]]
    set found 0
    loop i 1 $numEntries {
    set entry [lindex [VtDrawnListGetItem $BROWSER -position $i] 0]
    set type [GetType $entry]
    if [cequal CHILD $type] {
        continue    ;# skip sub entries
    }
    if {[string match $search [lindex $entry 1]] ||
        [string match $search [lindex $entry 2]]} {
        set found $i
        break
    }
    }
    if {![lempty $highlight] && $found > 0} {
    browser:Highlight $found
    }
    return $found
}
proc browser:GetSelectedItem {} {
    global BROWSER
    set data [lindex [VtDrawnListGetSelectedItem $BROWSER -byRecordList] 0]
    lvarpop data end    ;# remove parentId
    lvarpop data end    ;# remove PARENT flag
    return $data
}
proc browser:GetSelectedItemPos {} {
    global BROWSER
    return [lindex [VtDrawnListGetSelectedItem $BROWSER -byPositionList] 0]
}
proc browser:Highlight {{pos 1}} {
    global BROWSER
    set noItems [llength [VtDrawnListGetItem $BROWSER -all]]
    if {$noItems > 0} {
    if {$pos > $noItems} {
        VtDrawnListSelectItem $BROWSER -position $noItems
    } else {
        VtDrawnListSelectItem $BROWSER -position $pos
    }
    SaDrawnListShowSelectedItem $BROWSER
    return 1
    } else {
    return 0
    }
}
proc browser:IsParent {pos} {
    global BROWSER
    set selected [lindex [VtDrawnListGetItem $BROWSER -position $pos] 0]
    set type [browser:GetType $selected]
    return [cequal $type PARENT]
}
proc browser:DeleteAll {} {
    global displayData BROWSER
    catch {unset displayData}
    if [info exists BROWSER] {VtDrawnListDeleteItem $BROWSER -all}
}
proc browser:GetParentDrawnList {} {
    global BROWSER
    set displayedList [VtDrawnListGetItem $BROWSER -all]
    set parentList {}
    foreach entry $displayedList {
        if {[cequal [browser:GetType $entry] PARENT]} {
        lvarpop entry end    ;# remove PARENT flag
            lvarpop entry end    ;# remove parentId
        lappend parentList $entry
    }
    }
    return $parentList
}
proc browser:GetParentIdIndex {type} {
    global BROWSER_NUM_COL_PARENT BROWSER_NUM_COL_CHILD
    if {[cequal $type PARENT]} {
    return [expr $BROWSER_NUM_COL_PARENT - 2]
    } else {
    return [expr $BROWSER_NUM_COL_CHILD - 2]
    }
}
proc browser:GetTypeIndex {type} {
    global BROWSER_NUM_COL_PARENT BROWSER_NUM_COL_CHILD
    if {[cequal $type PARENT]} {
    return [expr $BROWSER_NUM_COL_PARENT - 1]
    } else {
    return [expr $BROWSER_NUM_COL_CHILD - 1]
    }
}
proc browser:GetParentId {type selected} {
    return [lindex $selected [browser:GetParentIdIndex $type]]
}
proc browser:GetType {selected} {
    return [lindex $selected end]
}
proc MakeCall {service object attrs {operation ObjectGet}} {
    set result {}
    set objcall [list $operation [list sco $service] \
    [SetInstance $object] $attrs]
    set bmipResponseList [SaMakeObjectCall $objcall]
    foreach bmip $bmipResponseList {
    if [BmipResponseErrorIsPresent bmip] {
        set errorStack [BmipResponseErrorStack bmip]
        ErrorThrow errorStack
    }
    keylset item type [lindex [BmipResponseClass bmip] 1]
    keylset item instance [BmipResponseObjectInstance bmip]
    keylset item attrList [BmipResponseAttrValList bmip]
    lappend result $item
    }
    return $result
}
proc GetAllCall {service attrs} {
    set result {}
    set objcall [list ObjectGet -scope 1 [list sco $service] \
    [SetInstance NULL] $attrs]
    set bmipResponseList [SaMakeObjectCall $objcall]
    foreach bmip $bmipResponseList {
    if [BmipResponseErrorIsPresent bmip] {
        set errorStack [BmipResponseErrorStack bmip]
        ErrorThrow errorStack
    }
    keylset item type [lindex [BmipResponseClass bmip] 1]
    keylset item instance [BmipResponseObjectInstance bmip]
    keylset item attrList [BmipResponseAttrValList bmip]
    lappend result $item
    }
    return $result
}
proc ActionCall {service object action {val {}}} {
    set objcall [list ObjectAction [list sco $service] \
        [SetInstance $object] [list $action] $val]
    set bmipResponseList [SaMakeObjectCall $objcall]
    foreach bmip $bmipResponseList {
    if [BmipResponseErrorIsPresent bmip] {
        set errorStack [BmipResponseErrorStack bmip]
        ErrorThrow errorStack
    }
    keylset item type [lindex [BmipResponseClass bmip] 1]
    keylset item instance [BmipResponseObjectInstance bmip]
    keylset item type [BmipResponseActionType bmip]
    keylset item info [BmipResponseActionInfo bmip]
    lappend result $item
    }
    return $result
}
proc BuildDefineInetPool {form action} {
    set alformW [SaAlignedForm $form.alform [list \
    [list SCO_AAS_MSG_POOL_NAME \
        [list VtComboBox \
        -callback "SaSetFocus next" \
        -autoLock GetAddrListCB \
        -valueChangedCallback GetAddrListCB \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_POOL_NAME_SH]]] \
    [list SCO_AAS_MSG_ADDR_IN_POOL \
        [list VtForm -marginWidth 0 -marginHeight 0 ]] \
    ]]
    VtSetValues $alformW -rightSide FORM
    VtSetValues $alformW -leftSide FORM
    VtSetValues $alformW -topSide FORM
    set poolNameW [VxGetVar $alformW widget1]
    set poolNameF [VxGetVar $alformW form1]
    VtSetValues $poolNameF -CHARM_topOffset 1 -MOTIF_topOffset 25
    set addrsW [VxGetVar $alformW widget2]
    set addrListW [VtDrawnList $addrsW.addrList \
        -MOTIF_rows 7 \
        -formatList { {STRING 31} } \
        -selection BROWSE \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_ADDR_IN_POOL_SH]]
    set addr_rc [VtRowColumn $addrsW.add_rc \
    -vertical \
    -CHARM_spacing 1 \
    -MOTIF_spacing 10 \
    -topSide FORM \
    -leftSide $addrListW \
    -rightSide FORM]
    set addr_but_add [VtPushButton $addr_rc.addr_but_add \
    -label [IntlLocalizeMsg SCO_AAS_MSG_IP_ADD] \
    -labelCenter \
    -autoLock IpAddrCB \
    -callback {IpAddrCB "add"} \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_IP_ADD_SH]]
    set addr_but_del [VtPushButton $addr_rc.addr_but_del \
    -label [IntlLocalizeMsg SCO_AAS_MSG_IP_DEL] \
    -labelCenter \
    -autoLock DeleteAddrListCB \
    -callback DeleteAddrListCB \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_IP_DEL_SH]]
    set addr_but_mod [VtPushButton $addr_rc.addr_but_mod \
    -label [IntlLocalizeMsg SCO_AAS_MSG_IP_MOD] \
    -labelCenter \
    -autoLock IpAddrCB \
    -callback {IpAddrCB "modify"} \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_IP_MOD_SH]]
    set status [SaStatusBar $form.status 0]
    set sep [VtSeparator $form.sep1 -horizontal \
    -leftSide FORM -rightSide FORM \
    -MOTIF_leftOffset -5 -MOTIF_rightOffset -5 \
    -topSide $alformW]
    VxSetVar $form alformW $alformW
    VxSetVar $form poolNameW $poolNameW
    VxSetVar $form addrListW $addrListW
    VxSetVar $form addr_but_add $addr_but_add
    VxSetVar $form addr_but_del $addr_but_del
    VxSetVar $form addr_but_mod $addr_but_mod
    VtSetValues $sep -bottomSide $status -bottomOffset 0
    set focusList [list $poolNameW $addrListW $addr_but_add $addr_but_del \
    $addr_but_mod]
    lappend focusList [VtGetValues $form -ok]
    SaSetTabGroups $form $focusList
    SaSetFocusList $form $focusList
}
proc DefineInetPoolCB {action cbs} {
    set dialog [keylget cbs dialog]    ;# dialog is Main(Dialog)
    set form [VtFormDialog $dialog.poolDlog \
    -title [IntlLocalizeMsg SCO_AAS_MSG_INET_POOL] \
    -help \
    -autoLock SaveInetPoolCB \
    -okCallback SaveInetPoolCB \
    -cancelButton CANCEL \
    -cancelCallback VxEndFormCB]
    BuildDefineInetPool $form $action
    set poolNameW [VxGetVar $form poolNameW]
    set addrListW [VxGetVar $form addrListW]
    set drawnParentList [browser:GetParentDrawnList]
    set drawnPoolList {}
    foreach entry $drawnParentList {
    lappend drawnPoolList [lindex $entry 0]
    }
    if {![lempty $drawnPoolList]} {
    VtSetValues $poolNameW -itemList $drawnPoolList
    }
    if {[cequal $action modify]} {
    set selpos [browser:GetSelectedItemPos]
    set selItem [browser:FindItemParent $selpos]
    set poolName [lindex $selItem 0]
    } else {
    set poolName {}
    }
    VtSetValues $poolNameW -value $poolName
    VxSetVar $form parent $dialog
    VtShow $form
    VtUnLock
}
proc GetAddrListCB {cbs} {
    keylget cbs dialog dialog
    set poolNameW [VxGetVar $dialog poolNameW]
    set addrListW [VxGetVar $dialog addrListW]
    set addr_but_add [VxGetVar $dialog addr_but_add]
    set addr_but_del [VxGetVar $dialog addr_but_del]
    set addr_but_mod [VxGetVar $dialog addr_but_mod]
    if {![lempty [VtDrawnListGetItem $addrListW -all]]} {
        VtDrawnListDeleteItem $addrListW -all
    }
    set poolName [VtGetValues $poolNameW -value]
    if {[string length $poolName] == 0} {
    VtSetSensitive $addr_but_add 0
    VtSetSensitive $addr_but_del 0
    VtSetSensitive $addr_but_mod 0
    } else {
    set poolList [VtGetValues $poolNameW -itemList]
    VtSetSensitive $addr_but_add 1
    if {![lempty $poolList] && ([lsearch $poolList $poolName] != -1)} {
        append parentId $poolName :INET
        if {[ErrorCatch errStack 0 "MakeCall aasPool $parentId \
        addressList" infoList] != 0} {
        SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
        VtUnLock
        return
        }
        set info [lindex $infoList 0]
        keylget info attrList attrList
        keylget attrList addressList addrList
        foreach addr $addrList {
        VtDrawnListAddItem $addrListW -recordList $addr
        }
        VtDrawnListSelectItem $addrListW -position 1
        VtSetSensitive $addr_but_del 1
        VtSetSensitive $addr_but_mod 1
    } else {
        VtSetSensitive $addr_but_del 0
        VtSetSensitive $addr_but_mod 0
    }
    }
    VtUnLock
}
proc SelectTypeCB {cbs} {
    keylget cbs value value
    keylget cbs selectedWidget selectedW
    keylget cbs dialog dialog
    set startAddrL [VxGetVar $dialog startAddrL]
    set startAddrW [VxGetVar $dialog startAddrW]
    set endAddrL [VxGetVar $dialog endAddrL]
    set endAddrW [VxGetVar $dialog endAddrW]
    set addrL [VxGetVar $dialog addrL]
    set addrW [VxGetVar $dialog addrW]
    set selectAddrW [VxGetVar $dialog selectAddrW]
    set selectRangeW [VxGetVar $dialog selectRangeW]
    set sW [VxGetShortName $selectedW]
    set sAW [VxGetShortName $selectAddrW]
    set sRW [VxGetShortName $selectRangeW]
    if {$sW == $sAW} {
    VtSetSensitive $startAddrL 0
    VtSetSensitive $startAddrW 0
    VtSetSensitive $endAddrL 0
    VtSetSensitive $endAddrW 0
    VtSetSensitive $addrL 1
    VtSetSensitive $addrW 1
    } elseif {$sW == $sRW} {
    VtSetSensitive $startAddrL 1
    VtSetSensitive $startAddrW 1
    VtSetSensitive $endAddrL 1
    VtSetSensitive $endAddrW 1
    VtSetSensitive $addrL 0
    VtSetSensitive $addrW 0
    }
    SaSetFocus next $cbs
    VtUnLock
}
proc IpAddrBuild {form} {
    set alformW [SaAlignedForm $form.alform [list \
    [list SCO_AAS_MSG_POOL_NAME \
        [list VtText \
        -callback "SaSetFocus next" \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_POOL_NAME_SH]]] \
    [list SCO_AAS_MSG_SELECT_AR \
        [list VtRadioBox -horizontal \
            -autoLock SelectTypeCB \
        -callback SelectTypeCB \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_SELECT_AR_SH]]] \
    [list SCO_AAS_MSG_ADDR \
        [list VtForm -marginWidth 0 -marginHeight 0]] \
    [list SCO_AAS_MSG_START_ADDR \
        [list VtForm -marginWidth 0 -marginHeight 0]] \
    [list SCO_AAS_MSG_END_ADDR \
        [list VtForm -marginWidth 0 -marginHeight 0]] \
    ]]
    set poolNameW [VxGetVar $alformW widget1]
    set poolNameF [VxGetVar $alformW form1]
    VtSetValues $poolNameF -CHARM_topOffset 1 -MOTIF_topOffset 25
    set selectAddrCW [VxGetVar $alformW widget2]
    set selectAddrCL [VxGetVar $alformW label2]
    set addrW [VxGetVar $alformW widget3]
    set addrF [VxGetVar $alformW form3]
    set addrL [VxGetVar $alformW label3]
    set startAddrW [VxGetVar $alformW widget4]
    set startAddrF [VxGetVar $alformW form4]
    set startAddrL [VxGetVar $alformW label4]
    set endAddrW [VxGetVar $alformW widget5]
    set endAddrF [VxGetVar $alformW form5]
    set endAddrL [VxGetVar $alformW label5]
    set selectAddrW [VtToggleButton $selectAddrCW.addr \
    -label [IntlLocalizeMsg SCO_AAS_MSG_SELECT_ADDR] \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_SELECT_ADDR_SH]]
    set selectRangeW [VtToggleButton $selectAddrCW.range \
    -label [IntlLocalizeMsg SCO_AAS_MSG_SELECT_RANGE] \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_SELECT_RANGE_SH]]
    createIPwidget $addrW "" SCO_AAS_MSG_IP_SH
    createIPwidget $startAddrW "" SCO_AAS_MSG_IP_START_SH
    createIPwidget $endAddrW "" SCO_AAS_MSG_IP_END_SH
    set sep [VtSeparator $form.sep1 -horizontal \
    -leftSide FORM -rightSide FORM \
    -MOTIF_leftOffset -5 -MOTIF_rightOffset -5 \
    -topSide $alformW]
    set status [SaStatusBar $form.status 0]
    VtSetValues $poolNameW -rightSide NONE
    VtSetValues $selectAddrCW -rightSide NONE
    VtSetValues $addrW -rightSide NONE
    VtSetValues $startAddrW -rightSide NONE
    VtSetValues $endAddrW -rightSide NONE
    VxSetVar $form alformW $alformW
    VxSetVar $form poolNameW $poolNameW
    VxSetVar $form poolNameF $poolNameF
    VxSetVar $form selectAddrCL $selectAddrCL
    VxSetVar $form selectAddrW $selectAddrW
    VxSetVar $form selectRangeW $selectRangeW
    VxSetVar $form addrW $addrW
    VxSetVar $form addrL $addrL
    VxSetVar $form startAddrW $startAddrW
    VxSetVar $form startAddrL $startAddrL
    VxSetVar $form endAddrW $endAddrW
    VxSetVar $form endAddrL $endAddrL
    VtSetValues $sep -bottomSide $status -bottomOffset 0
    set focusList [list $poolNameW $selectAddrW $selectRangeW \
    $addrW $startAddrW $endAddrW]
    lappend focusList [VtGetValues $form -ok]
    SaSetTabGroups $form $focusList
    SaSetFocusList $form $focusList
}
proc IpAddrCB { type cbs } {
    set dialog [keylget cbs dialog]
    set form [VtFormDialog $dialog.addaddr \
    -help \
    -autoLock AddAddrListCB \
    -okCallback [list AddAddrListCB $type] \
    -cancelButton CANCEL \
    -cancelCallback VxEndFormCB]
    IpAddrBuild $form
    set parentPoolNameW [VxGetVar $dialog poolNameW]
    set parentAddrListW [VxGetVar $dialog addrListW]
    set poolNameW [VxGetVar $form poolNameW]
    set startAddrL [VxGetVar $form startAddrL]
    set startAddrW [VxGetVar $form startAddrW]
    set endAddrL [VxGetVar $form endAddrL]
    set endAddrW [VxGetVar $form endAddrW]
    set addrL [VxGetVar $form addrL]
    set addrW [VxGetVar $form addrW]
    set selectAddrW [VxGetVar $form selectAddrW]
    set selectRangeW [VxGetVar $form selectRangeW]
    VtSetValues $poolNameW -value [VtGetValues $parentPoolNameW -value]
    if {[cequal $type add]} {
    VtSetValues $form -title [IntlLocalizeMsg SCO_AAS_MSG_ADD_ADDRESS]
    setIPwidgetValue $addrW ""
    setIPwidgetValue $startAddrW ""
    setIPwidgetValue $endAddrW ""
    VtSetValues $selectAddrW -value 1
    VtSetValues $selectRangeW -value 0
    VtSetSensitive $addrL 1
    VtSetSensitive $addrW 1
    VtSetSensitive $startAddrL 0
    VtSetSensitive $startAddrW 0
    VtSetSensitive $endAddrL 0
    VtSetSensitive $endAddrW 0
    } else {
    VtSetValues $form -title [IntlLocalizeMsg SCO_AAS_MSG_MOD_ADDRESS]
        set item [VtDrawnListGetSelectedItem $parentAddrListW -byRecordList]
    if {[regexp \
        {([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)-([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)}\
        $item range start end]} {
        setIPwidgetValue $addrW ""
        setIPwidgetValue $startAddrW $start
        setIPwidgetValue $endAddrW $end
        VtSetValues $selectAddrW -value 0
        VtSetValues $selectRangeW -value 1
        VtSetSensitive $addrL 0
        VtSetSensitive $addrW 0
        VtSetSensitive $startAddrL 1
        VtSetSensitive $startAddrW 1
        VtSetSensitive $endAddrL 1
        VtSetSensitive $endAddrW 1
    } elseif {[regexp {[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+} $item addr]} {
        setIPwidgetValue $addrW $addr
        setIPwidgetValue $startAddrW ""
        setIPwidgetValue $endAddrW ""
        VtSetValues $selectAddrW -value 1
        VtSetValues $selectRangeW -value 0
        VtSetSensitive $addrL 1
        VtSetSensitive $addrW 1
        VtSetSensitive $startAddrL 0
        VtSetSensitive $startAddrW 0
        VtSetSensitive $endAddrL 0
        VtSetSensitive $endAddrW 0
    }
    }
    VxSetVar $form parent $dialog
    SaSetFocus next $cbs
    VtShow $form
    VtUnLock
}
proc AddAddrListCB { type cbs } {
    set dialog [keylget cbs dialog]
    set startAddrW [VxGetVar $dialog startAddrW]
    set endAddrW [VxGetVar $dialog endAddrW]
    set addrW [VxGetVar $dialog addrW]
    set selectAddrW [VxGetVar $dialog selectAddrW]
    set selectRangeW [VxGetVar $dialog selectRangeW]
    set parent [VxGetVar $dialog parent]
    set addrListW [VxGetVar $parent addrListW]
    if {[VtGetValues $selectAddrW -value]} {
    set item [getIPwidgetValue $addrW]
    if {![checkIPaddr $item]} {
        VxEndFormCB $cbs
        VtUnLock
        return
    }
    } elseif {[VtGetValues $selectRangeW -value]} {
    set startAddr [getIPwidgetValue $startAddrW]
    set endAddr [getIPwidgetValue $endAddrW]
    if {[checkIPaddr $startAddr] && [checkIPaddr $endAddr]} {
        set item [format "%s%s%s" $startAddr - $endAddr]
    } else {
        VxEndFormCB $cbs
        VtUnLock
        return
    }
    } else {
        VxEndFormCB $cbs
    VtUnLock
    return
   }
   if {[cequal $type add]} {
    VtDrawnListAddItem $addrListW -fieldList $item
    VtDrawnListSelectItem $addrListW -position 0
    set addr_but_del [VxGetVar $parent addr_but_del]
    set addr_but_mod [VxGetVar $parent addr_but_mod]
    VtSetSensitive $addr_but_del 1
    VtSetSensitive $addr_but_mod 1
   } elseif {[cequal $type modify]} {
    set pos [VtDrawnListGetSelectedItem $addrListW -byPositionList]
    VtDrawnListSetItem $addrListW -position $pos -fieldList $item
    VtDrawnListSelectItem $addrListW -position $pos
   }
    VxEndFormCB $cbs
    VtUnLock
}
proc DeleteAddrListCB { cbs } {
    set dialog [keylget cbs dialog]
    set addrListW [VxGetVar $dialog addrListW]
    set pos [VtDrawnListGetSelectedItem $addrListW -byPositionList]
    if {$pos} {
    VtDrawnListDeleteItem $addrListW -position $pos
    }
    set numAddrs [llength [VtDrawnListGetItem $addrListW -all]]
    if {$numAddrs == 0} {
    set addr_but_del [VxGetVar $dialog addr_but_del]
    set addr_but_mod [VxGetVar $dialog addr_but_mod]
    VtSetSensitive addr_but_del 0
    VtSetSensitive addr_but_mod 0
    } elseif {$pos > $numAddrs} {
        VtDrawnListSelectItem $addrListW -position $numAddrs
    } else {
    VtDrawnListSelectItem $addrListW -position $pos
    }
    VtUnLock
}
proc SaveInetPoolCB { cbs } {
    set dialog [keylget cbs dialog]
    set parent [VxGetVar $dialog parent]
    set poolNameW [VxGetVar $dialog poolNameW]
    set addrListW [VxGetVar $dialog addrListW]
    set poolName [VtGetValues $poolNameW -value]
    if {[string length $poolName] == 0} {
    VxEndFormCB $cbs
    VtUnLock
    return
    }
    set addrList [VtDrawnListGetItem $addrListW -all]
    if {[lempty $addrList]} {
    VxEndFormCB $cbs
    VtUnLock
    return
    } else {
    keylset addressList addressList [list $addrList]
    }
    append parentId $poolName :INET
    set poolList [VtGetValues $poolNameW -itemList]
    if {![lempty $poolList] && ([lsearch $poolList $poolName] != -1)} {
    if {[lempty $addrList]} {
        if {[ErrorCatch errStack 0 "MakeCall aasPool $parentId {} \
        ObjectDelete" {} SCO_AAS_ERR_DELETE_POOL $poolName] != 0} {
            SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
            VxEndFormCB $cbs
                VtUnLock
                return
            }
        browser:HideDisplayEntry $parentId
        browser:RemDisplayEntry $parentId
    } else {
        if {[ErrorCatch errStack 0 "MakeCall aasPool $parentId \
        [list $addressList] ObjectReplace" {} SCO_AAS_ERR_REPLACE_POOL \
        $poolName] != 0} {
        SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
        VxEndFormCB $cbs
        VtUnLock
        return
        }
        set data [browser:GetParent $parentId]
        browser:SetDisplayEntry $parentId $data $addrList
        browser:ShowDisplayEntry $parentId 1
    }
    } else {
    if {[ErrorCatch errStack 0 "MakeCall aasPool $parentId \
        [list $addressList] ObjectCreate" {} SCO_AAS_ERR_CREATE_POOL \
        $poolName] != 0} {
        SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
            VxEndFormCB $cbs
        VtUnLock
        return
    }
    browser:SetDisplayEntry $parentId [list $poolName INET] $addrList
    browser:ShowDisplayEntry $parentId 1
    }
    SetMenuSensitivityCB [list [list dialog $parent]]
    ReconfigCB $cbs
    VxEndFormCB $cbs
    VtUnLock
}
proc DeleteEntryCB { cbs } {
    set dialog    [keylget cbs dialog]
    set parent    [VxGetVar $dialog parent]    ;# get parent dialog
    set item     [browser:GetSelectedItem]
    set poolName [lindex $item 0]
    append parentId $poolName :INET
    if {[ErrorCatch errStack 0 "MakeCall aasPool $parentId {} ObjectDelete" \
    {} SCO_AAS_ERR_DELETE_POOL $poolName] != 0} {
    SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
    } else {
    browser:RemoveSelectedEntry
    SetMenuSensitivityCB [list [list dialog $parent]]
    }
    VtUnLock
}
proc DeleteCB { cbs } {
    set dialog    [keylget cbs dialog]
    set item     [browser:GetSelectedItem]
    set poolName     [lindex $item 0]
    if {[string length $poolName]} {
    set form [VtQuestionDialog $dialog.delete \
        -okCallback DeleteEntryCB \
        -autoLock DeleteEntryCB \
        -message [IntlLocalizeMsg SCO_AAS_MSG_AYS_DEL "$poolName"]]
    VxSetVar $form parent $dialog    ;# pass parent dialog
    VtShow $form
    }
    VtUnLock
}
proc RenameSaveInetPoolCB { cbs } {
    set dialog [keylget cbs dialog]
    set poolNameW [VxGetVar $dialog poolNameW]
    set newPoolNameW [VxGetVar $dialog newPoolNameW]
    set poolName [VtGetValues $poolNameW -value]
    if {[string length $poolName] == 0} {
    VtUnLock
    return
    }
    append poolTag $poolName :INET
    set newPoolName [VtGetValues $newPoolNameW -value]
    if {[string length $newPoolName] == 0} {
    VtUnLock
    return
    }
    set poolNames [VtGetValues $poolNameW -itemList]
    if {[lsearch $poolNames $newPoolName] != -1} {
    ErrorPush errStack 0 SCO_AAS_ERR_RENAME_POOL_NAME_EXISTS "$poolName \
        $newPoolName $newPoolName"
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP VxEndFormCB
    VtUnLock
    return
    }
    append newPoolTag $newPoolName :INET
    if {[ErrorCatch errStack 0 "MakeCall aasPool $poolTag \
    addressList" infoList] != 0} {
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    set info [lindex $infoList 0]
    keylget info attrList addressList
    keylget addressList addressList addrList
    if {[lempty $addrList]} {
    VtUnLock
    return
    }
    if {[ErrorCatch errStack 0 "MakeCall aasPool $poolTag {} ObjectDelete" \
    {} SCO_AAS_ERR_DELETE_POOL $poolName] != 0} {
        SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
        VtUnLock
        return
    }
    if {[ErrorCatch errStack 0 "MakeCall aasPool $newPoolTag \
    [list $addressList] ObjectCreate" {} SCO_AAS_ERR_CREATE_POOL \
    $newPoolName] != 0} {
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    browser:HideDisplayEntry $poolTag
    browser:RenameDisplayEntry $poolTag $newPoolTag
    set data [browser:GetParent $newPoolTag]
    lvarpop data 0            ;# remove old pool name
    lvarpush data $newPoolName 0    ;# add new pool name
    browser:SetParent $newPoolTag $data
    browser:ShowDisplayEntry $newPoolTag 1
    ReconfigCB  $cbs
    VxEndFormCB $cbs
    VtUnLock
}
proc RenameBuild {form} {
    set alformW [SaAlignedForm $form.alform [list \
    [list SCO_AAS_MSG_POOL_NAME \
        [list VtComboBox \
        -callback "SaSetFocus next" \
        -columns 20 \
        -readOnly \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_POOL_NAME_SH]]] \
    [list SCO_AAS_MSG_NEW_POOL_NAME \
        [list VtText \
        -callback "SaSetFocus next" \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString \
            [IntlLocalizeMsg SCO_AAS_MSG_NEW_POOL_NAME_SH]]] \
    ]]
    set poolNameW [VxGetVar $alformW widget1]
    set poolNameF [VxGetVar $alformW form1]
    set newPoolNameW [VxGetVar $alformW widget2]
    VtSetValues $poolNameF -CHARM_topOffset 1 -MOTIF_topOffset 25
    VtSetValues $poolNameW -rightSide NONE
    VtSetValues $newPoolNameW -rightSide NONE
    VxSetVar $form poolNameW $poolNameW
    VxSetVar $form poolNameF $poolNameF
    VxSetVar $form newPoolNameW $newPoolNameW
    set sep [VtSeparator $form.sep1 -horizontal \
    -leftSide FORM -rightSide FORM \
    -MOTIF_leftOffset -5 -MOTIF_rightOffset -5 \
    -topSide $alformW]
    set status [SaStatusBar $form.status 0]
    VtSetValues $sep -bottomSide $status -bottomOffset 0
    set focusList [list $poolNameW $newPoolNameW]
    lappend focusList [VtGetValues $form -ok]
    SaSetTabGroups $form $focusList
    SaSetFocusList $form $focusList
}
proc RenameCB {cbs} {
    set parent [keylget cbs dialog]    ;# parent is Main(Dialog)
    set form [VtFormDialog $parent.rename \
    -title [IntlLocalizeMsg SCO_AAS_MSG_RENAME_POOL_TITLE] \
    -help \
    -autoLock RenameSaveInetPoolCB \
    -okCallback RenameSaveInetPoolCB \
    -cancelButton CANCEL \
    -cancelCallback VxEndFormCB]
    RenameBuild $form
    set poolNameW [VxGetVar $form poolNameW]
    set newPoolNameW [VxGetVar $form newPoolNameW]
    set drawnParentList [browser:GetParentDrawnList]
    if {[lempty $drawnParentList]} {
    VtDestroyDialog $form
    VtUnLock
    return
    }
    foreach entry $drawnParentList {
    lappend drawnPoolList [lindex $entry 0]
    }
    if {![lempty $drawnPoolList]} {
    VtSetValues $poolNameW -itemList $drawnPoolList
    }
    set selpos [browser:GetSelectedItemPos]
    set selItem [browser:FindItemParent $selpos]
    set poolName [lindex $selItem 0]
    VtSetValues $poolNameW -value $poolName
    VtShow $form
    VtUnLock
}
proc ControlGetAddrListCB {cbs} {
    keylget cbs dialog dialog
    keylget cbs value poolName
    if {[string length $poolName] == 0} {
    VtUnLock
    return
    }
    set selPool [VxGetVar $dialog selPool]
    set selAddr [VxGetVar $dialog selAddr]
    set poolNameW [VxGetVar $dialog poolNameW]
    set addrListW [VxGetVar $dialog addrListW]
    set selRange [regexp {([0-9]+\.[0-9]+\.[0-9]+\.([0-9]+))-([0-9]+\.[0-9]+\.[0-9]+\.([0-9]+))} $selAddr range start start4 end end4]
    if {![lempty [VtDrawnListGetItem $addrListW -all]]} {
        VtDrawnListDeleteItem $addrListW -all
    }
    set poolList [VtGetValues $poolNameW -itemList]
    if {![lempty $poolList] && ([lsearch $poolList $poolName] != -1)} {
    append parentId $poolName :INET
    if {[ErrorCatch errStack 0 "MakeCall aasPool $parentId \
        addressInfoList" infoList] != 0} {
        SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
        VtUnLock
        return
    }
    set info [lindex $infoList 0]
    keylget info attrList attrList
    keylget attrList addressInfoList addrList
    set pos 0
    set posList {}
    set selPos 1
    foreach item $addrList {
        set addr [lindex $item 0]
        set icon [lindex $item 1]
        set status [lindex $item 2]
        set statusList {}
        incr pos
        set data [concat $addr $icon $status [list $item]]
        VtDrawnListAddItem $addrListW -recordList [list $data]
        if {[cequal $poolName $selPool]} {
        if {($selRange && [cequal $addr $start]) ||
           (!$selRange && [cequal $addr $selAddr])} {
            set selPos $pos
        }
        }
    }
    if {[cequal $poolName $selPool]} {
        if {$selRange} {
        set pos $selPos
        for {set i $start4} {$i <= $end4} {incr i} {
            lappend posList $pos
            incr pos
        }
        } else {
        lappend posList $selPos
        }
        VtDrawnListSelectItem $addrListW -positionList $posList
    }
    }
    VtUnLock
}
proc ControlActionCB {cbs} {
    keylget cbs dialog dialog
    set poolNameW [VxGetVar $dialog poolNameW]
    set addrListW [VxGetVar $dialog addrListW]
    set controlEnableW [VxGetVar $dialog controlEnableW]
    set controlDisableW [VxGetVar $dialog controlDisableW]
    set controlReleaseW [VxGetVar $dialog controlReleaseW]
    set parent [VxGetVar $dialog parent]
    set selDrawnList [VtDrawnListGetSelectedItem $addrListW -byRecordList]
    set poolName [VtGetValues $poolNameW -value]
    set enable [VtGetValues $controlEnableW -value]
    set disable [VtGetValues $controlDisableW -value]
    set release [VtGetValues $controlReleaseW -value]
    if {$enable} {
    set type enable
    } elseif {$disable} {
    set type disable
    } elseif {$release} {
    set type release
    }
    append parentId $poolName :INET
    set noChange 1
    foreach item $selDrawnList {
    set addr   [lindex $item 0]
    set icon   [lindex $item 1]
    set status [lindex $item 2]
    set data   [lindex $item 3]
    set action 0
    switch $type {
        enable {
        if {$icon == 1} {
            set action 1
        }
        }
        disable {
        if {$icon != 1} {
            set action 1
        }
        }
        release {
        if {[cequal [IntlLocalizeMsg SCO_AAS_MSG_ALLOCATED] $status]} {
            set action 1
        }
        }
        default {
        VtUnLock
        return
        }
    }
    if {$action} {
        set noChange 0
        if {[ErrorCatch errStack 0 "ActionCall aasPool $parentId $type \
        [list $data]" {} SCO_AAS_ERR_CONTROL_ACTION] \
            != 0} {
        break
        }
    }
    }
    if {$noChange} {
    ErrorPush errStack 0 SCO_AAS_ERR_CONTROL_NO_CHANGE $type
    }
    if {[info exists errStack] && [llength $errStack]} {
    SaDisplayErrorStacks $parent.action_err [list $errStack] NOHELP
    }
    RefreshDisplayCB $cbs
    VxEndFormCB $cbs
    VtUnLock
}
proc BuildControl {form} {
    global ICON_PATH
    set alformW [SaAlignedForm $form.alform [list \
    [list SCO_AAS_MSG_POOL_NAME \
        [list VtComboBox \
        -callback "SaSetFocus next" \
        -columns 20 \
        -readOnly \
        -autoLock ControlGetAddrListCB \
        -valueChangedCallback ControlGetAddrListCB \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_POOL_NAME_SH]] \
    ] \
    [list SCO_AAS_MSG_ADDR_IN_POOL \
           [list VtDrawnList \
        -horizontalScrollBar 1 \
        -MOTIF_rows 7 \
        -columns 65 \
        -formatList {{STRING 20 0 1} {ICON 2} {STRING 15 1 0} {DATA}} \
        -selection MULTIPLE \
        -CHARM_iconList [list " " "D" "T"] \
        -MOTIF_iconList [list "$ICON_PATH/blank.px" \
        "$ICON_PATH/disable.px" \
        "$ICON_PATH/blank.px"] \
        -font monoNormalFont \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_ADDR_IN_POOL_SH]]\
    ] \
    [list SCO_AAS_MSG_ACTION \
        [list VtRadioBox \
        -horizontal] \
    ] \
    ]]
    set poolNameW [VxGetVar $alformW widget1]
    set poolNameF [VxGetVar $alformW form1]
    set addrListL [VxGetVar $alformW label2]
    set addrListW [VxGetVar $alformW widget2]
    set actionRbL [VxGetVar $alformW label3]
    set actionRbW [VxGetVar $alformW widget3]
    VtSetValues $poolNameF -CHARM_topOffset 1 -MOTIF_topOffset 25
    VtSetValues $poolNameW -rightSide NONE
    VtSetValues $addrListW -rightSide NONE
    VtSetValues $actionRbW -rightSide NONE
    set controlEnableW [VtToggleButton $actionRbW.controlEnable \
    -label [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_ENABLE] \
    -labelCenter \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_ENABLE_SH]]
    set controlDisableW [VtToggleButton $actionRbW.controlDisable \
    -label [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_DISABLE] \
    -labelCenter \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_DISABLE_SH]]
    set controlReleaseW [VtToggleButton $actionRbW.range \
    -label [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_RELEASE] \
    -labelCenter \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_RELEASE_SH]]
    set sep [VtSeparator $form.sep1 -horizontal \
    -leftSide FORM -rightSide FORM \
    -MOTIF_leftOffset -5 -MOTIF_rightOffset -5 \
    -topSide $alformW]
    set status [SaStatusBar $form.status 0]
    VtSetValues $sep -bottomSide $status -bottomOffset 0
    VxSetVar $form alformW $alformW
    VxSetVar $form poolNameW $poolNameW
    VxSetVar $form poolNameF $poolNameF
    VxSetVar $form addrListW $addrListW
    VxSetVar $form actionRbW $actionRbW
    VxSetVar $form controlEnableW $controlEnableW
    VxSetVar $form controlDisableW $controlDisableW
    VxSetVar $form controlReleaseW $controlReleaseW
    set focusList [list $poolNameW $addrListW $controlEnableW \
    $controlDisableW $controlReleaseW]
    lappend focusList [VtGetValues $form -ok]
    SaSetTabGroups $form $focusList
    SaSetFocusList $form $focusList
}
proc ControlCB {cbs} {
    set dialog [keylget cbs dialog]    ;# dialog is Main(Dialog)
    set form [VtFormDialog $dialog.poolDlog \
    -title [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_NAME] \
    -help \
    -autoLock ControlActionCB \
    -okCallback ControlActionCB \
    -cancelButton CANCEL \
    -cancelCallback VxEndFormCB]
    BuildControl $form
    set poolNameW [VxGetVar $form poolNameW]
    set addrListW [VxGetVar $form addrListW]
    set controlEnableW [VxGetVar $form controlEnableW]
    set drawnParentList [browser:GetParentDrawnList]
    set drawnPoolList {}
    foreach entry $drawnParentList {
    lappend drawnPoolList [lindex $entry 0]
    }
    if {[lempty $drawnPoolList]} {
    VtDestroyDialog $form
    VtUnLock
    return
    }
    set pos [browser:GetSelectedItemPos]
    set item [browser:GetSelectedItem]
    if {[browser:IsParent $pos]} {
        set poolName [lindex $item 0]
    set selAddr {}
    } else {
    set parent [browser:FindItemParent $pos]
        set poolName [lindex $parent 0]
    set selAddr [lindex $item 0]
    }
    set poolIndex [lsearch $drawnPoolList $poolName]
    lvarpop drawnPoolList $poolIndex
    lvarpush drawnPoolList $poolName 0
    VtSetValues $poolNameW -itemList $drawnPoolList
    VxSetVar $form selPool $poolName    ;# pass selected pool name
    VxSetVar $form selAddr $selAddr    ;# pass selected address
    VxSetVar $form parent $dialog    ;# pass parent dialog
    VtSetValues $controlEnableW -value 1
    VtShow $form
    VtUnLock
}
proc SelectChildCB {cbs} {
    ControlCB $cbs
}
proc SaveServerCB { cbs } {
    global pwdList
    keylget cbs dialog dialog
    set db_dirW   [VxGetVar $dialog db_dir]
    set db_sizeW  [VxGetVar $dialog db_size]
    set cp_dirW   [VxGetVar $dialog cp_dir]
    set cp_intvlW [VxGetVar $dialog cp_intvl]
    set cp_numW   [VxGetVar $dialog cp_num]
    set parent    [VxGetVar $dialog parent]
    set db_dir   [VtGetValues $db_dirW -value]
    set db_size  [VtGetValues $db_sizeW -value]
    set cp_dir   [VtGetValues $cp_dirW -value]
    set cp_intvl [VtGetValues $cp_intvlW -value]
    set cp_num   [VtGetValues $cp_numW -value]
    if {[string length $db_dir]} {
    keylset serverInfo database_dir $db_dir
    }
    if {[string length $db_size]} {
    keylset serverInfo max_db_size $db_size
    }
    if {[string length $cp_dir]} {
    keylset serverInfo checkpoint_dir $cp_dir
    }
    if {[string length $cp_intvl]} {
    keylset serverInfo checkpoint_intvl $cp_intvl
    }
    if {[string length $cp_num]} {
    keylset serverInfo num_checkpoints $cp_num
    }
    if {[info exists pwdList] && [llength $pwdList]} {
    keylset serverInfo passwordList $pwdList
    }
    if {[ErrorCatch errStack 0 "MakeCall aasServer NULL {} ObjectDelete" \
    {} SCO_AAS_ERR_DELETE_SERVER_ATTR] != 0} {
    SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
    VxEndFormCB $cbs
    VtUnLock
    return
    }
    if {[info exists serverInfo]} {
    if {[ErrorCatch errStack 0 "MakeCall aasServer NULL [list $serverInfo] \
        ObjectCreate" {} SCO_AAS_ERR_CREATE_SERVER_ATTR] != 0} {
        SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
            VxEndFormCB $cbs
        VtUnLock
        return
    }
    }
    ReconfigCB    $cbs
    VxEndFormCB $cbs
    VtUnLock
}
proc GetServerConfig { dialog } {
    global pwdList startDbDir
    set db_dirW   [VxGetVar $dialog db_dir]
    set db_sizeW  [VxGetVar $dialog db_size]
    set cp_dirW   [VxGetVar $dialog cp_dir]
    set cp_intvlW [VxGetVar $dialog cp_intvl]
    set cp_numW   [VxGetVar $dialog cp_num]
    set pwdListW   [VxGetVar $dialog pwdList]
    if {[ErrorCatch {} 1 "MakeCall aasServer NULL {}" \
    infoList SCO_AAS_ERR_GET_SERVER_ATTR] != 0} {
    return 1
    }
    set info [lindex $infoList 0]
    keylget info attrList serverInfo
    set keys [keylkeys serverInfo]
    if {[lsearch $keys database_dir] != -1} {
        keylget serverInfo database_dir db_dir
        VtSetValues $db_dirW -value $db_dir
    }
    if {![info exists startDbDir]} {
    if {[info exists db_dir]} {
        set startDbDir $db_dir
    } else {
        set startDbDir ""
    }
    }
    if {[lsearch $keys max_db_size] != -1} {
        VtSetValues $db_sizeW -value [keylget serverInfo max_db_size]
    }
    if {[lsearch $keys checkpoint_dir] != -1} {
    VtSetValues $cp_dirW -value [keylget serverInfo checkpoint_dir]
    }
    if {[lsearch $keys checkpoint_intvl] != -1} {
    VtSetValues $cp_intvlW -value [keylget serverInfo checkpoint_intvl]
    }
    if {[lsearch $keys num_checkpoints] != -1} {
    VtSetValues $cp_numW -value [keylget serverInfo num_checkpoints]
    }
    if {[lsearch $keys passwordList] != -1} {
    keylget serverInfo passwordList pwdList
    } else {
    set pwdList {}
    }
    return 0
}
proc DoPwdCB { action cbs } {
    global pwdList
    set dialog [keylget cbs dialog]
    set pwdW   [VxGetVar $dialog pwdList]
    set password [VtGetValues $pwdW -value]
    if {![string length $password]} {
    VtUnLock
    return
    } else {
    VtSetValues $pwdW -value ""
    }
    switch $action {
    add {
        if {[lsearch $pwdList $password] == -1} {
        lappend pwdList $password
        set passMsg [IntlLocalizeMsg SCO_AAS_MSG_PWD_ADD]
        } else {
        ErrorPush errStack 0 SCO_AAS_ERR_PWD_ADD_EXIST
        }
    }
    delete {
        set index [lsearch $pwdList $password]
        if {$index == -1} {
        ErrorPush errStack 0 SCO_AAS_ERR_PWD_DEL_EXIST
        } else {
        lvarpop pwdList $index
        set passMsg [IntlLocalizeMsg SCO_AAS_MSG_PWD_DEL]
        }
    }
    verify {
        if {[lsearch $pwdList $password] == -1} {
        ErrorPush errStack 0 SCO_AAS_ERR_PWD_VERIFY
        } else {
        set passMsg [IntlLocalizeMsg SCO_AAS_MSG_PWD_VERIFY]
        }
    }
    default {
        ErrorPush errStack 0 SCO_AAS_ERR_PWD_BAD_ACTION $action
    }
    }
    if {[info exists errStack] && [llength $errStack]} {
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    } elseif {[info exists passMsg]} {
    set pwdMsg [VtMessageDialog $dialog.pass \
        -message $passMsg \
        -ok]
    VtShow $pwdMsg
    }
    VtUnLock
}
proc BuildServer { form } {
    set alform [SaAlignedForm $form.align [list \
            [list SCO_AAS_MSG_DBASE \
                [list VtText  \
                -columns 20 \
                -callback "SaSetFocus next" \
                -shortHelpCallback SaShortHelpCB \
                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_DBASE_SH]] \
            ] \
            [list SCO_AAS_MSG_COMP_SIZE \
                [list VtText \
                -columns 20 \
                -callback "SaSetFocus next" \
                -shortHelpCallback SaShortHelpCB \
                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_COMP_SIZE_SH]] \
            ] \
            [list SCO_AAS_MSG_CHKP_DIR \
                [list VtText \
                -columns 20 \
                -callback "SaSetFocus next" \
                -shortHelpCallback SaShortHelpCB \
                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_CHKP_DIR_SH]] \
            ] \
            [list SCO_AAS_MSG_CHKP_INTVL \
                [list VtText \
                -columns 20 \
                -callback "SaSetFocus next" \
                -shortHelpCallback SaShortHelpCB \
                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_CHKP_INTVL_SH]] \
            ] \
            [list SCO_AAS_MSG_NUM_CHKP \
                [list VtText \
                -columns 20 \
                -callback "SaSetFocus next" \
                -shortHelpCallback SaShortHelpCB \
                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_NUM_CHKP_SH]] \
            ] \
            [list SCO_AAS_MSG_PASSWD \
                [list VtText \
                -callback "SaSetFocus next" \
                -columns 20 \
                -noEcho \
                -shortHelpCallback SaShortHelpCB \
                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_PASSWD_SH]] \
            ] ] ]
        VtSetValues [VxGetVar $alform form1] -CHARM_topOffset 1
        VtSetValues [VxGetVar $alform form6] -CHARM_topOffset 1 -MOTIF_topOffset 12
         set cntrl_rc [VtRowColumn $alform.cntrl_rc \
                                -CHARM_spacing 1 -horizontal \
                                -MOTIF_spacing 10 \
                                -CHARM_topOffset 1 \
                                -leftSide NONE \
                -rightSide FORM \
                                -bottomSide NONE]
                 set addPwd [VtPushButton $cntrl_rc.addPwd \
                                -label [IntlLocalizeMsg SCO_AAS_MSG_PASSWD_ADD] \
                                -labelCenter \
                                -callback { DoPwdCB add } \
                                -shortHelpCallback SaShortHelpCB \
                                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_PASSWD_ADD_SH]]
                 set delPwd [VtPushButton $cntrl_rc.delPwd \
                                -label [IntlLocalizeMsg SCO_AAS_MSG_PASSWD_DEL] \
                                -CHARM_leftOffset 2 \
                                -labelCenter \
                                -callback { DoPwdCB delete } \
                                -shortHelpCallback SaShortHelpCB \
                                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_PASSWD_DEL_SH]]
                 set verPwd [VtPushButton $cntrl_rc.verPwd \
                                -label [IntlLocalizeMsg SCO_AAS_MSG_PASSWD_VER] \
                                -CHARM_leftOffset 2 \
                                -labelCenter \
                                -callback { DoPwdCB verify } \
                                -shortHelpCallback SaShortHelpCB \
                                -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_PASSWD_VER_SH]]
     set sep [VtSeparator $form.sep1 -horizontal \
            -leftSide FORM -rightSide FORM \
            -MOTIF_leftOffset -5 -MOTIF_rightOffset -5 \
            -topSide $alform]
        set status [SaStatusBar $form.status 0]
        VtSetValues $sep -bottomSide $status -bottomOffset 0
        VtSetValues [VxGetVar $alform widget1] -rightSide NONE
    VxSetVar $form db_dir     [VxGetVar $alform widget1]
    VxSetVar $form db_size     [VxGetVar $alform widget2]
    VxSetVar $form cp_dir      [VxGetVar $alform widget3]
    VxSetVar $form cp_intvl    [VxGetVar $alform widget4]
    VxSetVar $form cp_num      [VxGetVar $alform widget5]
    VxSetVar $form pwdList     [VxGetVar $alform widget6]
    VtSetFocus [VxGetVar $alform widget1]
}
proc ServerConfigCB { cbs } {
    set dialog [keylget cbs dialog]
    set form [VtFormDialog $dialog.serverDlog \
    -title [IntlLocalizeMsg SCO_AAS_MSG_SERV] \
    -okCallback SaveServerCB \
    -autoLock SaveServerCB \
    -cancelButton CANCEL \
    -cancelCallback VxEndFormCB \
    -help ]
    BuildServer $form
    if {[ErrorCatch errStack 0 "GetServerConfig $form" {} \
    SCO_AAS_ERR_GET_SERVER_CONFIG] != 0} {
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    VxSetVar $form parent $dialog
    VtShow $form
    VtUnLock
}
proc StartCB { cbs } {
    keylget cbs dialog dialog
    if {[ErrorCatch errStack 0 "ActionCall aasServer NULL start" {} \
    SCO_AAS_ERR_START_SERVER] != 0} {
    SaDisplayErrorStacks $dialog.startErr [list $errStack] NOHELP
    }
    VtUnLock
    return
}
proc StopCB { cbs } {
    keylget cbs dialog dialog
    if {[ErrorCatch errStack 0 "ActionCall aasServer NULL stop" {} \
    SCO_AAS_ERR_STOP_SERVER] != 0} {
    SaDisplayErrorStacks $dialog.stopErr [list $errStack] NOHELP
    }
    VtUnLock
    return
}
proc RestartCB { parent cbs } {
    global startDbDir
    if {[ErrorCatch errStack 0 "ActionCall aasServer NULL restart" {} \
    SCO_AAS_ERR_RESTART_SERVER] != 0} {
    SaDisplayErrorStacks $parent.restart_err [list $errStack] NOHELP
    } else {
    unset startDbDir
    }
    VtUnLock
    return
}
proc ReconfigCB { cbs } {
    global startDbDir
    keylget cbs dialog dialog
    if {[info exists startDbDir]} {
    if {[ErrorCatch errStack 0 "MakeCall aasServer NULL {}" \
        infoList SCO_AAS_ERR_GET_SERVER_ATTR] != 0} {
        SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
            VtUnLock
            return
    }
    set info [lindex $infoList 0]
        keylget info attrList serverInfo
    set keys [keylkeys serverInfo]
    if {[lsearch $keys database_dir] != -1} {
        keylget serverInfo database_dir db_dir
    } else {
        set db_dir ""
    }
    if {![cequal $startDbDir $db_dir]} {
        VtShow [VtQuestionDialog $dialog.restart \
        -okLabel [IntlLocalizeMsg SCO_AAS_MSG_RECONFIG] \
        -autoLock RestartCB \
        -okCallback "RestartCB $dialog" \
        -cancel \
        -cancelButton CANCEL \
        -message [IntlLocalizeMsg SCO_AAS_MSG_RECONFIG_INFO]]
        VtUnLock
        return
    }
    }
    if {[ErrorCatch errStack 0 "ActionCall aasServer NULL reconfig" {} \
    SCO_AAS_ERR_RECONFIG_SERVER] != 0} {
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    }
    VtUnLock
    return
}
proc BuildFile {form} {
    set alform [SaAlignedForm $form.align [list \
    [list SCO_AAS_MSG_FILE_PATH \
        [list VtText  \
        -columns 30 \
        -callback "SaSetFocus next" \
        -readOnly \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_FILE_PATH_SH]] \
    ] \
    [list SCO_AAS_MSG_FILE_SIZE \
        [list VtText \
        -columns 30 \
        -callback "SaSetFocus next" \
        -readOnly \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg \
            SCO_AAS_MSG_FILE_SIZE_SH]] \
    ] \
    [list SCO_AAS_MSG_FILE_MTIME \
        [list VtText \
        -columns 30 \
        -callback "SaSetFocus next" \
        -readOnly \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_FILE_MTIME_SH]] \
    ] \
    [list SCO_AAS_MSG_FILE_ATIME \
        [list VtText \
        -columns 30 \
        -callback "SaSetFocus next" \
        -readOnly \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_FILE_ATIME_SH]] \
    ] \
    ]]
    VtSetValues [VxGetVar $alform form1] -CHARM_topOffset 1
    VtSetValues [VxGetVar $alform form4] -CHARM_topOffset 1 -MOTIF_topOffset 12
    set sep [VtSeparator $form.sep1 -horizontal \
    -leftSide FORM -rightSide FORM \
    -MOTIF_leftOffset -5 -MOTIF_rightOffset -5 \
    -topSide $alform]
    set status [SaStatusBar $form.status 0]
    VtSetValues $sep -bottomSide $status -bottomOffset 0
    VtSetValues [VxGetVar $alform widget1] -rightSide NONE
    VxSetVar $form name     [VxGetVar $alform widget1]
    VxSetVar $form size     [VxGetVar $alform widget2]
    VxSetVar $form mtime      [VxGetVar $alform widget3]
    VxSetVar $form atime    [VxGetVar $alform widget4]
    VtSetFocus [VxGetVar $alform widget1]
}
proc SetFileInfo { item dialog } {
    set nameW    [VxGetVar $dialog name]
    set sizeW    [VxGetVar $dialog size]
    set mtimeW    [VxGetVar $dialog mtime]
    set atimeW    [VxGetVar $dialog atime]
    VtSetValues $nameW  -value [format "%s/%s" [keylget item path] \
    [keylget item name]]
    VtSetValues $sizeW  -value [keylget item size]
    VtSetValues $mtimeW -value [fmtclock [keylget item mtime] "%T %D"]
    VtSetValues $atimeW -value [fmtclock [keylget item atime] "%T %D"]
    return 0
}
proc ViewTranDbCB {cbs} {
    set dialog [keylget cbs dialog]
    if {[ErrorCatch errStack 0 "MakeCall aasDatabase NULL transactionList" \
    infoList SCO_AAS_ERR_GET_VIEW_TDB] != 0} {
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    set info [lindex $infoList 0]
    keylget info attrList attrList
    keylget attrList transactionList transactionList
    set form [VtFormDialog $dialog.viewTranDb \
    -title [IntlLocalizeMsg SCO_AAS_MSG_TDB] \
    -ok \
    -okCallback VxEndFormCB ]
    BuildFile $form
    SetFileInfo $transactionList $form
    VtShow $form
    VtUnLock
}
proc SelectFileCB {type cbs} {
    if {[cequal remove $type]} {
    RemoveDbFileCB checkpoint $cbs
    } else {
    ViewFileCB $cbs
    }
}
proc BuildFileList {type form} {
   set fileListW [VtDrawnList $form.fileList \
    -MOTIF_rows 7 \
    -labelFormatList [list {STRING 15} {STRING 20}] \
    -labelList [list [IntlLocalizeMsg SCO_AAS_MSG_CKPT_NAME] \
        [IntlLocalizeMsg SCO_AAS_MSG_CKPT_TIME]] \
    -formatList {{STRING 15} {STRING 9} {STRING 11} {DATA}} \
    -autoLock SelectFileCB \
    -defaultCallback [list SelectFileCB $type] \
    -selection SINGLE \
    -topSide FORM \
    -leftSide FORM \
    -rightSide FORM \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_CKPT_FILES_SH]]
    set sep [VtSeparator $form.sep1 -horizontal \
    -leftSide FORM -rightSide FORM \
    -MOTIF_leftOffset -5 -MOTIF_rightOffset -5 \
    -topSide $fileListW]
    set status [SaStatusBar $form.status 0]
    VtSetValues $sep -bottomSide $status -bottomOffset 0
    VxSetVar $form fileListW $fileListW
}
proc ViewFileCB {cbs} {
    set dialog [keylget cbs dialog]
    set fileListW [VxGetVar $dialog fileListW]
    set selected [lindex \
    [VtDrawnListGetSelectedItem $fileListW -byRecordList] 0]
    set item [lindex $selected 3]
    set form [VtFormDialog $dialog.viewFile \
    -title [IntlLocalizeMsg SCO_AAS_MSG_CKPT_FILE] \
    -ok \
    -okCallback VxEndFormCB ]
    BuildFile $form
    SetFileInfo $item $form
    VtShow $form
    VtUnLock
}
proc CheckpointCB {type cbs} {
    set dialog [keylget cbs dialog]
    if {[ErrorCatch errStack 0 "MakeCall aasDatabase NULL checkpointList" \
    infoList SCO_AAS_ERR_CKPT_VIEW] != 0} {
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    set info [lindex $infoList 0]
    keylget info attrList attrList
    keylget attrList checkpointList checkpointList
    if {[llength $checkpointList] == 0} {
    ErrorPush errStack 0 SCO_AAS_ERR_CKPT_EMPTY
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    set form [VtFormDialog $dialog.checkpt \
    -ok \
    -autoLock selectFileCB \
    -okCallback [list SelectFileCB $type] \
    -cancel \
    -cancelCallback VxEndFormCB ]
    if {[cequal remove $type]} {
    VtSetValues $form -title [IntlLocalizeMsg SCO_AAS_MSG_CKPT_REMOVE]
    } else {
    VtSetValues $form -title [IntlLocalizeMsg SCO_AAS_MSG_CKPT_VIEW]
    }
    BuildFileList $type $form
    set fileListW [VxGetVar $form fileListW]
    if {[llength $checkpointList] != 0} {
    foreach item $checkpointList {
        VtDrawnListAddItem $fileListW -recordList [list [list \
        [keylget item name] [keylget item time] [keylget item date] \
        $item]]
    }
    VtDrawnListSelectItem $fileListW -position 1
    }
    VtShow $form
    VtUnLock
}
proc RemoveFileCB { type cbs } {
    set dialog [keylget cbs dialog]
    set parent    [VxGetVar $dialog parent]    ;# get parent dialog
    if {[cequal $type transaction]} {
    keylset attr transactionList {}
    } elseif {[cequal $type checkpoint]} {
    set fileListW [VxGetVar $parent fileListW]
    set pos [lindex \
        [VtDrawnListGetSelectedItem $fileListW -byPositionList] 0]
        set selected [lindex \
        [VtDrawnListGetSelectedItem $fileListW -byRecordList] 0]
    set item [lindex $selected 3]
    keylset attr checkpointList [list $item]
    } else {
    ErrorThrow errstack 0 SCO_AAS_ERR_BAD_ATTR $type
    SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    if {[ErrorCatch errStack 0 "MakeCall aasDatabase NULL \
     [list $attr] ObjectRemove" {} SCO_AAS_ERR_DELETE_DB] != 0} {
    SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
    } elseif {[cequal $type checkpoint]} {
    VtDrawnListDeleteItem $fileListW -position $pos
    set noFiles [llength \
        [VtDrawnListGetItem $fileListW -all]]
    if {$noFiles > 0} {
        if {$pos > $noFiles} {
        VtDrawnListSelectItem $fileListW -position $noFiles
        } else {
        VtDrawnListSelectItem $fileListW -position $pos
        }
    } else {
        VxEndFormCB [list [list dialog $parent]]
    }
    }
    VtUnLock
}
proc RemoveDbFileCB {type cbs} {
    set dialog [keylget cbs dialog]
    set form [VtQuestionDialog $dialog.removeDbFile \
    -autoLock RemoveFileCB \
    -ok \
    -okCallback [list RemoveFileCB $type] \
    -cancel]
    VxSetVar $form parent $dialog    ;# pass parent dialog
    if {[cequal $type transaction]} {
    VtSetValues $form -message [IntlLocalizeMsg SCO_AAS_MSG_DELETE_TDB]
    } elseif {[cequal $type checkpoint]} {
    VtSetValues $form -message [IntlLocalizeMsg SCO_AAS_MSG_DELETE_CKPT]
    } else {
    ErrorThrow errstack 0 SCO_AAS_ERR_BAD_ATTR $type
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    VtShow $form
    VtUnLock
}
proc RemoveAllCB {cbs} {
    set dialog [keylget cbs dialog]
    set parent    [VxGetVar $dialog parent]    ;# get parent dialog
    keylset attr transactionList {}
    if {[ErrorCatch errStack 0 "MakeCall aasDatabase NULL \
     [list $attr] ObjectRemove" {} SCO_AAS_ERR_DELETE_DB] != 0} {
    }
    if {[ErrorCatch errStack 0 "MakeCall aasDatabase NULL checkpointList" \
    infoList SCO_AAS_ERR_CKPT_VIEW] != 0} {
    SaDisplayErrorStacks $parent.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    set info [lindex $infoList 0]
    keylget info attrList attrList
    if {[ErrorCatch errStack 0 "MakeCall aasDatabase NULL \
     [list $attrList] ObjectRemove" {} SCO_AAS_ERR_DELETE_DB] != 0} {
    }
    VtUnLock
}
proc RemoveDbAllCB {cbs} {
    set dialog [keylget cbs dialog]
    set form [VtQuestionDialog $dialog.removeAll \
    -message [IntlLocalizeMsg SCO_AAS_MSG_DELETE_ALL] \
    -autoLock RemoveAllCB \
    -ok \
    -okCallback RemoveAllCB \
    -cancel]
    VxSetVar $form parent $dialog    ;# pass parent dialog
    VtShow $form
    VtUnLock
}
proc SetMenuSensitivityCB {cbs} {
    global VIEW
    keylget cbs dialog dialog    ;# dialog is Main(Dialog)
    set add     [VxGetVar $dialog add]
    set modify    [VxGetVar $dialog modify]
    set delete    [VxGetVar $dialog delete]
    set rename  [VxGetVar $dialog rename]
    set control    [VxGetVar $dialog control]
    set pos [browser:GetSelectedItemPos]
    if {[cequal $VIEW GetPoolDef]} {
    set addSen 1
    if {$pos == 0} {
        set modifySen 0
        set deleteSen 0
        set renameSen 0
    } else {
        set parent [browser:IsParent $pos]
        if {$parent} {
        set modifySen 1
        set deleteSen 1
        set renameSen 1
        } else {
        set modifySen 0
        set deleteSen 0
        set renameSen 0
        }
    }
    } else {
    set addSen 0
    set modifySen 0
    set deleteSen 0
    set renameSen 0
    }
    if {$pos == 0} {
    set controlSen 0
    } else {
    set controlSen 1
    }
    VtSetSensitive $add $addSen
    VtSetSensitive $modify $modifySen
    VtSetSensitive $delete $deleteSen
    VtSetSensitive $rename $renameSen
    VtSetSensitive $control $controlSen
    browser:SetSensitivity $dialog
    SetViewLabelCB $cbs
    VtUnLock -once
} ;# SetMenuSensitivityCB
proc SetViewLabelCB {cbs} {
    global VIEW
    keylget cbs dialog dialog    ;# dialog is Main(dialog)
    set mainlist [VxGetVar $dialog mainlist]
    set pos [browser:GetSelectedItemPos]
    if {$pos == 0} {
    set parent 1
    } else {
    set parent [browser:IsParent $pos]
    }
    switch $VIEW {
    GetPoolDef {
        if {$parent} {
        VtSetValues $mainlist \
            -labelFormatList [list {STRING 30} {STRING 30}]
        VtSetValues $mainlist \
            -labelList [list [IntlLocalizeMsg \
            SCO_AAS_MSG_VIEW_POOL_NAME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TYPE]]
        } else {
        VtSetValues $mainlist \
            -labelFormatList [list {STRING 31 60}]
        VtSetValues $mainlist \
            -labelList [list [IntlLocalizeMsg \
            SCO_AAS_MSG_VIEW_ADDRESSES]]
       }
    }
    GetAddrAlloc {
        if {$parent} {
        VtSetValues $mainlist \
            -labelFormatList [list {STRING 30} {STRING 10} \
            {STRING 10} {STRING 10}]
        VtSetValues $mainlist \
            -labelList [list \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_POOL_NAME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TYPE] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TOTAL] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_USED]]
        } else {
        VtSetValues $mainlist \
            -labelFormatList [list {STRING 20} {STRING 10} \
            {STRING 10} {STRING 10} {STRING 15} {STRING 15} \
            {STRING 30}]
        VtSetValues $mainlist \
            -labelList [list \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_ADDRESS] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_STATUS] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_SERVICE] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_LEASE] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_AllOC_TIME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_RELEASE_TIME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_CLIENT_ID]]
       }
    }
    GetServAlloc {
        if {$parent} {
        VtSetValues $mainlist \
            -labelFormatList [list {STRING 30} {STRING 10} \
            {STRING 20}]
        VtSetValues $mainlist \
            -labelList [list [IntlLocalizeMsg \
            SCO_AAS_MSG_VIEW_POOL_NAME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TYPE] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_SERVICE]]
        } else {
        VtSetValues $mainlist \
            -labelFormatList [list {STRING 20} {STRING 10} \
            {STRING 10} {STRING 15} {STRING 15} {STRING 30}]
        VtSetValues $mainlist \
            -labelList [list \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_ADDRESS] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_STATUS] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_LEASE] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_AllOC_TIME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_RELEASE_TIME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_CLIENT_ID]]
        }
    }
    }
} ;# SetViewLabelCB
proc SetDisplayData {type} {
    switch $type {
    GetPoolDef {
        set attrs addressList
    }
    GetAddrAlloc {
        set attrs [list poolInfo addressInfoList]
    }
    GetServAlloc {
        set attrs [list poolInfo serviceInfoList]
    }
    default {
        return 0
    }
    }
    if {[ErrorCatch {} 1 "GetAllCall aasPool [list $attrs]" \
    infoList SCO_AAS_ERR_POOL_INFO] != 0} {
    return 1
    }
    switch $type {
    GetPoolDef {
        foreach info $infoList {
        keylget info instance poolTag
        keylget info attrList attrList
        keylget attrList addressList addressList
        if {![regexp -nocase {(.*):(INET)} $poolTag tmp poolName \
            addrType]} {
            ErrorPush {} 1 SCO_AAS_ERR_INVALID_ADDRTYPE "$addrType"
            return 1
        }
        browser:SetDisplayEntry $poolTag \
            [list $poolName $addrType] $addressList
        }
        }
    GetAddrAlloc {
        foreach info $infoList {
        keylget info instance poolTag
        keylget info attrList attrList
        keylget attrList poolInfo poolInfo
        keylget attrList addressInfoList addressInfoList
        if {![regexp -nocase {(.*):(INET)} $poolTag tmp poolName \
            addrType]} {
            ErrorPush {} 1 SCO_AAS_ERR_INVALID_ADDRTYPE "$addrType"
            return 1
        }
        browser:SetDisplayEntry $poolTag \
            [list $poolName $addrType [lindex $poolInfo 0] \
            [lindex $poolInfo 1]] $addressInfoList
        }
        }
    GetServAlloc {
        foreach info $infoList {
        keylget info instance poolTag
        keylget info attrList attrList
        keylget attrList serviceInfoList serviceInfoList
        if {[llength $serviceInfoList] == 0} {
            continue
        }
        if {![regexp -nocase {(.*):(INET)} $poolTag tmp poolName \
            addrType]} {
            ErrorPush {} 1 SCO_AAS_ERR_INVALID_ADDRTYPE "$addrType"
            return 1
        }
        set serviceList [lsort -increasing [keylkeys serviceInfoList]]
        foreach service $serviceList {
            set newTag [format "%s%s%s%s" $poolName $service \
            ":" $addrType]
            keylget serviceInfoList $service addressInfoList
            browser:SetDisplayEntry $newTag \
                [list $poolName $addrType $service] $addressInfoList
        }
        }
        }
    }
    return 0
} ;# SetDisplayData
proc ViewCB { type cbs } {
    global Main managedHost VIEW
    keylget cbs dialog dialog    ;# dialog is Main(Dialog)
    set mainlist    [VxGetVar $dialog mainlist]
    set view(poolDef)    [VxGetVar $dialog poolDef]
    set view(addrAlloc) [VxGetVar $dialog addrAlloc]
    set view(servAlloc) [VxGetVar $dialog servAlloc]
    set modeWidget    [VxGetVar $dialog modeWidget]
    set VIEW $type
    switch $type {
    GetPoolDef {
        VtSetValues $view(poolDef) -set 1
        VtSetValues $view(addrAlloc) -set 0
        VtSetValues $view(servAlloc) -set 0
        VtSetValues $mainlist \
        -labelFormatList [list {STRING 30} {STRING 30}]
        VtSetValues $mainlist \
        -labelList [list [IntlLocalizeMsg SCO_AAS_MSG_VIEW_POOL_NAME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TYPE]]
        VtSetValues $modeWidget -label \
        [IntlLocalizeMsg SCO_AAS_MSG_VIEW_POOL_DEF_LABEL $managedHost]
        set data {
        {
            {{STRING 30} {STRING 30} {DATA} {DATA}}
            {{STRING 30} {STRING 30} {DATA} {DATA}}
            monoBoldFont
        }
        {
            {{STRING 31 60} {DATA} {DATA}}
            {{STRING 31 60} {DATA} {DATA}}
            monoNormalFont
        }
        }
    }
    GetAddrAlloc {
        VtSetValues $view(poolDef) -set 0
        VtSetValues $view(addrAlloc) -set 1
        VtSetValues $view(servAlloc) -set 0
        VtSetValues $mainlist \
        -labelFormatList [list {STRING 30} {STRING 10} \
            {STRING 10} {STRING 10}]
        VtSetValues $mainlist \
        -labelList [list [IntlLocalizeMsg SCO_AAS_MSG_VIEW_POOL_NAME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TYPE] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TOTAL] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_USED]]
        VtSetValues $modeWidget -label \
        [IntlLocalizeMsg SCO_AAS_MSG_VIEW_ADDR_ALLOC_LABEL $managedHost]
        set data {
        {
            {{STRING 30} {STRING 10} {STRING 10} {STRING 10} \
             {DATA} {DATA}}
            {{STRING 30} {STRING 10} {STRING 10} {STRING 10} \
             {DATA} {DATA}}
            monoBoldFont
        }
        {
            {{STRING 15} {ICON 2} {STRING 10} {STRING 10} {STRING 10} \
            {STRING 6} {STRING 9} {STRING 6} {STRING 9} {STRING 30} \
            {DATA} {DATA}}
            {{STRING 15} {ICON 2} {STRING 10} {STRING 10} {STRING 10} \
             {STRING 6} {STRING 9} {STRING 6} {STRING 9} {STRING 30} \
             {DATA} {DATA}}
            monoNormalFont
        }
        }
    }
    GetServAlloc {
        VtSetValues $view(poolDef) -set 0
        VtSetValues $view(addrAlloc) -set 0
        VtSetValues $view(servAlloc) -set 1
        VtSetValues $mainlist \
        -labelFormatList [list {STRING 30} {STRING 10} \
            {STRING 20}]
        VtSetValues $mainlist \
        -labelList [list [IntlLocalizeMsg SCO_AAS_MSG_VIEW_POOL_NAME] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_TYPE] \
            [IntlLocalizeMsg SCO_AAS_MSG_VIEW_SERVICE]]
        VtSetValues $modeWidget -label \
        [IntlLocalizeMsg SCO_AAS_MSG_VIEW_SERV_ALLOC_LABEL $managedHost]
        set data {
        {
            {{STRING 30} {STRING 10} {STRING 20} \
             {DATA} {DATA}}
            {{STRING 30} {STRING 10} {STRING 20} \
             {DATA} {DATA}}
            monoBoldFont
        }
        {
            {{STRING 15} {ICON 2} {STRING 10} {STRING 10} {STRING 6} \
             {STRING 9} {STRING 6} {STRING 9} {STRING 30} \
             {DATA} {DATA}}
            {{STRING 15} {ICON 2} {STRING 10} {STRING 10} {STRING 6} \
             {STRING 9} {STRING 6} {STRING 9} {STRING 30} \
             {DATA} {DATA}}
            monoNormalFont
        }
        }
    }
    default {
        VtUnLock
        return
    }
    }
    browser:DeleteAll
    browser:Init $mainlist $data
    if {[ErrorCatch errStack 0 "SetDisplayData $type" {}] != 0} {
        SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
            VtUnLock
            return
    }
    browser:ReDisplay
    SetMenuSensitivityCB $cbs
    VtUnLock
} ;# ViewCB
proc SetAutoRefreshIntervalCB {cbs} {
    set dialog      [keylget cbs dialog]
    set interval    [VxGetVar $dialog interval]
    set newInterval [VtGetValues [VxGetVar $interval text] -value]
    if [lempty $newInterval] {
    ErrorPush errStack 0 SCO_AAS_ERR_NO_INTERVAL
    SaDisplayErrorStacks $dialog.err [list $errStack] NOHELP
    VtUnLock
    return
    }
    SaAutoRefreshSetInterval [expr {$newInterval * 60}]
    VxEndFormCB $cbs
}
proc GetAutoRefreshIntervalCB {cbs} {
    keylget cbs dialog parent
    set dialog [VtFormDialog $parent.getInterval \
                -title [IntlLocalizeMsg SCO_AAS_MSG_AUTO_REFRESH_TITLE] \
                -ok -okCallback SetAutoRefreshIntervalCB \
                -cancelButton CANCEL \
                -cancel -cancelCallback VxEndFormCB]
    set interval [expr {[SaAutoRefreshGetInterval] / 60}]
    set alform [SaAlignedForm $dialog.interval [list \
                [list SCO_AAS_MSG_AUTO_REFRESH_LABEL \
                      [list VxSpinButton 8 1 {} 30 {} 1 $interval \
                            {} {}]] \
                ]]
    VtSetValues $alform -topSide FORM -bottomSide FORM -rightSide FORM
    set intervalL [VxGetVar $alform label1]
    VtSetValues $intervalL -font medNormalFont
    VxSetVar $dialog interval [VxGetVar $alform widget1]
    VtShow $dialog
    VtUnLock
}
proc RefreshDisplayCB { cbs } {
    global Main VIEW
    if {[ErrorCatch errStack 0 "SetDisplayData $VIEW" {}] != 0} {
        SaDisplayErrorStacks $Main(Dialog).err [list $errStack] NOHELP
            VtUnLock
            return
    }
    browser:ReDisplay [browser:GetSelectedItemPos]
    VtUnLock
}
proc BuildMenu {} {
    global Main
    set UpperMenu [VtMenuBar $Main(Dialog).uppermenu \
               -helpMenuItemList [SaHelpGetOptionsList] \
              ]
    set hostMenu [VtPulldown $UpperMenu.hostMenu \
                -label [IntlLocalizeMsg SCO_AAS_MSG_HOST] \
                -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_HOST_MN]]
    if {! [info exists Main(NO_OPEN)]} {
    VtPushButton $hostMenu.openHost \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_OPEN_HOST_MN] \
        -label [IntlLocalizeMsg SCO_AAS_MSG_OPEN_HOST] \
        -shortHelpString  [IntlLocalizeMsg SCO_AAS_MSG_OPEN_HOST_SH] \
        -shortHelpCallback SaShortHelpCB \
        -callback SaOpenHostCB -autoLock SaOpenHostCB
    VtSeparator $hostMenu.separator
    }
    if {[info exists Main(exitLabel)]} {
    set label $Main(exitLabel)
    } else {
    set label [IntlLocalizeMsg SCO_AAS_MSG_EXIT]
    }
    if {[info exists Main(exitMN)]} {
    set mnemonic $Main(exitMN)
    } else {
    set mnemonic [IntlLocalizeMsg SCO_AAS_MSG_EXIT_MN]
    }
    if {[info exists Main(exitSH)]} {
    set shortHelp $Main(exitSH)
    } else {
    set shortHelp [IntlLocalizeMsg SCO_AAS_MSG_EXIT_SH]
    }
    VtPushButton $hostMenu.exit \
    -label $label \
    -mnemonic $mnemonic \
    -shortHelpCallback SaShortHelpCB \
    -shortHelpString $shortHelp \
    -callback ClosePrgCB
    set editMenu [VtPulldown $UpperMenu.objMenu \
        -label [IntlLocalizeMsg SCO_AAS_MSG_EDIT] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_EDIT_MN]]
    set editAdd [VtPushButton $editMenu.add \
        -label [IntlLocalizeMsg SCO_AAS_MSG_ADD_INET] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_ADD_INET_MN] \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_ADD_INET_SH] \
        -shortHelpCallback SaShortHelpCB \
        -callback { DefineInetPoolCB "add" } \
        -autoLock DefineInetPool ]
    set editModify [VtPushButton $editMenu.modify \
        -label [IntlLocalizeMsg SCO_AAS_MSG_MODIFY] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_MODIFY_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_MODIFY_SH] \
        -callback { DefineInetPoolCB "modify" } \
        -autoLock DefineInetPoolCB ]
    set editDelete [VtPushButton $editMenu.delete \
        -label [IntlLocalizeMsg SCO_AAS_MSG_DELETE] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_DELETE_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_DELETE_SH] \
        -callback DeleteCB \
        -autoLock DeleteCB ]
    set editRename [VtPushButton $editMenu.rename \
        -label [IntlLocalizeMsg SCO_AAS_MSG_RENAME] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_RENAME_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_RENAME_SH] \
        -callback RenameCB \
        -autoLock RenameCB ]
    VtSeparator $editMenu.sep1
    set editControl [VtPushButton $editMenu.control \
        -label [IntlLocalizeMsg SCO_AAS_MSG_CONTROL] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_CONTROL_SH] \
        -callback ControlCB \
        -autoLock ControlCB ]
    set viewMenu [VtPulldown $UpperMenu.viewMenu \
        -label [IntlLocalizeMsg SCO_AAS_MSG_VIEW] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_VIEW_MN]]
    set viewPoolDef [VtToggleButton $viewMenu.poolDef \
        -label [IntlLocalizeMsg SCO_AAS_MSG_POOL_DEFINITION] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_POOL_DEFINITION_MN] \
        -shortHelpString [IntlLocalizeMsg \
            SCO_AAS_MSG_POOL_DEFINITION_SH] \
        -shortHelpCallback SaShortHelpCB \
        -autoLock ViewCB \
        -callback { ViewCB GetPoolDef } \
        -set 1 ]
    set viewAddrAlloc [VtToggleButton $viewMenu.addrAlloc \
        -label [IntlLocalizeMsg SCO_AAS_MSG_ADDRESS_ALLOCATION] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_ADDRESS_ALLOCATION_MN] \
        -shortHelpString [IntlLocalizeMsg \
            SCO_AAS_MSG_ADDRESS_ALLOCATION_SH] \
        -shortHelpCallback SaShortHelpCB \
        -autoLock ViewCB \
        -callback { ViewCB GetAddrAlloc }]
    set viewServAlloc [VtToggleButton $viewMenu.servAlloc \
        -label [IntlLocalizeMsg SCO_AAS_MSG_SERVICE_ALLOCATION] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_SERVICE_ALLOCATION_MN] \
        -shortHelpString [IntlLocalizeMsg \
            SCO_AAS_MSG_SERVICE_ALLOCATION_SH] \
        -shortHelpCallback SaShortHelpCB \
        -autoLock ViewCB \
        -callback { ViewCB GetServAlloc }]
    VtSeparator $viewMenu.sep1
    browser:MenuOpts "SCO_AAS" $viewMenu $Main(Dialog)
    set serverMenu [VtPulldown $UpperMenu.serverMenu \
        -label [IntlLocalizeMsg SCO_AAS_MSG_SERVER] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_SERVER_MN]]
    set serverParam [VtPushButton $serverMenu.parameters \
        -label [IntlLocalizeMsg SCO_AAS_MSG_SERVER_PARAM] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_SERVER_PARAM_MN] \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_SERVER_PARAM_SH] \
        -shortHelpCallback SaShortHelpCB \
        -autoLock ServerConfigCB \
        -callback ServerConfigCB ]
    VtSeparator $serverMenu.sep1
    set serverStart [VtPushButton $serverMenu.start \
        -label [IntlLocalizeMsg SCO_AAS_MSG_SERVER_START] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_SERVER_START_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_SERVER_START_SH] \
         -autoLock StartCB \
         -callback StartCB ]
    set serverStop [VtPushButton $serverMenu.stop \
        -label [IntlLocalizeMsg SCO_AAS_MSG_SERVER_STOP] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_SERVER_STOP_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_SERVER_STOP_SH] \
         -autoLock StopCB \
         -callback StopCB ]
    set serverReconfig [VtPushButton $serverMenu.reconfig \
        -label [IntlLocalizeMsg SCO_AAS_MSG_SERVER_RECONFIG] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_SERVER_RECONFIG_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg \
            SCO_AAS_MSG_SERVER_RECONFIG_SH] \
         -autoLock ReconfigCB \
         -callback ReconfigCB ]
    VtSeparator $serverMenu.sep2
    set dbMenu [VtPulldown $UpperMenu.dbMenu \
        -label [IntlLocalizeMsg SCO_AAS_MSG_DB] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_DB_MN]]
    set dbViewTran [VtPushButton $dbMenu.viewTran \
        -label [IntlLocalizeMsg SCO_AAS_MSG_DB_VIEWTRAN] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_DB_VIEWTRAN_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_DB_VIEWTRAN_SH] \
         -autoLock ViewTranDbCB \
         -callback ViewTranDbCB ]
    set dbViewCkpt [VtPushButton $dbMenu.viewCkpt \
        -label [IntlLocalizeMsg SCO_AAS_MSG_DB_VIEWCKPT] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_DB_VIEWCKPT_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_DB_VIEWCKPT_SH] \
         -autoLock CheckpointCB \
         -callback [list CheckpointCB view]]
    VtSeparator $dbMenu.sep1
    set dbRemoveTran [VtPushButton $dbMenu.removeTran \
        -label [IntlLocalizeMsg SCO_AAS_MSG_DB_REMTRAN] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_DB_REMTRAN_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_DB_REMTRAN_SH] \
         -autoLock RemoveDbFileCB \
         -callback [list RemoveDbFileCB transaction]]
    set dbRemoveCkpt [VtPushButton $dbMenu.removeCkpt \
        -label [IntlLocalizeMsg SCO_AAS_MSG_DB_REMCKPT] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_DB_REMCKPT_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_DB_REMCKPT_SH] \
         -autoLock CheckpointCB \
         -callback [list CheckpointCB remove]]
    set dbRemoveAll [VtPushButton $dbMenu.removeAll \
        -label [IntlLocalizeMsg SCO_AAS_MSG_DB_REMALL] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_DB_REMALL_MN] \
        -shortHelpCallback SaShortHelpCB \
        -shortHelpString [IntlLocalizeMsg SCO_AAS_MSG_DB_REMALL_SH] \
         -autoLock RemoveDbAllCB \
         -callback RemoveDbAllCB ]
    set optionsMenu [VtPulldown $UpperMenu.optionsMenu \
        -label [IntlLocalizeMsg SCO_AAS_MSG_OPTIONS] \
        -mnemonic [IntlLocalizeMsg SCO_AAS_MSG_OPTIONS_MN]]
    set optRefresh [SaAutoRefresh RefreshDisplayCB \
        $optionsMenu \
        [IntlLocalizeMsg SCO_AAS_MSG_AUTO_REFRESH_SH ] \
        SaShortHelpCB \
        GetAutoRefreshIntervalCB]
    VtSeparator $optionsMenu.sep1
    SaShortHelpMenuOptions $optionsMenu
    set modeWidget [VtLabel $Main(Dialog).mode \
    -MOTIF_leftOffset 4 -MOTIF_topOffset 20 \
    -label [IntlLocalizeMsg SCO_AAS_MSG_WAIT]]
    VxSetVar $Main(Dialog) add        $editAdd
    VxSetVar $Main(Dialog) modify    $editModify
    VxSetVar $Main(Dialog) delete    $editDelete
    VxSetVar $Main(Dialog) rename    $editRename
    VxSetVar $Main(Dialog) control    $editControl
    VxSetVar $Main(Dialog) poolDef    $viewPoolDef
    VxSetVar $Main(Dialog) addrAlloc    $viewAddrAlloc
    VxSetVar $Main(Dialog) servAlloc    $viewServAlloc
    VxSetVar $Main(Dialog) serverParam    $serverParam
    VxSetVar $Main(Dialog) reconfig    $serverReconfig
    VxSetVar $Main(Dialog) optionsMenu    $optionsMenu
    VxSetVar $Main(Dialog) refresh    $optRefresh
    VxSetVar $Main(Dialog) modeWidget    $modeWidget
}
proc BuildMainList {} {
    global Main ICON_PATH
    set mainlist [VtDrawnList $Main(Dialog).list \
    -horizontalScrollBar TRUE \
    -rows 13 \
    -selection SINGLE \
    -MOTIF_leftOffset 4 -MOTIF_rightOffset 4 \
    -CHARM_rows 12 \
    -formatList [list {STRING 30} {STRING 45} {DATA} {DATA}] \
    -labelFormatList [list {STRING 30} {STRING 45}] \
    -CHARM_iconList [list " " "D" "T"] \
    -MOTIF_iconList [list "$ICON_PATH/blank.px" \
        "$ICON_PATH/disable.px" \
        "$ICON_PATH/blank.px"] \
    -callback SetMenuSensitivityCB \
    -defaultCallback browser:ExpandCollapseCB \
    -autoLock {SetMenuSensitivityCB browser:ExpandCollapseCB} \
    -leftSide FORM -rightSide FORM ]
    VxSetVar $Main(Dialog) mainlist $mainlist
    set status [SaStatusBar $Main(Dialog).status 1]
    VtSetValues $mainlist -bottomSide $status
}
proc ClosePrgCB {cbs} {
    global Main
    if {[info exists Main(exitStr)] && $Main(exitStr)} {
    set selpos [browser:GetSelectedItemPos]
    set selItem [browser:FindItemParent $selpos]
    set poolName [lindex $selItem 0]
    puts "exit"
    puts "$poolName"
    }
    VtUnLock
    VtClose
    exit 0
}
proc aasGUI {} {
    global Main managedHost versionNumber
    set aasConf [VtOpen aasConf aasGUI]
    VtSetAppValues $aasConf \
     -versionString [IntlLocalizeMsg SCO_AAS_MSG_VERSION $versionNumber]
    set shortHostname [SaHostExtractSystemName $managedHost]
    set Main(Dialog) [VtFormDialog $aasConf.mainD \
        -title [IntlLocalizeMsg SCO_AAS_MSG_TITLE "$shortHostname"] \
        -wmShadowThickness 0 \
        -wmCloseCallback ClosePrgCB \
        -marginHeight 0 -marginWidth 0 ]
    VtLock
    BuildMenu
    BuildMainList
    SaCharmSetMaxFormDimensions $Main(Dialog)
    VtShow $Main(Dialog)
    if {[id userid] != 0 && !([isOwner] && [isOwner -host $managedHost])} then {
        SaDisplayNoAuths $Main(Dialog).noAuthBox \
           [IntlLocalizeMsg SCO_AAS_MSG_APP_TITLE] \
           ClosePrgCB $managedHost
    }
    ViewCB GetPoolDef [list [list dialog $Main(Dialog)]]
    if [info exists Main(tag)] {
        append parentId $Main(tag) :INET
    set pos [browser:GetParentPos $parentId]
    if {$pos} {
        browser:Highlight $pos
    }
    }
    VtUnLock
} ;# aasGUI
while {! [lempty $argv]} {
    set arg [lvarpop argv]
    if {! [lempty $arg]} {
        switch -- $arg {
        -h    { set Main(exitSH) [lvarpop argv] }
        -l    { set Main(exitLabel) [lvarpop argv] }
        -m    { set Main(exitMN) [lvarpop argv] }
        -n    { set Main(NO_OPEN) 1 }
        -o    { set Main(exitStr) 1 }
        -t    { set Main(tag) [lvarpop argv] }
        default    { lvarpush argv $arg
              break
                        }
        }
    }
}
if {[catch {exec /bin/uname -r} OS]} {
    set OS 4
}
switch -exact $OS {
    3.2 {
    set SA_LIB_DIR /etc/sysadm.d/lib
    set patchArea {__SSO_ID_ST@SCO:Unix:5.0.4Eb            @SSO_ID_END__}
    set NETROOT [SSO_GetSegmentRootPath SHARED $patchArea]
    set ICON_PATH ${NETROOT}/sa/aas
    }
    default {
    set SA_LIB_DIR /usr/lib
    set patchArea {}
    set NETROOT /usr/lib/scoadmin
    set ICON_PATH ${NETROOT}/neticons
    }
}
loadlibindex ${SA_LIB_DIR}/sysadm.tlib
set versionNumber [SaGetSSOVersion $patchArea]
set managedHost [GetManagedHost]
ErrorTopLevelCatch aasGUI [IntlLocalizeMsg SCO_AAS_MSG_APP_TITLE]
VtMainLoop