home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / editors / epm / sampmacs / drawkey.e < prev    next >
Encoding:
Text File  |  1991-06-07  |  457 b   |  23 lines
  1. ;  DRAWKEY.E
  2. ;  Taken from DRAW.E, to make it separately compilable.
  3. ;
  4. def F6=
  5. compile if WANT_DBCS_SUPPORT
  6.    universal ondbcs
  7. compile endif
  8. compile if EVERSION < 5
  9.    cursor_command
  10.    'draw'
  11. compile else
  12.  compile if WANT_DBCS_SUPPORT
  13.    if ondbcs then
  14.       sayerror DRAW_ARGS_DBCS__MSG
  15.    else
  16.  compile endif
  17.       sayerror DRAW_ARGS__MSG
  18.  compile if WANT_DBCS_SUPPORT
  19.    endif
  20.  compile endif
  21.    'commandline draw '
  22. compile endif
  23.