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)
      Show_popup_menu
    ELSE 
    INQ_ENV 1
LET pores (INQ 103)
    Sm_screen_wind_mouse
    END_IF
  END_IF
END_DEFINE