
  TYPE
    dpt$lock_main_window = RECORD
      lock: boolean,
      window_id: dpt$window_id,
    RECEND;

*copyc dpt$window_id
