📄 autorun.tcl
字号:
# AUTORUN.TCL - AutoRun for Tornado CD-ROM
#
# Copyright 1996-1999, Wind River Systems, Inc.
#
# modification History
# --------------------
# 02b,23apr99,wmd make check for SETUP_DEBUG to be > 0.
# 02a,28jan99,bjl removed preview and slide show code, added headers and
# edited for coding conventions.
# 01n,23nov98,tcy+ remove trailing slash for INSTW32.TCL CD root argument.
# bjl
# 01m,13nov98,bjl bypass AutoRun and directly run Setup.
# 01l,12nov98,bjl changed Add Icons to Remote Icons, hide buttons instead
# of disabling if .TXT files do not exist.
# 01k,11nov98,bjl use /bin/more when EDITOR is not set (spr #23166). Removed
# -w option from /bin/more for parisc-hpux10.
# 01i,10nov98,bjl placed buttons closer together to allow for large
# font setting in Windows (spr #23004).
# 01h,30oct98,bjl use 16 color bitmap if color manager is not running.
# 01g,28oct98,bjl dos2unix .TXT files before opening for Unix, run Setup
# automatically if using test answer file.
# 01f,27oct98,bjl added code for Unix, removed loading of setuptcl.dll.
# 01e,26oct98,bjl changed button callbacks to run UITclSh instead of
# setup.exe, added check for debug console.
# 01d,17sep98,bjl removed soundPlay and preview button.
# 01c,03aug98,bjl load UITclControls.dll, added What's New and Add Icons
# buttons.
# 01b,23jul98,wmd modified for T2, added new dialogs
# 01a,-------,pdn
#
# DESCRIPTION
# This module contains the Autorun functions that are executed when the
# Tornado CD-ROM is inserted. It also contains the initial splash
# screen functionality.
#
# RESOURCE FILES
# RESOURCE/TCL/GLOBAL.TCL
# */
# globals
set setup_lib "" ;# The handle to the setupTclDll
set tempDir "" ;# The location to which files are unzipped
set autorunBypass 1 ;# Bypass Autorun and directly run Setup.
#############################################################################
#
# tornadoAutoRun@@Init - the Autorun dialog initialization function.
#
# This procedure sets up the controls for the Autorun dialog.
#
# SYNOPSIS:
# tornadoAutoRun@@Init
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc tornadoAutoRun@@Init {} {
upvar setup_lib setup_lib
global env
# choose a 16 color bitmap if no color manager is running,
# otherwise choose the default 256 color bitmap.
if {[info exists env(SETUP_NOCOLORMGR)]} {
if {$env(SETUP_NOCOLORMGR)==1} {
set torbitmap "TOR16.BMP"
} else {
set torbitmap "TOR256.BMP"
}
} else {
set torbitmap "TOR256.BMP"
}
# create the bitmap control.
controlCreate tornadoAutoRun@@ \
[list bitmap -x 8 -y 8 -name bitmap -hidden \
-title [CDDriveGet]RESOURCE/BITMAPS/$torbitmap]
# create the Setup button.
controlCreate tornadoAutoRun@@ [list \
button -w 50 -height 16 -hidden -title "&Setup" -name setupButton \
-callback {
global env
# add the "-C" option for UITclSh to bring up the debug
# console.
if {[info exists env(SETUP_DEBUG)] && $env(SETUP_DEBUG) > 1} {
set option "-C"
} else {
set option ""
}
# run INSTW32.TCL and close the Autorun window.
if {[isUnix]} {
if {[catch {exec [tempDirGet]/UITclSh \
[CDDriveGet]RESOURCE/TCL/INSTW32.TCL [CDDriveGet] &}\
error]} {
messageBox $error
} else {
tornadoAutoRun@@windowClose
}
} else {
# remove trailing slash using "string trimright" since
# an extra slash is added in INSTW32.TCL. Two slashes
# does not work under W95 (e.g. c:\\).
if {[catch {processCreate "[CDDriveGet]X86/WIN32/UITCLSH.EXE \
$option [CDDriveGet]RESOURCE/TCL/INSTW32.TCL \
[string trimright [CDDriveGet] \\]"} error]} {
messageBox $error
} else {
tornadoAutoRun@@windowClose
}
}
}]
# create the Remote Icons button.
controlCreate tornadoAutoRun@@ [list \
button -w 50 -height 16 -hidden -title "Remote &Icons" \
-name addiconButton \
-callback {
global env
# run the Remote Icon installation.
if {[info exists env(SETUP_DEBUG)] && \
$env(SETUP_DEBUG) > 1} {
set option "-C"
} else {
set option ""
}
if {[catch {processCreate \
"[CDDriveGet]X86/WIN32/UITCLSH.EXE $option \
[CDDriveGet]RESOURCE/TCL/INSTW32.TCL [CDDriveGet]\
/ICON"} error]} {
messageBox $error
} else {
tornadoAutoRun@@windowClose
}
}]
# create the Read Me button.
controlCreate tornadoAutoRun@@ [list \
button -w 50 -height 16 -hidden -title "&Read Me..." \
-name readmeButton \
-callback {
if {[isUnix]} {
global env
if [file exist [CDDriveGet]README.TXT] {
if {$env(WIND_HOST_TYPE)=="sun4-solaris2"} {
# use dos2unix on the text file for Unix,
# otherwise ^M's appear in the editor.
if {[catch {exec /bin/dos2unix \
[CDDriveGet]README.TXT > \
[tempDirGet]/README.TXT} error]} {
set filename "[CDDriveGet]README.TXT"
} else {
set filename "[tempDirGet]/README.TXT"
}
} elseif {$env(WIND_HOST_TYPE)=="parisc-hpux10"} {
if {[catch {exec /bin/dos2ux \
[CDDriveGet]README.TXT > \
[tempDirGet]/README.TXT} error]} {
set filename "[CDDriveGet]README.TXT"
} else {
set filename "[tempDirGet]/README.TXT"
}
} else {
set filename "[CDDriveGet]README.TXT"
}
catch {[editorCommand $filename]} error
} else {
messageBox -exclam "No README available at this time."
}
} else {
# display README using Notepad on Windows
if [file exist [CDDriveGet]README.TXT] {
if {[catch [list processCreate \
"notepad.exe [CDDriveGet]README.TXT"] error]} {
messageBox $error
}
} else {
messageBox -exclam "No README available at this time."
}
}
}]
# create What's New button.
controlCreate tornadoAutoRun@@ [list \
button -w 50 -height 16 -hidden -title "&What's New..." \
-name whatsnewButton \
-callback {
if {[isUnix]} {
global env
if [file exist [CDDriveGet]NEW.TXT] {
if {$env(WIND_HOST_TYPE)=="sun4-solaris2"} {
# use dos2unix on the text file for Unix,
# otherwise ^M's appear in the editor.
if {[catch {exec /bin/dos2unix \
[CDDriveGet]NEW.TXT > [tempDirGet]/NEW.TXT}\
error]} {
set filename "[CDDriveGet]NEW.TXT"
} else {
set filename "[tempDirGet]/NEW.TXT"
}
} elseif {$env(WIND_HOST_TYPE)=="parisc-hpux10"} {
if {[catch {exec /bin/dos2ux [CDDriveGet]NEW.TXT \
> [tempDirGet]/NEW.TXT} error]} {
set filename "[CDDriveGet]NEW.TXT"
} else {
set filename "[tempDirGet]/NEW.TXT"
}
} else {
set filename "[CDDriveGet]NEW.TXT"
}
catch {[editorCommand $filename]} error
} else {
messageBox -exclam "WHAT'S NEW not available at this time."
}
} else {
# display file on Windows using Notepad.
if [file exist [CDDriveGet]NEW.TXT] {
if {[catch [list processCreate \
"notepad.exe [CDDriveGet]NEW.TXT"] error]} {
messageBox $error
}
} else {
messageBox -exclam "WHAT'S NEW not available at this\
time."
}
}
}]
# create Exit button.
controlCreate tornadoAutoRun@@ [list \
button -w 50 -height 16 -hidden -title "E&xit" -name exitButton \
-callback tornadoAutoRun@@windowClose]
welcomePageLayoutPrepare
}
#############################################################################
#
# welcomePageLayoutPrepare - displays the Autorun dialog.
#
# This procedure sets up the controls and displays the Autorun dialog.
#
# SYNOPSIS:
# welcomePageLayoutPrepare
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#
proc welcomePageLayoutPrepare {} {
global env
global autorunBypass
# Retrieve the bitmap's width and height in dialog units.
set bitmapW [lindex [controlSizeGet tornadoAutoRun@@.bitmap] 0]
set bitmapH [lindex [controlSizeGet tornadoAutoRun@@.bitmap] 1]
# Resize the dialog now that we know the bitmap's size in dialog units.
windowSizeSet tornadoAutoRun@@ \
[expr 8 + $bitmapW + 8 + 50 + 8] [expr 8 + $bitmapH + 8]
windowTitleSet tornadoAutoRun@@ "Welcome to Tornado"
controlHide tornadoAutoRun@@.bitmap 0
# set the button coordinates.
set buttonxpos [expr 8 + $bitmapW + 8]
set button1ypos 8
set button2ypos [expr 8 + 13 + 8]
set button3ypos [expr 8 + 13 + 8 + 13 + 8]
set button4ypos [expr 8 + 13 + 8 + 13 + 8 + 13 + 8]
# Unix does not have a Remote icon button.
if {[isUnix]} {
controlPositionSet tornadoAutoRun@@.setupButton $buttonxpos \
$button1ypos
controlPositionSet tornadoAutoRun@@.readmeButton $buttonxpos \
$button2ypos
controlPositionSet tornadoAutoRun@@.whatsnewButton $buttonxpos \
$button3ypos
} else {
controlPositionSet tornadoAutoRun@@.setupButton $buttonxpos \
$button1ypos
controlPositionSet tornadoAutoRun@@.addiconButton $buttonxpos \
$button2ypos
controlPositionSet tornadoAutoRun@@.readmeButton $buttonxpos \
$button3ypos
controlPositionSet tornadoAutoRun@@.whatsnewButton $buttonxpos \
$button4ypos
}
controlPositionSet tornadoAutoRun@@.exitButton [expr 8 + $bitmapW + 8] \
[expr 8 + $bitmapH - 16]
# display the buttons.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -