{  The following macros are not supported                                 }
{  The program "FONT_CHECK" may not be resold or included in other        }
{  packages.                                                              }
{  Copying and subsequent distribution to other a third party is forbidden}
{  Darren Litherland takes no responsibility for errors resulting from    }
{  the use or misuse of the software.                                     }
{  All use of this software is the responsiblity of the recipient.        }
{  CATEGORY: ME10 TEXT                                                    }
{  COMPANY: Darren Litherland                                             }
{  AUTHOR: Darren Litherland                                              }
{  CONTACT OPTION: me10@nethut.net                                        }
{  VIDEO MODE: (Native ME10)                                              }
{  MONITOR RESOLUTION: n/a                                                }
{  MACRO TITLE: FONT_CHECK                                                }
{  DESC: Undefined font replacement and management                        }
{  MACRO VERSION: 1.0                                                     }
{  DATE: 1999.06.30                                                       }
{  APPLICATION: ME10 8.7/9.0                                              }
{  OPSYS: HP-UX 9.x/10.x Windows95/NT                                     }
{  KEYWORDS: CHANGE_TEXT_FONT CURRENT_FONT FONT                           }
{*************************************************************************}

LET DEF_FONT 'hp_i3098_v'

DEFINE FONT_CHECK
LOCAL A
LOCAL N
LOCAL D
LOCAL C
LOCAL L
LOCAL NT
LOCAL NF
LOCAL NR
LOCAL NU
LOCAL INF
LOCAL FONT_NAME
LOCAL NEW_FONT
LOCAL U
SHOW GLOBAL TEXTS ALL ON
INQ_SELECTED_ELEM GLOBAL TEXTS ALL
LET NT (INQ 14)
LET D DEF_FONT
LET U "Unchanged"
LET NF 0
LET NR 0
LET NU 0
LET A "All"
LET N 1
LET FIX_ALL 0
LOOP
  LOOP
    LET TEST 1
    LET INF (INQ 901)
    EXIT_IF (POS INF "FONT_CHECK: Original undefined font - ")
    LET TEST 0
    EXIT_IF (INF="END-OF-LIST")
  END_LOOP
  IF (TEST=0)
    LET FONT_NAME (INQ 302)
    TRAP_ERROR
    SAVE_FONT FONT_NAME LTAB "Font_ltab"
    LET C (LTAB_ROWS "Font_ltab")
    IF (C=3)
      LOOP
        SHOW GLOBAL TEXTS (INQ 101) RED
        IF (FIX_ALL<>1)
          READ STRING PROMPT ('The font "'+FONT_NAME+'" is not defined. Enter substitution (DEFAULT=D="'+D+'") - Or A to change ALL') NEW_FONT
          IF (NEW_FONT="All")
            LET FIX_ALL 1
            READ STRING PROMPT ('Enter substitution (DEFAULT=D="'+D+'")') NEW_FONT
          END_IF
        END_IF
        EXIT_IF (NEW_FONT="Unchanged")
        TRAP_ERROR
        SAVE_FONT NEW_FONT LTAB "Font_ltab"
        LET C (LTAB_ROWS "Font_ltab")
        EXIT_IF (C>3)
        LET FIX_ALL 0
      END_LOOP
      SHOW GLOBAL TEXTS (INQ 101) ON
      IF (NEW_FONT<>"Unchanged")
        ADD_ELEM_INFO ("FONT_CHECK: Original undefined font - "+FONT_NAME) (INQ 101)
        CHANGE_TEXT_FONTNAME DEF_FONT GLOBAL (INQ 101)
        LET NF (NF+1)
      ELSE
        LET NU (NU+1)
      END_IF
    END_IF
  ELSE
    LET L "                                                                                                                                                     "
    LET FONT_NAME (TRIM (SUBSTR (INF+L) 39 200))
    TRAP_ERROR
    SAVE_FONT FONT_NAME LTAB "Font_ltab"
    LET C (LTAB_ROWS "Font_ltab")
    IF (C>3)
      CHANGE_TEXT_FONTNAME FONT_NAME GLOBAL (INQ 101)
      CHANGE_ELEM_INFO INF "" GLOBAL (INQ 101)
      LET NR (NR+1)
    END_IF

  END_IF
  EXIT_IF (NT=N)
  INQ_NEXT_ELEM
  LET N (N+1)
END_LOOP
END
END_DEFINE