{ Show the edited dimensions                                        }
{ SHOW SELECT  SUBTREE EDITED_DIMENSIONS ALL CONFIRM RGB_COLOR 1 0 0}


DEFINE Show_edited_dimensions
  INQ_SELECTED_ELEM SELECT GLOBAL EDITED_DIMENSIONS ALL CONFIRM
  LOOP
    IF (STR (INQ 900)=('DOCU_THREAD_DIM_MAIN: <NOMINAL-DIAMETER>'))
       { SHOW SELECT GLOBAL POINTER (INQ 332) CONFIRM RGB_COLOR 1 0 1}
    ELSE_IF (STR (INQ 900)=('DOCU_THREAD_DIM_MAIN: <NOMINAL-DIAMETER-TEXT>'))
       { SHOW SELECT GLOBAL POINTER (INQ 332) CONFIRM RGB_COLOR 1 1 0}
    ELSE_IF (STR (INQ 900)=('DOCU_THREAD_DIM_MAIN: <NOMINAL-DIAMETER-INCH>'))
       { SHOW SELECT GLOBAL POINTER (INQ 332) CONFIRM RGB_COLOR 0 0 1}
    ELSE
      SHOW SELECT GLOBAL POINTER (INQ 332) CONFIRM RGB_COLOR 1 0 0
    END_IF
    INQ_NEXT_ELEM
  EXIT_IF ((INQ 14) = 0)
  END_LOOP
END_DEFINE