📄 instw32.tcl
字号:
#
proc fileExistsNewerWarnInit {} {
global retvalNew
set retvalNew 2
windowExitCallbackSet file_exists_newer_warn fileExistsNewerWarnExit
controlCheckSet file_exists_newer_warn.overwriteAll 1
}
#############################################################################
#
# fileExistsOlderWarnExit - exit procedure for fileExistsOlderExit dialog box
#
# This procedure is a exit procedure for fileExistsOlderExit dialog box
#
# SYNOPSIS
# .tS
# fileExistsOlderWarnExit
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc fileExistsOlderWarnExit {} {
global retvalOld
if {[controlChecked file_exists_older_warn.overwriteAll]} {
set retvalOld 2
}
if {[controlChecked file_exists_older_warn.no_overwriteFile]} {
set retvalOld 0
}
if {[controlChecked file_exists_older_warn.overwriteFile]} {
set retvalOld 1
}
}
#############################################################################
#
# 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 "Ov⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -