utilw32.tcl

该文件能够将tornado22 for ppc的版本升级到2.2.1的版本。 一个非常有用的补丁包。

                        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 \
                            -nocontexthelp \
                            -title "$title" \
                            -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" \
                            -nocontexthelp \
                            -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 80] \
                    [list button -name Resume -title "&Resume" \
                                 -tooltip "Resume installation" \
                                 -callback {global returnVal;
                        windowClose resume_exit;
                                            set returnval 0} \
                                 -x 116 -y 100 -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 100 -w 50 -h 14] \
            ]
            set width 230
            set xpos [expr ($ctrlVals(screenW) / 2) - ($width / 2)]

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

            dialogCreate -name resume_exit \
                         -title "$title" \
                         -nocontexthelp \
                         -parent $ctrlVals(parentDialog) \
                         -x $xpos -y $ypos \
                         -w $width -h $height \
                         -controls $controls
            return $returnval
        }
        ok_with_title {
                        set width 200
                        set xpos [expr ($ctrlVals(screenW) / 2) - ($width / 2)]
                        set temp $message
                        set temp [split $temp " "]
                        set numLF 0
                        foreach elem $temp {
                                if {[string first "\n" $elem] != -1} {
                                        incr numLF
                                }
                        }
                        
                        set height [expr 7 + 25 + (10 * [expr [string length $message]/55 + 1])]
                        
                        set height [expr $height + ($numLF * 10)]
                        
                        set ypos [expr ($ctrlVals(screenH) / 2) - ($height / 2)]
                        
                        set controls [list \
                    [list label -name message -title $message \
                                                    -x 10 -y 10 -w 186 \
                                -h [expr ($numLF * 10) + \
                                                        (10 * [expr [string length $message]/55 + 1])]] \
                    [list button -name okWithTitle -title "&OK" \
                                 -callback {windowClose ok_with_title} \
                                 -x 75 -y [expr $height -7 -14] -w 50 -h 14] \
                        ]

                        dialogCreate -name ok_with_title \
                                                -nocontexthelp \
                            -title "$title" \
                            -parent $ctrlVals(parentDialog) \
                            -x $xpos -y $ypos \
                            -w $width -h $height \
                            -controls $controls
                        return 
        }
        re_ig_cancel {
            switch [messageBox -abortretryignore -questionicon $message] {
                abort  { return 2 }
                retry  { return 0 }
                ignore { return 1 }
                default { return 0 }
            }
        }
        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 re_ig_cancel; \
                                        set returnval 0} \
                             -x 10 -y 56 -w 50 -h 14] \
                [list button -name ignore -title "&Ignore" \
                             -callback {global returnval; \
                                        windowClose re_ig_cancel; \
                                        set returnval 1} \
                             -x 80 -y 56 -w 50 -h 14] \
                [list button -name cancel -title "&Cancel" \
                             -callback {global returnval; \
                                        windowClose re_ig_cancel; \
                                        set returnval 2} \
                             -x 150 -y 56 -w 50 -h 14] \
            ]

            dialogCreate -name "re_ig_cancel" \
                         -title "$title" \
                         -parent $ctrlVals(parentDialog) \
                         -nocontexthelp \
                         -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 [getProdInfo name] 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" \
                                -parent $ctrlVals(parentDialog) \
                                -nocontexthelp \
                                -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 70] \
                            [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 180 -h 10 ] \
                            [list choice -name no_overwriteAny -title \
                              [strTableGet 4010_FILE_EXISTS_WARN_4] -auto \
                              -tooltip "Do not overwrite any duplicate files" \
                              -x 10 -y 91 -w 200 -h 10 ] \
                            [list button -name file_exists_OK -title "&OK" \
                              -callback {windowClose file_exists_older_warn} \
                              -x 77 -y 105 -w 50 -h 14 ]  ]
                        
            dialogCreate -name file_exists_older_warn \
                         -title "$title" \
                         -parent $ctrlVals(parentDialog) \
                         -nocontexthelp \
                         -init fileExistsOlderWarnInit \
                         -w 225 -h 130 \
                         -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 70] \
                            [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 180 -h 10 ] \
                            [list choice -name no_overwriteAny -title \
                              [strTableGet 4010_FILE_EXISTS_WARN_4] -auto \
                               -tooltip "Do not overwrite any duplicate files" \
                               -x 10 -y 91 -w 200 -h 10 ] \
                            [list button -name file_exists_OK -title "&OK" \
                               -callback {windowClose file_exists_newer_warn} \
                               -x 77 -y 105 -w 50 -h 14 ]  ]
                        
            dialogCreate -name file_exists_newer_warn \
                         -title "$title" \
                         -parent $ctrlVals(parentDialog) \
                         -nocontexthelp \
                         -init fileExistsNewerWarnInit \
                         -exit fileExistsNewerWarnExit \
                         -w 225 -h 130 \
                         -controls $controls
            return $retvalNew
        }
        ok {
            switch [messageBox -ok -information $message] {
                ok { return 0 }
            }
        }
        ok_cancel {
            switch [messageBox -okcancel -questionicon $message] {
                ok     { return 0 }
                cancel { return 1 }
            }
        }
        proceed_cancel {
            switch [messageBox -proceedcancel -questionicon $message] {
                proceed { return 0 }
                cancel  { return 1 }
            }
        }
    }
}

#############################################################################
#
# messageBox - Display the message box dialog
#
# This procedure is intended to replace the messageBox method from UITclSh.
# The one from UITclSh has problem displaying the button text. This messageBox
# procedure will display NO icon. It only displays text and buttons.
#
# SYNOPSIS
# .tS
# messageBox <option> msg
# .tE
#
# PARAMETERS: 
#        -ok        with OK button
#        -okcancel  with OK and Cancel buttons
#        -yesno     with Yes and No buttons
#        -stop      with OK button (same as -ok)
#        -abortretryignore    with Abort, Retry and Ignore buttons
#        -retrycancel         with Retry and Cancel buttons
#        -proceed_cancel      with Proceed and Cancel buttons
#
# RETURNS: the parameters values
#
# 

proc messageBox {args} {
    global ctrlVals

    set message [lindex $args end]
    set title "Setup"
    set buttons ""
    set msgBoxOption "ok"
    set retVal ""

    # determine option
    foreach var $args {
        switch -exact -- $var {
            -yesnocancel {set msgBoxOption "yesnocancel"}
            -okcancel {set msgBoxOption "okcancel"}  
            -proceedcancel {set msgBoxOption "proceedcancel"}  
            -yesno {set msgBoxOption "yesno"} 
            -stop {set msgBoxOption "stop"} 
            -abortretryignore {set msgBoxOption "abortretryignore"} 
            -retrycancel {set msgBoxOption "retrycancel"} 
            -ok {set msgBoxOption "ok"}
            default {
                if [regexp {^[a-zA-Z0-9]} $var] {
                    set message $var
                }
            }
        }
    }

    dbgputs "option: $msgBoxOption"

    # set dialog size
    set width 200
    set xpos [expr ($ctrlVals(screenW) / 2) - ($width / 2)]
    set temp $message
    set temp [split $temp " "]
    set numLF 0
    foreach elem $temp {
        if {[string first "\n" $elem] != -1} {
            incr numLF
        }
    }
        
    set height [expr 7 + 25 + (10 * [expr [string length $message]/55 + 1])]        
    set height [expr $height + ($numLF * 10)]
    set ypos [expr ($ctrlVals(screenH) / 2) - ($height / 2)]
        

    # set dialog controls
    set controls [list \
        [list label -name message -title $message \
                    -x 10 -y 10 -w 186 \
                    -h [expr ($numLF * 10) + \
                        (10 * [expr [string length $message]/55 + 1])]]
        ]
        
        switch -- $msgBoxOption {
                stop -
                ok {
                    lappend controls \
                            [list button -name ok -title "&OK" \
                                         -callback {windowClose msgBoxDialog; 
                                             set retVal "ok"} \
                                         -x 75 -y [expr $height -5 -14] -w 50 -h 14]
                }
                okcancel {
                    lappend controls \
                            [list button -name ok -title "&OK" \
                                         -callback {windowClose msgBoxDialog; 
                                             set retVal "ok"} \
                                         -x 45 -y [expr $height -5 -14] -w 50 -h 14] \
                            [list button -name cancel -title "&Cancel" \
                                         -callback {windowClose msgBoxDialog;
                                             set retVal "cancel"} \
                                         -x 105 -y [expr $height -5 -14] -w 50 -h 14]