instw32.tcl

基于VxWorks的图形界面开发工具Zinc6.0的升级补丁。

                 -title $ctrlVals(portMapStartup) \
                 -newgroup -auto \
                 -callback {onPortMapOptSel portMapStartup}\
                 -x 100 -y 50 -w 205 -h 10]

    set portMapManualCtrl [list choice -name portMapManual \
                 -title $ctrlVals(portMapManual) \
                 -auto \
                 -callback {onPortMapOptSel portMapManual} \
                 -x 100 -y 63 -w 205 -h 10]
        
    set portMapNTServCtrl [list choice -name portMapNTServ \
                 -title $ctrlVals(portMapNTServ) \
                 -auto \
                 -callback {onPortMapOptSel portMapNTServ} \
                 -x 100 -y 76 -w 205 -h 10]

    if {$ctrlVals(NT) == "1"} {

        set msg4Ctrl [list label -name msg4 \
                                 -title [strTableGet 1574_OPTION_DESC] \
                                 -x 100 -y 110 -w 205 -h 55]
    
        set ctrlVals(volatileFrm) [list $msg0Ctrl $portMapStartupCtrl \
                                    $portMapManualCtrl $portMapNTServCtrl \
                                    $msg4Ctrl]
    } {
        set msg4Ctrl [list label -name msg4 \
                                 -title [strTableGet 1575_OPTION_DESC] \
                                 -x 100 -y 110 -w 205 -h 55]

        set ctrlVals(volatileFrm) [list $msg0Ctrl $portMapStartupCtrl \
                                        $portMapManualCtrl $msg4Ctrl]
    }

    set w [dlgFrmCreate "Portmapper"]

    if {$ctrlVals(NT) && !$ctrlVals(admin)} {
        controlEnable $w.portMapNTServ 0
    }

    controlValuesSet $w.portMapStartup 1
    controlFocusSet $w.portMapStartup

    controlEnable $w.backButt 0
    onPortMapOptSel portMapStartup
}


proc pageProcess(portMapper) {} {
    global ctrlVals
    global setupVals

    beginWaitCursor
    switch $ctrlVals(portMapAction) {

        portMapStartup {
           # will handle in tornadoIconAdd function
        }

        portMapManual {
           # Do nothing as this means the user wants to
           # manually install the portmapper
        }

        portMapNTServ {
            if {![catch {setupServiceInstall $setupVals(portMapServName) \
                 [destDirGet]\\host\\x86-win32\\bin\\portserv.exe ""} error]} {

                uninstLog resource "service\t$setupVals(portMapServName)"
            } {
                puts "error: $error"    
            }
            catch {setupServiceStart $setupVals(portMapServName)} error
        }

        default {
            puts "portmapper process: unknown option: \
                $ctrlVals(portMapAction)"
        }
    }
    endWaitCursor
    return 1
}


proc onPortMapOptSel {opt} {
    global ctrlVals

    set ctrlVals(portMapAction) $opt
}


proc pageCreate(torRegistry) {} {
    global ctrlVals
    global setupVals

    set msg0 [strTableGet 1570_OPTION_SELECT]

    set ctrlVals(torRegStartup) [strTableGet 1577_OPTION_STARTUP]
    set ctrlVals(torRegRemote) [strTableGet 1579_OPTION_REMOTE]
    set ctrlVals(torRegManual) [strTableGet 1576_OPTION_MANUAL]
    set ctrlVals(torRegNTServ) [strTableGet 1578_OPTION_SERVICE]

    set msg0Ctrl [list label -name msg0 -title $msg0 \
                             -x 100 -y 10 -w 205 -h 20]

    set torRegStartupCtrl [list choice \
                -name torRegStartup \
                -title $ctrlVals(torRegStartup) \
                -callback {onTorRegOptSel torRegStartup}\
                -newgroup -auto \
                -x 100 -y 40 -w 205 -h 10]

    set torRegRemoteCtrl [list choice \
                -name torRegRemote \
                -title $ctrlVals(torRegRemote) \
                -auto \
                -callback {onTorRegOptSel torRegRemote}\
                -x 100 -y 53 -w 205 -h 10]

    set torRegManualCtrl [list choice \
                -name torRegManual \
                 -title $ctrlVals(torRegManual) \
                 -auto \
                 -callback {onTorRegOptSel torRegManual}\
                 -x 100 -y 66 -w 205 -h 10]

    set torRegNTServCtrl [list choice \
                -name torRegNTServ \
                -title $ctrlVals(torRegNTServ) \
                -auto \
                -callback {onTorRegOptSel torRegNTServ} \
                -x 100 -y 79 -w 205 -h 10]

    if {$ctrlVals(NT)} {
        set msg1Ctrl [list label -name msg1 \
                                 -title [strTableGet 1580_OPTION_DESC] \
                                 -x 100 -y 120 -w 205 -h 55]

        set ctrlVals(volatileFrm) [list $msg0Ctrl $torRegStartupCtrl \
                                        $torRegRemoteCtrl $torRegManualCtrl \
                                        $torRegNTServCtrl $msg1Ctrl \
        ]
    } {
        set msg1Ctrl [list label -name msg1 \
                                 -title [strTableGet 1581_OPTION_DESC] \
                                 -x 100 -y 120 -w 205 -h 55]

        set ctrlVals(volatileFrm) [list $msg0Ctrl $torRegStartupCtrl \
                                        $torRegRemoteCtrl $torRegManualCtrl \
                                        $msg1Ctrl \
        ]
    }

    set w [dlgFrmCreate "Registry"]

    # disallow install Tornado Registry into NTService if portmapper 
    # is not running as service.

    if {$ctrlVals(NT)} {
        if {!$ctrlVals(admin) || \
            ([info exists ctrlVals(portMapAction)] && \
                "$ctrlVals(portMapAction)" != "portMapNTServ")} {

            controlEnable $w.torRegNTServ 0
        }
    }

    controlValuesSet $w.torRegStartup 1
    controlFocusSet $w.torRegStartup
    onTorRegOptSel torRegStartup

    controlEnable $w.backButt 0
}


proc pageProcess(torRegistry) {} {
    global ctrlVals
    global setupVals

    beginWaitCursor
    switch $ctrlVals(torRegAction) {

        torRegStartup {
            pageRemove remoteRegistryHost
            windRegValueWrite "localHost"

            # will add the icon in tornadoIconAdd function
        }

        torRegRemote {
            # user selected to configure a remote registry

        }

        torRegManual {
            # do nothing, user wants to install the registry 
            # manually

            pageRemove remoteRegistryHost
        }

        torRegNTServ {
            pageRemove remoteRegistryHost

            if {![catch {setupServiceInstall $setupVals(torRegServName) \
                 [destDirGet]\\host\\x86-win32\\bin\\wtxregds.exe ""} error]} {

                uninstLog resource "service\t$setupVals(torRegServName)"
            } {
                puts "Unable to install service $setupVals(torRegServName)" 

                uninstLog setuplog \
                   "\tFailed to install service $setupVals(torRegServName)"

            }
            catch {setupServiceStart $setupVals(torRegServName)} error
            windRegValueWrite "localHost"
        }

        default {
            puts "tor registry process: unknown option: \
                $ctrlVals(torRegAction)"
        }
    }
    endWaitCursor
    return 1
}


proc pageCreate(remoteLicenseHost) {} {
    global ctrlVals
    global setupVals

    set msg0 [strTableGet 1353_LICENSE_REMOTE]

    set ctrlVals(volatileFrm) [list \
             [list label -name msg0 -title $msg0 \
                         -x 100 -y 10 -w 205 -h 64] \
             [list label -name msg1 -title "Host Name:" \
                         -x 100 -y 94 -w 40 -h 10] \
             [list text -name remoteLicHost \
                        -x 150 -y 92 -w 148 -h 13] \
    ]
    
    set w [dlgFrmCreate [strTableGet 1561_TITLE_LICENSE_REMOTE]]
    controlValuesSet $w.remoteLicHost [windLmHostValueRead]
    controlFocusSet $w.remoteLicHost
}


proc pageProcess(remoteLicenseHost) {} {
    global ctrlVals
    global setupVals

    set retVal 1
    beginWaitCursor
    set setupVals(licenseHost) \
        [controlValuesGet $ctrlVals(mainWindow).remoteLicHost]

    if ![pingServer $setupVals(licenseHost)] {
        messageBox "[strTableGet 1357_LICENSE_REMOTE_FAIL\
                                 $setupVals(licenseHost)]"
        endWaitCursor
        return 0
    }

    if {![regexp {^[ ]*$} "$setupVals(licenseHost)"]} {
        windLmHostValueWrite $setupVals(licenseHost)
        exitMsgSet [strTableGet 1354_LICENSE_REMOTE]
    } {
        messageBox [strTableGet 1072_WARN_1]
        set retVal 0
    }

    endWaitCursor
    return $retVal
}

proc pageCreate(remoteRegistryHost) {} {
    global ctrlVals
    global setupVals

    set ctrlVals(volatileFrm) [list \
             [list label -name msg0 \
                         -title [strTableGet 1190_REGISTRY_HOST] \
                         -x 100 -y 10 -w 205 -h 64] \
             [list label -name msg1 -title "Host Name:" \
                         -x 100 -y 94 -w 40 -h 10] \
             [list text -name remoteReg \
                        -x 150 -y 92 -w 148 -h 13] \
    ]

    set w [dlgFrmCreate [strTableGet 1490_TITLE_REGISTRY_HOST]]

    controlValuesSet $w.remoteReg [windRegValueRead]
    controlFocusSet $w.remoteReg
    controlEnable $w.backButt 1
}


proc pageProcess(remoteRegistryHost) {} {
    global ctrlVals
    global setupVals

    set setupVals(registry) [controlValuesGet $ctrlVals(mainWindow).remoteReg]

    if {![regexp {^[ ]*$} "$setupVals(registry)" junk]} {
        windRegValueWrite $setupVals(registry)
        return 1
    } {
        messageBox "Please enter a valid registry name"
        return 0
    }
}

proc windLmHostValueWrite {value} {
    global setupVals
    global ctrlVals

    set regPath "Software\\$setupVals(WRS)\\$setupVals(prodRegEntry)"
    regValueWriteLog HKEY_CURRENT_USER \
        $regPath WIND_LMHOST $value noLog
}

proc windRegValueWrite {value} {
    global setupVals
    global ctrlVals

    if {$ctrlVals(NT) && $ctrlVals(admin)} {
        set regPath "SOFTWARE\\$setupVals(WRS)\\$setupVals(prodRegEntry)"
        regValueWriteLog HKEY_LOCAL_MACHINE \
            $regPath WIND_REGISTRY $value noLog
    }

    set regPath "Software\\$setupVals(WRS)\\$setupVals(prodRegEntry)"
    regValueWriteLog HKEY_CURRENT_USER \
        $regPath WIND_REGISTRY $value noLog
}
 
proc pageCreate(finish) {} {
    global ctrlVals
    global setupVals
    global tornadoInstalled

    windowShow $ctrlVals(mainWindow) 0

    fileDup [cdromRootDirGet]\\README.TXT [destDirGet]\\README.TXT update
    fileDup [cdromRootDirGet]\\PROBLEMS.TXT [destDirGet]\\PROBLEMS.TXT update
    fileDup [cdromRootDirGet]\\FIXED.TXT [destDirGet]\\FIXED.TXT update

    if {[info exists tornadoInstalled]} {
        tornadoIconAdd
        torVarsCreate
    }

    # Normal exit message

    exitMsgSet [strTableGet 1210_FINISH]

    # Remind the user that they may need to install license

    if {[llength [cdInfoGet installedFeatureIdList]] > 0} {
        exitMsgSet "[exitMsgGet]  [strTableGet 1205_FINISH]"
    } 

    # Warn the user in case of error during the setup

    if {[errorCountGet] > 0} {
        exitMsgSet "[exitMsgGet]  [strTableGet 1200_FINISH_WARN]" 
    }

    messageBox -ok -informationico [exitMsgGet]
    nextCallback                 
}

proc pageCreate(licenseFinish) {} {
    global setupVals
    global ctrlVals

    windowShow $ctrlVals(mainWindow) 0
    uninstLog setupLog "[cdInfoGet number] SETUP"
    uninstLog setupLog [strTableGet 1261_LICENSE]

    messageBox -informationico [exitMsgGet]
    nextCallback
}


proc pageProcess(licenseFinish) {} {
    return 1
}

proc pageProcess(finish) {} {
    return 1
}

proc pageCreate(iconFinish) {} {
    global setupVals
    global ctrlVals

    windowShow $ctrlVals(mainWindow) 0
    tornadoIconAdd

    messageBox -informationico [strTableGet 1212_FINISH]
    nextCallback
}    


proc pageProcess(iconFinish) {} {
    return 1
}
 

###############################################################################
# Miscellaneous routines 
#

proc partListDlg {} {
    global ctrlVals

    dialogCreate \
        -name partListDlgHnd \
        -title "Select Parts" \
        -width 263 -height 195 \
        -nocontexthelp \
        -init partListDlgInit \
        -parent $ctrlVals(mainWindow) \
        -controls { \
                { button -title "Cancel" -name cancelButt \
                        -xpos 206 -ypos 173 -width 50 -height 14  \
                        -callback onPartListDlgCancel \
                }
                { button -title "OK" -name okButt -default \
                        -xpos 150 -ypos 173 -width 50 -height 14  \
                        -callback onPartListDlgOk \
                }
                { checklist -name optionList  \