instw32.tcl

Berkeley DB 4.6.21VxWorks CD.NC.tar.gz

}

#############################################################################
#
# fileExistsOlderWarnInit - init procedure for fileExistsOlderInit dialog box
#
# This procedure is a init procedure for fileExistsOlderInit dialog box
#
# SYNOPSIS
# .tS
# fileExistsOlderWarnInit
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc fileExistsOlderWarnInit {} {
    global retvalNew

    set retvalNew 2
    windowExitCallbackSet file_exists_older_warn fileExistsOlderWarnExit
    controlCheckSet file_exists_older_warn.overwriteAll 1
}

#############################################################################
#
# onBaseInstallWarnContinue - callback procedure when continue button is 
#                             pushed
#
# This procedure is a callback procedure when continue button is 
# pushed and it closes the base_install_warn dialog box
#
# SYNOPSIS
# .tS
# onBaseInstallWarnContinue
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onBaseInstallWarnContinue {} {
    global returnval

    set returnval 0
    windowClose base_install_warn
}

#############################################################################
#
# onBaseInstallWarnReturn - callback procedure when return button is 
#                           pushed
#
# This procedure is a  callback procedure when return button is 
# pushed and it closes the base_install_warn dialog box
#
# SYNOPSIS
# .tS
# onBaseInstallWarnReturn
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#

proc onBaseInstallWarnReturn {} {
    global returnval

    set returnval 1
    windowClose base_install_warn
}

#############################################################################
#
# dialog - create a dialog box with buttons and messages based on 
#          passed in arguments
#
# This procedure will create a dialog box with buttons and messages based on  
# passed in arguments
#
# SYNOPSIS
# .tS
# dialog <dialogType> <title> <message> <args>
# .tE
#
# PARAMETERS:
# dialogType - stop                   -- dialog box with stop button
#              retry_cancel           -- dialog box with retry and cancel 
#                                        buttons
#              yes_no                 -- dialog box with yes and no buttons
#              ok_proceed_exit        -- dialog box with ok, proceed and 
#                                        exit buttons
#              yes_exit               -- dialog box with yes and exit buttons
#              resume_exit            -- dialog box with resume and 
#                                        exit buttons
#              re_ig_cancel           -- dialog box with retry, ignore and 
#                                        cancel buttons
#              re_ig_cancel_old       -- dialog box with retry, ignore and 
#                                        cancel buttons (old version)
#              base_install_warn      -- dialog box with install and 
#                                        "select path" buttons
#              file_exists_older_warn -- dialog box with yes and exit buttons
#              file_exists_newer_warn -- dialog box with ok button
#              ok                     -- dialog box with ok button
#              ok_cancel              -- dialog box with ok and cancel buttons
#
# title      - title for the dialog box
# message    - message displayed for the dialog box
# args       - XXX not used XXX
#
# RETURNS: 1 if successful
#          0 if failed
#
# ERRORS: N/A
#

proc dialog {dialogType title message args} {
    global ctrlVals
    global setupVals

    switch $dialogType {
        stop {
            switch [messageBox -ok -stopicon $message] {

                ok { return 1 }
            }
        }
        retry_cancel {
            switch [messageBox -retrycancel -questionicon $message] {
                retry  { return 0 }
                cancel { return 1 }
            }
        }
        yes_no {
            switch [messageBox -yesno -questionicon $message] {
                yes { return 0 }
                no  { return 1 }
            }
        }           
        ok_proceed_exit {
		global returnval
		set returnval 0

                set controls [list \
                    [list label -name message -title $message \
                                -x 10 -y 10 -w 205 -h 90] \
                    [list button -name Resume -title "&Go back" -default \
                                 -tooltip "Go specify another directory" \
                                 -callback {global returnval;
				 	    windowClose ok_proceed_exit;
                                            set returnval 0} \
                                 -x 10 -y 78 -w 50 -h 14] \
                    [list button -name Exit -title "&Proceed" \
                                 -tooltip "Continue with installation" \
                                 -callback {global returnval;
				 	    windowClose ok_proceed_exit;
                                            set returnval 1} \
                                 -x 70 -y 78 -w 50 -h 14] \
                    [list button -name Exit -title "E&xit Setup" \
                                 -tooltip "Stop installation and exit" \
                                 -callback {global returnval;
				 	    windowClose ok_proceed_exit;
                                            set returnval 2} \
                                 -x 169 -y 78 -w 50 -h 14] \
                ]

                set width 230
                set xpos [expr ($ctrlVals(screenW) / 2) - ($width / 2)]

                set height 100
                set ypos [expr ($ctrlVals(screenH) / 2) - ($height / 2)]
        
                dialogCreate -name ok_proceed_exit \
                            -title "$title" \
                            -helpfile $setupVals(setupHelp) \
                            -parent $ctrlVals(parentDialog) \
                            -x $xpos -y $ypos \
                            -w $width -h $height \
                            -controls $controls
		return $returnval
        }
        yes_exit {
	 	 global returnval
		 set returnval 0

                 set controls [list \
                    [list label -name message -title $message \
                                -x 10 -y 10 -w 205 -h 120] \
                    [list button -name Yes -title "&Yes" \
                                 -tooltip "Proceed with installation" \
                                 -callback {global returnVal;
				 	    windowClose yes_exit;
                                            set returnval 0} \
                                 -x 116 -y 142 -w 50 -h 14] \
                    [list button -name Exit -title "E&xit Setup" \
                                 -tooltip "Stop installation and exit" \
                                 -callback {global returnval;
				 	    windowClose yes_exit;
                                            set returnval 1} \
                                 -x 169 -y 142 -w 50 -h 14] \
                ]
    
                set width 230
                set height 160

                dialogCreate -name yes_exit \
                            -title "$title" \
                            -helpfile $setupVals(setupHelp) \
                            -parent $ctrlVals(parentDialog) \
                            -w $width -h $height \
                            -controls $controls
	        return $returnval
        }
        resume_exit {
	 	 global returnval
		 set returnval 0

                 set controls [list \
                    [list label -name message -title $message \
                                -x 10 -y 10 -w 205 -h 90] \
                    [list button -name Resume -title "&Resume" \
                                 -tooltip "Resume installation" \
                                 -callback {global returnVal;
				 	    windowClose resume_exit;
                                            set returnval 0} \
                                 -x 116 -y 92 -w 50 -h 14] \
                    [list button -name Exit -title "E&xit Setup" \
                                 -tooltip "Stop installation and exit" \
                                 -callback {global returnval;
				 	    windowClose resume_exit;
                                            set returnval 1} \
                                 -x 169 -y 92 -w 50 -h 14] \
                ]
                set width 230
                set xpos [expr ($ctrlVals(screenW) / 2) - ($width / 2)]

                set height 114
                set ypos [expr ($ctrlVals(screenH) / 2) - ($height / 2)]

                dialogCreate -name resume_exit \
                            -title "$title" \
                            -helpfile $setupVals(setupHelp) \
                            -parent $ctrlVals(parentDialog) \
                            -x $xpos -y $ypos \
                            -w $width -h $height \
                            -controls $controls
	        return $returnval
        }
        re_ig_cancel {
            switch [messageBox -abortretryignore -questionicon $message] {
                abort  { return 2 }
                retry  { return 0 }
                ignore { return 1 }
            }
        }
        re_ig_cancel_old {
            global returnval
            set returnval 0
            set controls [list \
                [list label -name message -title $message \
                            -x 10 -y 7 -w 194 -h 90] \
                [list button -name retry -title "&Retry" \
                             -callback {global returnval; \
                                        windowClose dlg; \
                                        set returnval 0} \
                             -x 10 -y 56 -w 50 -h 14] \
                [list button -name ignore -title "&Ignore" \
                             -callback {global returnval; \
                                        windowClose dlg; \
                                        set returnval 1} \
                             -x 80 -y 56 -w 50 -h 14] \
                [list button -name cancel -title "&Cancel" \
                             -callback {global returnval; \
                                        windowClose dlg; \
                                        set returnval 2} \
                             -x 150 -y 56 -w 50 -h 14] \
            ]

            dialogCreate -name "re_ig_cancel" \
                         -title "$title" \
                         -parent $ctrlVals(parentDialog) \
                         -helpfile $setupVals(setupHelp) \
                         -w 205 -h 76 \
                         -controls $controls
            return $returnval
        }
	base_install_warn {
            global returnval
            set returnval 1

            set controls [list \
                [list frame -white -name baseFrame -x 7 -y 7 -w 1 -h 1 \
                        -w 188 -h 36] \
                [list label -name warn_label \
                        -title " Installing Tornado Over an Existing Tree " \
                        -x 20 -y 4 -w 160 -h 8] \
                [list label -name message -title $message \
                        -x 14 -y 14 -w 175 -h 28] \
                [list label -name message2 \
                        -title [strTableGet 4000_BASE_INSTALL_WARN_1] \
                        -x 10 -y 47 -w 184 -h 25] \
                [list button -name continue -title "&Install" \
                        -tooltip "Continue with installation" \
                        -callback onBaseInstallWarnContinue \
                        -x 10 -y 77 -w 50 -h 14] \
                [list button -name return -title "&Select Path" -default \
                        -tooltip "Return to Select Directory page" \
                        -callback onBaseInstallWarnReturn \
                        -x 146 -y 77 -w 50 -h 14] \
	    ]

	    dialogCreate -name base_install_warn \
		      -title "$title" \
                      -helpfile $setupVals(setupHelp) \
		      -parent $ctrlVals(parentDialog) \
                      -w 205 -h 96 \
                      -init {
                          controlPropertySet base_install_warn.warn_label \
                                             -bold 1
                      } \
		      -controls $controls
           return $returnval
	}
	file_exists_older_warn {
            global retvalOld
	    set retvalOld 2
	    set controls [list \
		[list label -name message -title $message \
			-x 10 -y 7 -w 188 -h 51] \
		[list choice -name overwriteFile -title \
			[strTableGet 4010_FILE_EXISTS_WARN_1] \
			-newgroup -auto \
                        -tooltip "Overwrite one file" \
			-x 10 -y 55 -w 150 -h 10 ] \
		[list choice -name no_overwriteFile -title \
			[strTableGet 4010_FILE_EXISTS_WARN_2] -auto \
                        -tooltip "Do not overwrite file" \
		        -x 10 -y 67 -w 150 -h 10 ] \
		[list choice -name overwriteAll -title \
			[strTableGet 4010_FILE_EXISTS_WARN_3] -auto \
                        -tooltip "Overwrite all duplicate files" \
		        -x 10 -y 79 -w 190 -h 10 ] \
		[list button -name file_exists_OK -title "&OK" \
			-callback { \
			    windowClose file_exists_older_warn} \
			-x 77 -y 95 -w 50 -h 14 ] \
	    ]

	    dialogCreate -name file_exists_older_warn \
		      -title "$title" \
		      -parent $ctrlVals(parentDialog) \
                      -helpfile $setupVals(setupHelp) \
                      -init fileExistsOlderWarnInit \
		      -w 205 -h 115 \
		      -controls $controls
            return $retvalOld
	}
	file_exists_newer_warn {
            global retvalNew
	    set retvalNew 2
	    set controls [list \
		[list label -name message -title $message \
			-x 10 -y 7 -w 188 -h 51] \
		[list choice -name overwriteFile -title \
			[strTableGet 4010_FILE_EXISTS_WARN_1] \
			-newgroup -auto \
                        -tooltip "Overwrite one file" \
			-x 10 -y 55 -w 150 -h 10 ] \
		[list choice -name no_overwriteFile -title \
			[strTableGet 4010_FILE_EXISTS_WARN_2] -auto \
                        -tooltip "Do not overwrite file" \
		        -x 10 -y 67 -w 150 -h 10 ] \
		[list choice -name overwriteAll -title \
			[strTableGet 4010_FILE_EXISTS_WARN_3] -auto \
                        -tooltip "Overwrite all duplicate files" \
		        -x 10 -y 79 -w 190 -h 10 ] \
		[list button -name file_exists_OK -title "&OK" \
			-callback { \
			    windowClose file_exists_newer_warn} \
			-x 77 -y 95 -w 50 -h 14 ] \
	    ]

	    dialogCreate -name file_exists_newer_warn \
		      -title "$title" \
		      -parent $ctrl