autorun.tcl

Berkeley DB 4.6.21VxWorks CD.NC.tar.gz

# 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.