{  The program "Update_8" may not be resold or included in other packages.}
{  Copying and subsequent distribution to a third party is forbidden.     }
{  CoCreate takes no responsibility for errors resulting from the use or  }
{  misuse of the software.                                                }
{  All use of this software is the responsiblity of the user.             }
{  CATEGORY: FILE GOODIES                                                 }
{  AUTHOR: CoCreate                                                       }
{  CONTACT OPTION:                                                        }
{  VIDEO MODE: (Native ME10)                                              }
{  MONITOR RESOLUTION: n/a                                                }
{  MACRO TITLE: UPDATE_8                                                  }
{  DESC: Updates the files listed in the classical file browser.          }
{  MACRO VERSION: 1.0                                                     }
{  DATE: 2000.09.21                                                       }
{  APPLICATION: ME10 8.7/9.0/10.x                                         }
{  OPSYS: HP-UX 9.x/10.x Windows95/98/NT                                  }
{  KEYWORDS: FILE UPDATE VERSION                                          }
{*************************************************************************}

TRAP_ERROR
LET MP_START_MACRO "UPDATE_8"
ADD_TO_SUPPORT_MACRO_TABLE 'UPDATE_8' 'ALL' 'ALL' 'FILE' 'GOODIES' 'ALL' 'END'
LET C (CHECK_ERROR)

STORE_IN_RECALL_BUFFER MP_START_MACRO
LET MP_MACRO_NAME "Update_8 1.0"
LET MP_OWNER_NAME "Support Customers"

CREATE_LTAB 'Install_ltab'

DEFINE ALGHTYEL RGB_COLOR 1 1 .55555 END_DEFINE
DEFINE ATABDDEY RGB_COLOR .2222 .2222 .2222 END_DEFINE
DEFINE ATABDREY RGB_COLOR .3333 .3333 .3333 END_DEFINE
DEFINE ATABFREY RGB_COLOR .6666 .6666 .6666 END_DEFINE
DEFINE ATABGREY RGB_COLOR .7777 .7777 .7777 END_DEFINE
DEFINE ATABLREY RGB_COLOR .95   .95   .95   END_DEFINE
DEFINE ATABBLUE RGB_COLOR 0 0 .5 END_DEFINE
DEFINE ATABLBLU RGB_COLOR .4 .4 .6 END_DEFINE

DEFINE CREATE_INSTALL_TABLE
LOCAL X LOCAL Y LOCAL FW
LET FW FONT_WIDTH
TABLE_LAYOUT     'Install_dtab'
                 'Install_ltab'
                 ATABFREY ATABFREY
                 WIDTH 40 ROWS 0
                 FRAME_WIDTH 3
                 TITLE_LAYOUT
                 20 '1                                       '
                 30 '2                                       '
                 50 '3                                       '
                 20 '4                                       '
                 END
COLUMN_LAYOUT       '                                        ' END
TABLE_TITLE 'Install_dtab'
                WHITE ATABBLUE LEFT   '@s1' 'DELETE_TABLE "Install_dtab"' 1 1
                BLACK ATABGREY CENTER '@s2' ''                            2 1
             ATABBLUE ATABGREY CENTER '@s3' ''                            3 1
                BLACK ATABGREY CENTER '@s4' ''                            4 1
END
WRITE_LTAB 'Install_ltab' TITLE 1 (MP_MACRO_NAME+" installation")
WRITE_LTAB 'Install_ltab' TITLE 2 ("Registered to: "+MP_OWNER_NAME)
WRITE_LTAB 'Install_ltab' TITLE 3 "P L E A S E   W A I T . . . . . "
WRITE_LTAB 'Install_ltab' TITLE 4 ("Start with: "+MP_START_MACRO+" or PageUp")
LET X (((X_OF Graphic_area_up_right)/2)-(FW*20))
LET Y ((Y_OF Graphic_area_up_right)/2)
TABLE_STATUS 'Install_dtab' MAP
TABLE_STATUS 'Install_dtab' MOVE (PNT_XY X Y)
END_DEFINE

CREATE_INSTALL_TABLE

{Update_8

--> (Update_8)

This macro updates all MI files from earlier versions to the MI
format of ME10 version 8.
This is helpfull if you want to use the preview option in ME10 v8.}

DEFINE Update_8
  LOCAL I
  LOCAL J
  LOCAL ANSW
  LOCAL String_in
  EDIT_PART '/'
  INQ_ENV 7
  LET ANSW "Yes"
  IF ((INQ 101)<>(INQ 102))
    READ STRING "If you continue (with 'Yes') you will delete everyting in your drawing!" DEFAULT 'Yes' ANSW
  END_IF
  IF (ANSW="Yes")
    DELETE ALL CONFIRM
    SPOTLIGHT OFF
    LET I 1
    LET J (LTAB_ROWS 'FBT_FTAB')
    LOOP
    EXIT_IF (I>J)
      LET String_in (READ_LTAB 'FBT_FTAB' I 1)
      IF (((String_in<>'hp_catfile') AND (String_in<>'hp_catlock')) OR
         ((String_in<>'HP_CAT.FIL') AND (String_in<>'HP_CAT.LCK')) OR
         (NOT (MATCH String_in '*.dxf')) OR
         (NOT (MATCH String_in '*.DXF')) OR
         (NOT (MATCH String_in '*.dwg')) OR
         (NOT (MATCH String_in '*.DWG')) OR
         (NOT (MATCH String_in '*.igs')) OR
         (NOT (MATCH String_in '*.IGS'))
         )
        TRAP_ERROR
        LOAD String_in
        IF (CHECK_ERROR)
          DISPLAY_NO_WAIT (String_in+' is not a valid MI file')
          WAIT 1
        ELSE
          STORE MI ALL DEL_OLD String_in
          DELETE ALL CONFIRM
        END_IF
        END
      END_IF
      LET I (I+1)
    END_LOOP
  END_IF
END_DEFINE

WAIT .5
TABLE_STATUS "Install_dtab" UNMAP
DELETE_MACRO CREATE_INSTALL_TABLE
DELETE_TABLE "Install_dtab"