# APPCONFG.TCL - Setup procedures allowing users to select which file types should use#                this product (ex: Tornado 2.2) as the default application (for Windows)## Copyright 1999-2003 Wind River Systems, Inc## modification history# --------------------# 01p,29apr03,bjl  text rewording.# 01o,05mar02,bwd  Modified SETUP to be non-tornado centric# 01n,18jan02,bwd  Added .s files mapping# 01m,07may01,j_w  Change display layout. Replace 3.1 with#                  $setupVals(torVersionNum)# 01l,16mar01,wmd  Need to add code to change next button to Finish.# 01k,16mar01,wmd  Fix spr 64976, add file association command to Setup.# 01j,13mar01,j_w  update version 3.0 to 3.1# 01i,13dec00,bwd  Call appDefaultCallback in pageProcess to prevent the#                  default selections being saved unintentionally.# 01h,18oct00,bwd  SPR 31096: modified file types selections# 01g,09oct00,bwd  SPR 34894: Skip searchAndProcessSection if user has no#                  ADMIN privileges. SPR 35218: modified to clear out only#                  the registries that the file associations will be configured# 01f,03oct00,bwd  SPR 34894: inform user that file association configuration#                  fails when user has no ADMIN privilege.# 01e,12sep00,bwd  Changed instructions on the page# 01d,09aug00,bwd  SPR 31096: add searchAndProcessSection# 01c,11may00,bwd  Fix SPR 31096 - more work on appConfig page display and#                  callback function# 01b,10may00,bwd  Fix SPR 31096 (phase 1)# 01a,10may00,bwd  Written#global typeListset typeList {proj wksp tcl source windview}############################################################################### pageCreate(appConfig) - display options to select file types## This procedure will display options to select which file types should # use this product as the default application.## SYNOPSIS# .tS# pageCreate(appConfig)# .tE## PARAMETERS: N/A## RETURNS: N/A## ERRORS: N/A#proc pageCreate(appConfig) {} {    global ctrlVals    set msg0 [strTableGet APPCONFIG_OPTION_SELECT]    set msgDesc [strTableGet APPCONFIG_DESC]    set msg0Ctrl [list label -name msg0 -title $msg0 \                             -x 100 -y 40 -w 205 -h 25]    set msgDescCtrl [list label -name msg0 \                                -title $msgDesc \                                -x 100 -y 10 -w 205 -h 30]    set msg1Ctrl [list label -name msg1 \                         -title [strTableGet APPCONFIG_MSG1] \                         -x 100 -y 73 -w 100 -h 10]                             set choiceHeight 13    set radio1_ypos 86    set radio2_ypos [expr $radio1_ypos + $choiceHeight]    set radio3_ypos [expr $radio2_ypos + $choiceHeight]    set radio4_ypos [expr $radio3_ypos + $choiceHeight]    set radio5_ypos [expr $radio4_ypos + $choiceHeight]    set radio6_ypos [expr $radio5_ypos + $choiceHeight]	# Project Type	set projType [list boolean -name proj -auto \                               -title [strTableGet APPCONFIG_OPTION1]\			                   -x 100 -y $radio1_ypos -w 205 -h 10]    # Workspace Type	set wkspType [list boolean -name wksp -auto \                               -title [strTableGet APPCONFIG_OPTION2]\			                   -x 100 -y $radio2_ypos -w 205 -h 10]	# TCL Type    set tclType [list boolean -name tcl -auto \                              -title [strTableGet APPCONFIG_OPTION3]\			                  -x 100 -y $radio3_ypos -w 205 -h 10]	# Source Type (C, C++, Header Files)    set sourceType [list boolean -name source -auto \                                 -title [strTableGet APPCONFIG_OPTION4]\			                     -x 100 -y $radio4_ypos -w 205 -h 10]	# WindView Type    set windviewType [list boolean -name windview -auto \                                   -title [strTableGet APPCONFIG_OPTION5]\			                       -x 100 -y $radio5_ypos -w 205 -h 10]	set ctrlVals(volatileFrm) \			[list $msg0Ctrl $msgDescCtrl $msg1Ctrl \			$projType $wkspType $tclType $sourceType $windviewType]    set ctrlVals(fileTypes) [dlgFrmCreate [strTableGet APPCONFIG_TITLE]]    # default values    controlCheckSet $ctrlVals(fileTypes).proj 1    controlCheckSet $ctrlVals(fileTypes).wksp 1    controlCheckSet $ctrlVals(fileTypes).tcl 0    controlCheckSet $ctrlVals(fileTypes).source 0    controlCheckSet $ctrlVals(fileTypes).windview 1    controlEnable $ctrlVals(fileTypes).backButt 1    controlEnable $ctrlVals(fileTypes).nextButt 1    controlFocusSet $ctrlVals(fileTypes).nextButt    if {[string compare [instTypeGet] "fileAssociation"] == 0} {        controlEnable $ctrlVals(fileTypes).backButt 0        controlValuesSet $ctrlVals(fileTypes).nextButt "Finish"        controlEnable $ctrlVals(fileTypes).nextButt 1    }    if { ($ctrlVals(NT) == "1") && ($ctrlVals(admin) != "1") } {        # if no ADMIN privilege...        # disable everything,        controlEnable $ctrlVals(fileTypes).proj 0        controlEnable $ctrlVals(fileTypes).wksp 0        controlEnable $ctrlVals(fileTypes).tcl 0        controlEnable $ctrlVals(fileTypes).source 0        controlEnable $ctrlVals(fileTypes).windview 0        # reset to no default values        controlCheckSet $ctrlVals(fileTypes).proj 0        controlCheckSet $ctrlVals(fileTypes).wksp 0        controlCheckSet $ctrlVals(fileTypes).windview 0        # display message        dialog ok "SETUP" [strTableGet APPCONFIG_MSG1]    }    # test automation    if { $ctrlVals(useInputScript) } {        autoSetupLog "Application Configuration Page: skipped"        if { ($ctrlVals(NT) == "1") && ($ctrlVals(admin) != "1") } {            autoSetupLog "SETUP detected that you have no Administrative\                privileges to configure file associations. SETUP will proceed\                without configuring file associations for these file types."        }        nextCallback    }}############################################################################### pageProcess(appConfig) - process inputs from appConfig page## This procedure will process input from appConfig page## SYNOPSIS# .tS# pageProcess(appConfig)# .tE## PARAMETERS: N/A## RETURNS: 1 when successful## ERRORS: N/A#proc pageProcess(appConfig) {} {    global ctrlVals    global infVals    global typeList    if { ($ctrlVals(NT) == "1") && ($ctrlVals(admin) != "1") } {        return 1    }    # test automation    if { $ctrlVals(useInputScript) } {        autoSetupLog "User's selection:"    }    set selectedList ""    foreach type $typeList {        # test automation        # set infVals in here, based on        # what is selected by user        appDefaultCallback $type        # file type selected or not (0 or 1)        set value [controlChecked wizardDialog.$type]        if { $ctrlVals(useInputScript) } {            autoSetupLog "infVals($type): $value"        } else {            dbgputs "infVals($type): $value"        }        # list used to indicate which         # registries to clear out        if { $value == 1 } {            append selectedList "$type "        }    }    registriesClearOut $selectedList    set prod [string toupper [getProdInfo name]]    searchAndProcessSection AddRegistry [cdFileNameGet [file join RESOURCE \                                         INF $prod.INF]]    queueExecute    # reset infVals    foreach type $typeList {        set infVals($type) 0    }    return 1}############################################################################### appDefaultCallback - set the variable(s) that will be used in #                      <$productName>.INF according to user's selection(s)## This procedure will set the variable(s) that will be used in <$productName>.INF# according to user's selection(s). The variables are the file types that# should use this product as their default application. This registry writing# only happens for Windows## SYNOPSIS# .tS# appDefaultCallback <opt># .tE## PARAMETERS:# .IP opt# option selected## RETURNS: N/A## ERRORS: N/A#proc appDefaultCallback {opt} {    global infVals    if { ![isUnix] } {        if { [controlChecked wizardDialog.$opt] == 1 } {            set infVals($opt) 1        } else {            set infVals($opt) 0        }    }}############################################################################### registriesClearOut -- clear out file association registries## This procedure reads in a list of file types that are selected (by user) # to be configured for file associations. In HKEY_CLASSES_ROOT, it will delete# relevant registries of file extensions, file types, its association # commands and default icons.## SYNOPSIS# .tS# registriesClearOut# .tE## PARAMETERS: N/A# .IP selectedList		# List of file types (selected by user), indicating which registries to be cleared out.## RETURNS: N/A## ERRORS: N/A#proc registriesClearOut {selectedList} {    global infVals    if { ![isUnix] } {        set regList ""        foreach type $selectedList {            switch -exact -- $type {                proj     { append regList ".wpj [getProdInfo name]ProjectType " }                wksp     { append regList ".wsp [getProdInfo name]WorkspaceType " }                tcl      { append regList ".tcl [getProdInfo name]TCLType " }                source   { append regList ".c .cc .cpp .cxx .h .hpp .hxx .s [getProdInfo name]SourceType " }                windview { append regList ".wvr [getProdInfo name]WindViewType " }            }        }        dbgputs "regList cleared out: $regList"        foreach reg $regList {            if { ![catch {setupRegKeyExists HKEY_CLASSES_ROOT $reg} error] } {                if { [catch {sysRegistryKeyDelete HKEY_CLASSES_ROOT $reg} err] } {                    puts "Cannot delete registry key $reg: $err"                }			}        }    }}####################################################################### Dialog Text Messages######################################################################set strTable(APPCONFIG_TITLE) "Tornado File Associations"set strTable(APPCONFIG_MSG1) \    "SETUP detected that you have no Administrative privileges to \     configure file associations. Click \"Next\" to proceed without \     configuring file associations for these file types."set strTable(APPCONFIG_DESC) \    "By default, SETUP registers an association of various file types\     with the [getProdInfo name] program.  You can change the default\     association below."set strTable(APPCONFIG_OPTION_SELECT) \    "Choose the file type(s) that should use [getProdInfo name] [getProdInfo version]\     for their default application. Then click the <Next> button to continue\     the installation."set strTable(APPCONFIG_MSG1) \    "File Types"    set strTable(APPCONFIG_OPTION1) \    "Project \(.wpj)"set strTable(APPCONFIG_OPTION2) \    "Workspace \(.wsp\)"set strTable(APPCONFIG_OPTION3) \    "TCL \(.tcl\)"set strTable(APPCONFIG_OPTION4) \    "Source \(.c, .cc, .cpp, .cxx, .h, .hpp, .hxx, .s\)"set strTable(APPCONFIG_OPTION5) \    "WindView data\(.wvr\)"