/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    tk60.ins - V3 installation script for GUI Common Files 2.5

  DESCRIPTION
    This script installs GUI Common Files 6.0.

  MODIFIED   MM/DD/YY   Reason
*****************************************************************************/
{
    if (doit)
    {
        /*****************************
        Set the VRF-INS script ratchet
        ******************************/
        ins_ratchet = "6.0.5.30.0";

        execute("%installer_home%%dir_separator%%operating_system%.ins");

        permit_retry_operations  = TRUE;
        permit_ignore_operations = TRUE;
        permit_process_operations= TRUE;


        /*************************** Installer 3.2 *****************************
        Need to indicate group for dlls
        ************************************************************************/
        win32_register_OCSM_product();
       /******************
        Install the product
        *******************/
        ui_product(instantiate(display_product_label));

        ui_action(instantiate(install_gui));
        copy(deinst);
        copy(exe);
        copy(dll);
        copy(msg);
       /******************/

        permit_retry_operations = FALSE;

        /**************************
        Modify Config Variables....
        ***************************/

        ui_action(instantiate(modify_variables));
        if (set_tk60)
        {
            modify("TK60", TK60, ora_config, product_filename(current_product));
            win32_register_key("$ORACLE","","TK60",'REPLICATE);
        }


        /*******************/

        permit_retry_operations = TRUE;

        /*********************************
        Register and Reference the product
        **********************************/
        ui_product(instantiate(display_product_label));
        ui_action( instantiate(install_register) );

        register(current_product);
        reference(current_product);
        /*********************************/

        remove(delold);                             
        /*********************/

        permit_retry_operations = FALSE;
    }
    [
        'UNREGISTERED_PRODUCT: continue();
        'CANCEL: signal('FAILURE, instantiate(halt_installation));
    ]
}