choice.tcl

tornado 2.2 for ppc.tcc-cp1-xscale. this rar-files can update 2.2 to 2.2.1 just for education resea

# CHOICE.TCL - Setup procedures for implementing installation-choice wizard 
#              page
#
# Copyright 1999-2003 Wind River Systems, Inc
#
# modification history
# --------------------
# 03i,29apr03,bjl  text rewording.
# 03h,20feb03,bjl  sysadmin license server wording modifications for ELM.
# 03g,14feb03,bjl  modified floating license server wording. 
# 03f,03oct02,bjl  modified message text to use core product name rather
#                  than cdrom description (spr 77983).  
# 03e,15jul02,wmd  Modify the shortcuts explanation to say "already
#                  installed".
# 03d,17may02,wmd  Change format of text.
# 03c,05mar02,bwd  Modified SETUP to be non-tornado centric
# 03b,24jan02,wmd  Add check for evaluation, then disable licAdmin
#                  path.
# 03a,12jun01,j_w  Modified for Tornado 2.2
# 03a,07may01,j_w  Update text messages
# 02z,15dec00,wmd  Fix test placement.
# 02y,02nov00,j_w  Name change - Tornado AE
# 02x,19oct00,bwd  If no tornado or windview products on CD, grey out program
#                  group and LM Inst options
# 02w,02oct00,bwd  Changed to update LMHelpPath in pageProcess
# 02v,02oct00,bwd   Set LMHelpPath global variable to sysadmin upon choosing
#                  LM Installation choice
# 02u,23may00,j_w  set setupVals(lmInstType) to "floating" if user selected LM
#                  installation
# 02t,10may00,j_w  Removed non-debug messages
# 02s,27mar00,bwd  Created a dialog box "LM HOST CONFIRMATION" to prompt 
#                  users for the right host for LM Installation
# 02r,20mar00,bwd  Fixed TEXT mode to default a choice to Full Installation
# 02q,10mar00,j_w  Fixed Wording
# 02p,26jan00,j_w  Fixed spacing
# 02o,25jan00,bwd  Deleted redundant codes and fixed deleting pages manually
# 02n,12jan00,bwd  Added License Management Installation option for TEXT MODE
# 02m,17dec99,clc  change  switch patterns
# 02l,30nov99,j_w  Update LM install option messages
# 02k,16nov99,clc  change text mode variable to setupVals(cmdMode)
# 02j,12nov99,j_w  Add instTypeSet license
# 02i,10nov99,j_w  Fixed test automation
# 02h,05nov99,j_w  added setupVals in pageCreate
# 02g,02nov99,bwd  Auto setup: changed log file to display installChoice
# 02f,01nov99,bwd  Added the section for automatic setup
# 02f,19oct99,clc  add text mode
# 02e,14oct99,bjl  catch controlDestroy of noKeyText in case control
#                  was not previously created.
# 02d,06oct99,j_w  Addedd group box
# 02c,04oct99,j_w  Fixed radio button selection
# 02b,01oct99,j_w  Fixed layout
# 02a,30Sep99,j_w  Modified for T3
# 01b,17feb99,tcy  added new variable setupVals(iconInstallation) to denote
#                  program group installation
# 01a,26jan99,tcy  extracted from INSTW32.TCL.
#

#############################################################################
#
# pageCreate(installChoice) - displays choices of installation
#
# This procedure will display choices of installation such as:
# Full Install  - install all or selected number of Tornado products
# License Management - License Management options
# Program Group - install the Tornado program group and icons only
#
# SYNOPSIS
# .tS
# pageCreate(installChoice)
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc pageCreate(installChoice) {} {
    global ctrlVals setupVals LMHelpPath

    set fullInstDesc ""
    if { [isTornadoProduct] } {
        set fullInstDesc [strTableGet INSTALLCHOICE_TOR_FULL_INSTALL_DESC]
    } else {
        set fullInstDesc [strTableGet INSTALLCHOICE_FULL_INSTALL_DESC]
    }

    if { [isGUImode] } {
        set LMHelpPath ""

        set ctrlVals(volatileFrm) [list \
                [list label -name message1 \
                            -title [strTableGet INSTALLCHOICE_MSG_1] \
                            -x 100 -y 10 -w 160 -h 15] \
                [list choice -name fullInstallChoice -newgroup -auto \
                             -title [strTableGet INSTALLCHOICE_FULL_INSTALL] \
                             -x 102 -y 35 -w 190 -h 15 \
                             -callback onFullInstall] \
                [list label -name fullLabel \
                             -title $fullInstDesc \
                             -x 114 -y 50 -w 190 -h 25] ]
        if {![isUnix]} {
            lappend ctrlVals(volatileFrm) \
                [list choice -name prgGrpChoice -auto \
                             -title [strTableGet INSTALLCHOICE_PROG_GROUP] \
                             -x 102 -y 70 -w 100 -h 15 \
                             -callback onPrgGrpInstall] \
                [list label -name prgGrpLabel \
                             -title [strTableGet INSTALLCHOICE_PROG_GROUP_DESC] \
                             -x 114 -y 85 -w 190 -h 25] \
                [list choice -name licMgntChoice -auto \
                             -title [strTableGet INSTALLCHOICE_LIC_MGNT] \
                             -x 102 -y 125 -w 190 -h 15 \
                             -callback onLicMgnt] \
                [list label -name licMgntLabel \
                            -title [strTableGet INSTALLCHOICE_LIC_MGNT_DESC] \
                            -x 114 -y 140 -w 180 -h 25] \
                [list group -name group1 \
                            -title [strTableGet INSTALLCHOICE_GRP_1] \
                            -x 98 -y 25 -w 210 -h 85 ] \
                [list group -name group2 \
                            -title [strTableGet INSTALLCHOICE_GRP_2] \
                            -x 98 -y 115 -w 210 -h 52]    
        } else {
            lappend  ctrlVals(volatileFrm) \
                [list choice -name licMgntChoice -auto \
                             -title [strTableGet INSTALLCHOICE_LIC_MGNT] \
                             -x 102 -y 93 -w 200 -h 15 \
                             -callback onLicMgnt] \
                [list label -name licMgntLabel \
                            -title [strTableGet INSTALLCHOICE_LIC_MGNT_DESC] \
                            -x 114 -y 108 -w 180 -h 17] \
                [list group -name group1 \
                            -title [strTableGet INSTALLCHOICE_GRP_1] \
                            -x 98 -y 25 -w 210 -h 52 ] \
                [list group -name group2 \
                            -title [strTableGet INSTALLCHOICE_GRP_2] \
                            -x 98 -y 85 -w 210 -h 42]
        }

        set w [dlgFrmCreate [strTableGet INSTALLCHOICE_TITLE]]

        # rename the next button to "Send" (in case of UNIX)
        controlValuesSet $w.nextButt "&Next >"

        # if launch from Tornado GUI for get/install license,
        # disable full and program installation
        if { [info exists env(SETUP_LICMGNT)] && $env(SETUP_LICMGNT) == 1} {
            controlEnable $w.fullInstallChoice 0
            controlEnable $w.fullLabel 0
            controlCheckSet $w.licMgntChoice 1
            #controlCheckSet $w.fullInstallChoice 0
                        
            if {![isUnix]} {
                controlEnable $w.prgGrpChoice 0
                controlEnable $w.prgGrpLabel 0
            }
        } else {
            # select the choice
            if { $setupVals(installChoice) == "" } {
                controlCheckSet $w.fullInstallChoice 1
            } else {
                switch $setupVals(installChoice) {
                    onFullInstall   { controlCheckSet $w.fullInstallChoice 1 }
                    onPrgGrpInstall { controlCheckSet $w.prgGrpChoice 1 }
                    onLicMgnt       { controlCheckSet $w.licMgntChoice 1 }
                    default         { controlCheckSet $w.fullInstallChoice 1 }
                }
            }
        }   

        if { $setupVals(evaluation) == 1 } {
            controlEnable $w.licMgntChoice 0
            }

        # check if any licensed product exists   
        set licProdFlag 0
        foreach index [cdInfoGet productIndexList] {
            set featureId [productInfoGet featureId $index]
            if { $featureId > 0 } {
                set licProdFlag 1
            }
        }
                
        # If no licensed products on CD, grey out program
        # group and LM Inst options
        if { $licProdFlag != 1 } {
            controlCheckSet $w.fullInstallChoice 1
            controlEnable $w.licMgntChoice 0
            controlEnable $w.licMgntLabel 0
            if { ![isUnix] } {
                controlEnable $w.prgGrpChoice 0
                controlEnable $w.prgGrpLabel 0
            }
            controlEnable $w.group2 0
        }

        # test automation
        if { $ctrlVals(useInputScript) } {
            autoSetupLog "Installation Option page: skipped"
            autoSetupLog "\tInstallChoice: $setupVals(installChoice)"
            nextCallback
        }

    } else { # TEXT mode

        printPageTitle [strTableGet INSTALLCHOICE_TITLE]
        puts "[strTableGet INSTALLCHOICE_MSG_1]\n"
        puts "1 - [strTableGet INSTALLCHOICE_FULL_INSTALL]"
        puts "$fullInstDesc\n"
        puts "2 - [strTableGet INSTALLCHOICE_LIC_MGNT]"
        puts "[strTableGet INSTALLCHOICE_LIC_MGNT_DESC]\n\n"

        puts "Please enter the number of your selection. \[1\]"
        while (1) {
            set ret [prompt]
            switch -regexp -- $ret {
                "^$" -
                "^1$" { 
                    onFullInstall
                    nextCallback
                    return 0
                } 
                "^2$" { 
                    onLicMgnt
                    nextCallback
                    return 0
                }
                "^[eE][xX][iI][tT]$" {
                    return 0
                } 
                "^-$" {
                    backCallback
                    return 0
                }
                default { 
                    puts "Error: Invalid input."
                }
            }
        }
    }
}

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

proc pageProcess(installChoice) {} {
    global setupPageList setupVals ctrlVals tornadoInstalled
    global LMHelpPath