DEFINE_KEY 9 PLAIN EXECUTE 'Frs_m_verz_wechseln Fbt_dtabs_all_on all'


DEFINE Frs_m_verz_wechseln
LOCAL Frs_vg_mbody
LOCAL Frs_vg_z 
LOCAL Frs_vg_s
LET Frs_vg_z 1
LET Frs_vg_s 1
LET Frs_vg_mbody 0
CURRENT_MENU 'e'
MENU_LAYOUT Menu_position RIGHT
Headline_height  ' | |                  | '
LOOP 
Text_slot_height '                        '
LET Frs_vg_mbody (Frs_vg_mbody + 1)
EXIT_IF 
(Frs_vg_mbody = 36)
END_LOOP 
                 '          |             '
INQ_ENV 10
LET look (INQ 19)
IF
	(look = 0)
INQ_ENV 1
(PNT_XY ((Window_x_size) - Menu_width)(Window_y_size))
ELSE 
LET pos_xy (INQ 104)
MENU_STATUS MOVE (pos_xy) END
 wui_classic off 
END_IF    
T_clear_menu Menu_control_icons
{***************************************************}
MENU Colo0 Bcol5 CENTER 'Verzeichnissliste'  '' 1 3
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol7 CENTER 'SYSTEMVERZEICHNISSE' '' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1        'ME10 Verzeichniss' 'CURRENT_DIRECTORY (GETENV "MEDIR") Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1        'ME10 TMP Verzeichniss' 'CURRENT_DIRECTORY (GETENV "METMPDIR")  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1        'USER $HOME' 'CURRENT_DIRECTORY (GETENV "USERPROFILE") Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol7 CENTER 'ZEICHNUNGSVERZEICHNISSE' '' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE A' 'CURRENT_DIRECTORY "d:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE B' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE C' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE D' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE E' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE F' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE G' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE H' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE I' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Projekt KUNDE J' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "c:/" Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol1  'Not Used' 'CURRENT_DIRECTORY "./"  Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_z (Frs_vg_z + 1)
MENU Colo0 Bcol5 CENTER 'AUSBLENDEN' 'MENU_STATUS UNMAP Fbt_dtabs_all_on all' (Frs_vg_z) Frs_vg_s
LET Frs_vg_s (Frs_vg_s + 1)
MENU Colo0 Bcol5 CENTER 'SCHLIESSEN' 'MENU_STATUS UNMAP Fbt_dtabs_off' (Frs_vg_z) Frs_vg_s
END
END_DEFINE

DEFINE Sm_file_1
INQ_ENV 0
LET me_vg_version (INQ 2)
LET Lastmen 'Tm_file_1'
IF 
(I_port)
    Check_i_port
END_IF
IF 
(NOT I_port)
        MENU_BUFFER ON
        CURRENT_MENU Sm_file_1_layout_name T_clear_menu Menu_control_icons
IF 
  ((me_vg_version > 9) AND (me_vg_version > 10.5))
        MENU Colo0 Bcol5 CENTER (DGETTEXT 'me10mac' 'FILE 1') '' 1 3
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'LOAD') 'LOAD' 2 1
    MENU (DGETTEXT 'me10mac' 'Drw/Part') 'LOAD' 2 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") '"workfile"' 3 1
    MENU (DGETTEXT 'me10mac' 'Subpart') 'LOAD SUBPART' 3 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'ABSOLUTE') 'ABSOLUTE' 4 1
    MENU (DGETTEXT 'me10mac' 'ToNewInst') 'To_new_inst' 4 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'LOAD HPGL') 'LOAD_HPGL' 5 1
    Sm_update_store_file
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") 'DEL_OLD "workfile"'
    11 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'FBROWSER') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 13
    1
    MENU (DGETTEXT 'me10mac' 'Nokeep') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 13 2
    MENU (DGETTEXT 'me10mac' 'Permanent') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 1' 14 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'CURR DIR') 'Frs_m_verz_wechseln' 15
    1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'COPY') 'COPY_FILE ' 16 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'PURGE') 'PURGE_FILE' 16 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'EDIT FILE') 'EDIT_FILE' 17 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'INPUT') 'INPUT' 17 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'OPTIONS') 'DEL_OLD' 21 1
    MENU (DGETTEXT 'me10mac' 'Delete Old') 'DEL_OLD' 21 2
    MENU (DGETTEXT 'me10mac' 'Printer') 'PRT' 22 1
    MENU (DGETTEXT 'me10mac' 'Append') 'APPEND' 22 2
    MENU (DGETTEXT 'me10mac' 'Recursive') 'RECURSIVE' 23 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'FILE 2') 'Tm_file_2' 25 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'ASSDOC') 'Tm_file_3' 25 2
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'REVCHK') 'Tm_file_4' 25 3
    Eight_menu_slots_add
ELSE_IF 
    (me_vg_version < 9) 
    MENU Colo0 Bcol5 CENTER 'DATEI 1' '' 1 3
    MENU Colo0 Bcol1 'LADEN' 'LOAD' 2 1
    MENU 'Zchn/Teil' 'LOAD' 2 2
    MENU Colo0 Bcol7 "'ArbDatei'" '"workfile"' 3 1
    MENU 'Einzelteil' 'LOAD SUBPART' 3 2
    MENU Colo0 Bcol7 'ABSOLUT' 'ABSOLUTE' 4 1 Sm_update_store_file
    MENU Colo0 Bcol7 "'ArbDatei'" 'DEL_OLD "workfile"' 10 1
    MENU Colo0 Bcol1 'DATEILISTE' 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12 1
    MENU 'Mit LÎsch' 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12 2
    MENU Colo0 Bcol7 'WECHSELN' 'Frs_m_verz_wechseln' 13 1
    MENU 'Ohne LÎsch' 'Fbt_dtabs_all_on 1' 13 2
  MENU Colo0 Bcol1 'VERZ AKT' 'CURRENT_DIRECTORY' 14 1
    MENU Colo0 Bcol1 'KOPIEREN' 'COPY_FILE ' 15 1
    MENU Colo0 Bcol1 'LÚSCHEN' 'PURGE_FILE' 16 1
    MENU Colo0 Bcol1 'DATEI EDIT' 'EDIT_FILE' 17 1
    MENU Colo0 Bcol1 'EINGABE' 'INPUT' 18 1
    MENU Colo0 Bcol1 'SICHERN' 'SAVE' 19 1
    MENU Colo0 Bcol7 'OPTIONEN' 'DEL_OLD' 21 1
    MENU 'LÎsch Alt' 'DEL_OLD' 21 2
    MENU 'Drucker' 'PRT' 22 1
    MENU 'AnfÏgen' 'APPEND' 22 2
    MENU 'Rekursiv' 'RECURSIVE' 23 1
    MENU Colo0 Bcol5 'DATEI2' 'Tm_file_2' 25 1
    MENU Colo0 Bcol5 'ASSDOK' 'Tm_file_3' 25 2
    MENU Colo0 Bcol5 'ØNDSTD' 'Tm_file_4' 25 3 Eight_menu_slots_add
ELSE 
    MENU Colo0 Bcol5 CENTER (DGETTEXT 'me10mac' 'FILE 1') '' 1 3
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'LOAD') 'LOAD' 2 1
    MENU (DGETTEXT 'me10mac' 'Drw/Part') 'LOAD' 2 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") '"workfile"' 3 1
    MENU (DGETTEXT 'me10mac' 'Subpart') 'LOAD SUBPART' 3 2
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'ABSOLUTE') 'ABSOLUTE' 4 1
    Sm_update_store_file
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' "'workfile'") 'DEL_OLD "workfile"'
    10 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'FBROWSER') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12
    1
    MENU (DGETTEXT 'me10mac' 'Nokeep') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 0' 12 2
    MENU (DGETTEXT 'me10mac' 'Permanent') 'Frs_m_verz_wechseln Fbt_dtabs_all_on 1' 13 2
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'CURR DIR') 'Frs_m_verz_wechseln' 14
    1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'COPY') 'COPY_FILE ' 15 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'PURGE') 'PURGE_FILE' 16 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'EDIT FILE') 'EDIT_FILE' 17 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'INPUT') 'INPUT' 18 1
    MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'SAVE') 'SAVE' 19 1
    MENU Colo0 Bcol7 (DGETTEXT 'me10mac' 'OPTIONS') 'DEL_OLD' 21 1
    MENU (DGETTEXT 'me10mac' 'Delete Old') 'DEL_OLD' 21 2
    MENU (DGETTEXT 'me10mac' 'Printer') 'PRT' 22 1
    MENU (DGETTEXT 'me10mac' 'Append') 'APPEND' 22 2
    MENU (DGETTEXT 'me10mac' 'Recursive') 'RECURSIVE' 23 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'FILE 2') 'Tm_file_2' 25 1
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'ASSDOC') 'Tm_file_3' 25 2
    MENU Colo0 Bcol5 (DGETTEXT 'me10mac' 'REVCHK') 'Tm_file_4' 25 3
    Eight_menu_slots_add
END_IF
END_IF 
END_DEFINE


DEFINE Sm_screen_wind_mouse
LET Frs_vg_mbody 0
CURRENT_MENU   'Sm_screen_wind_mouse'
LET Lastmen 'Sm_screen_wind_mouse'
MENU_BUFFER ON
MENU_LAYOUT Menu_position RIGHT
Headline_height  ' | |    ME10 QUICK   | '
LOOP 
Text_slot_height '           |           '
LET Frs_vg_mbody (Frs_vg_mbody + 1)
EXIT_IF 
(Frs_vg_mbody = 3)
END_LOOP 
pores
T_clear_menu Menu_control_icons
  MENU Colo0 Bcol5 CENTER 'ME10 QUICK' '' 1 3
  MENU Colo0 Bcol0 'Neuzeichnen' 'redraw menu_status unmap ' 2 1
  MENU Colo0 Bcol0 'Einpassen' 'window_fit menu_status unmap' 2 2
  MENU Colo0 Bcol0 'Zoom vorher' 'window last_windows menu_status unmap' 3 1
  MENU Colo0 Bcol0 'Zoom Neu' 'window two_pts menu_status unmap' 3 2
  MENU Colo0 Bcol0 'Zoom Mitte' 'window center menu_status unmap' 4 1
  MENU Colo0 Bcol0 'Verschieben' 'window_pan menu_status unmap' 4 2
END 
END_DEFINE

DEFINE Inq_command
  INQ_ENV 1
  INQ_ELEM
  PICK_VP_PNT (INQ 2) (INQ 104)
  IF (INQ 403=
    POINT)
    POINT Assistance
  END_IF
  IF (INQ 403=
    LINE)
    LINE Assistance
  END_IF
  IF (INQ 403=
    CIRCLE) Circle_end
  END_IF
  IF (INQ 403=
    ARC)
    ARC Assistance
  END_IF
  IF (INQ 403=
    C_LINE)
    C_LINE Assistance
  END_IF
  IF (INQ 403=
    C_CIRCLE)
    C_CIRCLE Assistance
  END_IF
  IF (INQ 403=
    TEXT)
    TEXT Assistance
  END_IF
  IF (INQ 403=
    BSPLINE)
    BSPLINE
  END_IF
  IF (INQ 403=
    DIM_LINE)
    DIM_LINE
  END_IF
  IF (INQ 403=
    DIM_RADIUS)
    DIM_RADIUS
  END_IF
  IF (INQ 403=
    DIM_DIAMETER)
    DIM_DIAMETER
  END_IF
  IF (INQ 403=
    DIM_ARC)
    DIM_ARC
  END_IF
  IF (INQ 403=
    DIM_ANGLE)
    DIM_ANGLE
  END_IF
  IF (INQ 403=
    DIM_CHAIN)
    DIM_CHAIN
  END_IF
  IF (INQ 403=
    DIM_DATUM_SHORT)
    DIM_DATUM_SHORT
  END_IF
  IF (INQ 403=
    DIM_DATUM_LONG)
    DIM_DATUM_LONG
  END_IF
  IF (INQ 403=
    DIM_COORD)
    DIM_COORD
  END_IF
  IF (INQ 403=
    DIM_CHAMFER)
    DIM_CHAMFER
  END_IF
  IF (INQ 403=
    CENTERLINE)
    CENTERLINE Assistance
  END_IF
  IF (INQ 403=
    REFLINE)
    REFLINE Assistance
  END_IF
  IF (INQ 403=
    LEADER_LINE)
    LEADER_LINE
  END_IF
  IF (INQ 403=
    SYMLINE)
    SYMLINE Assistance
  END_IF
  IF (INQ 403=
    END)
    INQ_ENV 10
    IF ((INQ 19)=1)
      INQ_TABLE 'FBT_FDTAB'
      IF 
      	((INQ 5)=0)
        Show_popup_menu 
      ELSE 
      Frs_m_popup_file
    END_IF 
    ELSE 
    INQ_ENV 1
LET pores (INQ 103)
    Sm_screen_wind_mouse
    END_IF
  END_IF
END_DEFINE


DEFINE Frs_m_popup_file
TOOLBAR DEL_OLD 'Frs_tlb_schalla'
END 
TOOLBAR_ITEM OVER_WRITE 'drawing_main' 
CAPTION 'ZEICHNUNGEN'
CATEGORY '' ON_ACTION '' ON_RIGHT_CLICK ''
PERSISTENT OFF ADD_TO_TOOLBAR 1
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'Separator' 
ADD_TO_TOOLBAR 2 END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_drawing' 
CAPTION 'Zeichnug laden'
CATEGORY '' ON_ACTION 'LOAD' ON_RIGHT_CLICK ''
TOOLTIP 'Zeichnung laden'
PERSISTENT OFF ADD_TO_TOOLBAR 3
END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_subpart' 
CAPTION 'Teil hinzuladen'
CATEGORY '' ON_ACTION 'LOAD SUBPART' ON_RIGHT_CLICK ''
TOOLTIP 'Teil hinzuladen'
PERSISTENT OFF ADD_TO_TOOLBAR 4
END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_subpart_keep' 
CAPTION 'Teil hinzuladen (keep)'
CATEGORY '' ON_ACTION 'LOAD SUBPART KEEP_SCALE' ON_RIGHT_CLICK ''
TOOLTIP 'Teil hinzuladen (KEEP_SCALE)'
PERSISTENT OFF ADD_TO_TOOLBAR 5
END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'file_main' 
CAPTION 'SONSTIGES'
CATEGORY '' ON_ACTION '' ON_RIGHT_CLICK ''
PERSISTENT OFF ADD_TO_TOOLBAR 6
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'Separator' 
ADD_TO_TOOLBAR 7 END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_macro_asci' 
CAPTION 'Macro laden (ASCI)'
CATEGORY '' ON_ACTION 'INPUT' ON_RIGHT_CLICK ''
TOOLTIP 'Macro laden (ASCI)'
PERSISTENT OFF ADD_TO_TOOLBAR 8
END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_macro_bin' 
CAPTION 'Macro laden (BINARY)'
CATEGORY '' ON_ACTION 'LOAD_MACRO' ON_RIGHT_CLICK ''
TOOLTIP 'Macro laden (BINARY)'
PERSISTENT OFF ADD_TO_TOOLBAR 9
END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_dll' 
CAPTION 'Modul laden (DLL)'
CATEGORY '' ON_ACTION 'LOAD_MODULE' ON_RIGHT_CLICK ''
TOOLTIP 'Modul laden (DLL)'
PERSISTENT OFF ADD_TO_TOOLBAR 10
END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_fnt' 
CAPTION 'Font laden'
CATEGORY '' ON_ACTION 'LOAD_FONT' ON_RIGHT_CLICK ''
TOOLTIP 'Font laden'
PERSISTENT OFF ADD_TO_TOOLBAR 11
END
{*****************************************************************}
TOOLBAR_ITEM OVER_WRITE 'load_plot' 
CAPTION 'HPGL laden'
CATEGORY '' ON_ACTION 'LOAD_HPGL' ON_RIGHT_CLICK ''
TOOLTIP 'HPGL laden'
PERSISTENT OFF ADD_TO_TOOLBAR 12
END
{*****************************************************************}
TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Popup Menu') ON_RIGHT_CLICK ''
PERSISTENT OFF SHOW_AS_POPUP
  END
END_DEFINE