comptble.tcl

这是vxworks 的图形界面开发软件windML2.0和另一个CP2可以构成完整的界面开发。

# COMPTBLE.TCL - Setup procedures for implementing backward compatibility
#                wizard page
#
# Copyright 1999 Wind River Systems, Inc
#
# modification history
# --------------------
# 01e,20apr99,bjl  added Release Notes message.  
# 01d,24mar99,bjl  set infVals options for portmapper registry.
# 01c,22mar99,bjl  display service message only if NT, added Unix 
#                  torRegRemote message, changed howTo title.  
# 01b,22feb99,tcy  modified to align messages
# 01a,10feb99,tcy  written.
#

#############################################################################
#
# pageCreate(compatibility) - ask user if backward compatibility is requested
#
# This procedure will ask user if backward compatibility is requested
#
# SYNOPSIS
# .tS
# pageCreate(compatibility)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(compatibility) {} {
    global ctrlVals
    global setupVals
    global infVals

    set yesCtrl [list choice \
                -name yes \
                -title yes \
                -callback {onCompatibilitySel yes}\
                -newgroup -auto \
                -x 100 -y 65 -w 205 -h 10]

    set noCtrl [list choice \
                -name no \
                -title no \
                -callback {onCompatibilitySel no}\
                -auto \
                -x 100 -y 78 -w 205 -h 10]

    set ctrlVals(volatileFrm) [list \
            [list label -name message \
                        -title [strTableGet 5030_BACKWARD_COMPATIBILITY]\
                        -x 100 -y 10 -w 193 -h 50] \
            $yesCtrl $noCtrl\
            [list label -name message2 \
                        -title [strTableGet 5050_BACKWARD_COMPATIBILITY]\
                        -x 100 -y 100 -w 193 -h 20] \
            [list label -name message_service \
                        -title [strTableGet 5040_BACKWARD_COMPATIBILITY]\
                        -x 100 -y 125 -w 193 -h 50] \
    ]

    set w [dlgFrmCreate [strTableGet 1495_TITLE_BACKWARD_COMPATIBILITY]]

    set setupVals(compatibilityAction) no

    controlCheckSet $w.$setupVals(compatibilityAction) 1
    controlFocusSet $w.$setupVals(compatibilityAction)

    controlEnable $w.backButt 1
    controlEnable $w.nextButt 1

    # set default icon settings for the inf file

    set infVals(torRegPortmapper) 0
    if {$setupVals(torRegOption) == "torRegStartup"} {
        set infVals(torRegStartup) 1
	set infVals(torRegStartupPortmapper) 0
    }

    # don't display the message about a service if the host is not
    # Windows NT

    if {!$ctrlVals(NT)} {
        controlHide $w.message_service 1
    }

    # test automation

    if { $ctrlVals(useInputScript) } {
        autoSetupLog "Backward Compatilibity page:"
        nextCallback
    }

}

#############################################################################
#
# onCompatibilitySel - set the variable in ctrlVals when option is changed
#
# This procedure will set the variable in ctrlVals when option is changed
#
# SYNOPSIS
# .tS
# onCompatibilitySel <opt>
# .tE
#
# PARAMETERS:
# .IP opt
# option selected
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onCompatibilitySel {opt} {
    global ctrlVals

    set ctrlVals(compatibilityAction) $opt

    # Currently there is no way to start the registry as a service and
    # retain Tornado 1.0.x backward compatibility

    if { "$opt" == "yes" && $ctrlVals(torRegAction) == "torRegNTServ" } {
        messageBox "There is no way to retain backward compatibility if\
                    you have selected to install the Tornado Registry as a\
                    service. Select <Back> to choose another option for\
                    starting the Tornado Registry or select \"no\" for\
                    backward compatibility."
        controlEnable $ctrlVals(mainWindow).nextButt 0
    } else {
        controlEnable $ctrlVals(mainWindow).nextButt 1
    }
}


#############################################################################
#
# pageProcess(compatibility) - process inputs from compatibility page if any
#
# This procedure will process inputs from compatibility page if any
#
# SYNOPSIS
# .tS
# pageProcess(compatibility)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: 1 when successful
#
# ERRORS: N/A
#

proc pageProcess(compatibility) {} {
    global setupVals
    global ctrlVals
    global infVals
   
    if { "$ctrlVals(compatibilityAction)" == "yes" } {
       
        set infVals(torRegPortmapper) 1

        # setupVals(torRegAction) is the value saved in the registry
        # by regOptionRegValueRead ()

        switch $setupVals(torRegOption)  {
            torRegStartup { 
                set msg1 "into the Startup Group"
                set msg2 "the Target Server"
		set infVals(torRegStartup) 0
		set infVals(torRegStartupPortmapper) 1
            }
            torRegRemote { 
	        if {[isUnix]} {
		    set msg1 "on the host $setupVals(registry)"
		} else {
                    set msg1 "on a remote server"
		}
                set msg2 "either a Tornado Registry or a Target Server"
            }
            torRegManual {
                set msg1 "manually"
                set msg2 "either a Tornado Registry or a Target Server"
            }
            default {
                # should not get here!
 
                set error 1
                set setupVals(howToMsg) \
                "You have reached this page on an error, please click\
                 <Back> to go to previous page."
            }
        }

        if {![info exists error]} {
            set setupVals(howToMsg) "You have selected to install the\
            Tornado Registry $msg1. In order to retain Tornado 1.0.x\
            backward compatibility, You must specify the\
            -use_portmapper option when starting $msg2.\
            \n\n\n[strTableGet 5050_BACKWARD_COMPATIBILITY]"
            
        }

    } else {
        pageRemove howTo
    }

    return 1
}


#############################################################################
#
# pageCreate(howTo) - display users how to configure registry or target
#                     server for backward compatibility 
#
# This procedure will display users how to configure registry or target 
#                     server for backward compatibility
#
# SYNOPSIS
# .tS
# pageCreate(howTo)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

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

    set ctrlVals(volatileFrm) [list \
            [list label -name howTo\
                        -title "$setupVals(howToMsg)" \
                        -x 100 -y 10 -w 193 -h 100] \
    ]

    set w [dlgFrmCreate [strTableGet 1495_TITLE_BACKWARD_COMPATIBILITY]]

    # test automation

    if { $ctrlVals(useInputScript) } {
        autoSetupLog "how to page:"
        nextCallback
    }

}

#############################################################################
#
# pageProcess(howTo) - process inputs from howTo page if any
#
# This procedure will process inputs from howTo page if any
#
# SYNOPSIS
# .tS
# pageProcess(howTo)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: 1 when successful
#
# ERRORS: N/A
#

proc pageProcess(howTo) {} {
    return 1
}