home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epm603b.zip / EPMSMP.ZIP / TOFSTYLE.E < prev    next >
Text File  |  1995-01-16  |  510b  |  18 lines

  1. ; A command to set the style of the Top-of-File and Bottom-of-File lines.
  2. ; For EPM 6 only.
  3.  
  4. include 'stdconst.e'
  5.  
  6. defmain
  7.    'tof_style' arg(1)
  8.  
  9. defc tofstyle, tof_style =
  10.    if not isnum(arg(1)) then
  11.       sayerror '1 = Text; 2 = Background; 3 = Ragged corner; 4 = Smaller ragged corner'
  12.    else
  13.       call windowmessage(0, getpminfo(EPMINFO_EDITCLIENT),
  14.                          5506,            -- EPM_EDIT_SETTOFSTYLE
  15.                          arg(1),
  16.                          0)
  17.    endif
  18.