home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv7.zip / VACPP / IBMCPP / macros / FILLCHAR.LX < prev    next >
Text File  |  1995-05-11  |  403b  |  14 lines
  1. /* This macro provides a dialog where the user can enter */
  2. /* a block fill character  */
  3. 'lxn extract blocktype'
  4.    if blocktype = 'UNSET' then 
  5.  MSG 'Must mark a block before setting a fill character'
  6. 'set lineread.title Fill a Block'
  7. 'set lineread.prompt Enter fill character'
  8. 'lineread 255' 
  9. 'extract lastkey'
  10. if lastkey = "ENTER" then do 
  11. 'extract lastline'
  12. 'block fill' lastline
  13. end
  14.