home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / macros / fillchar.lx < prev    next >
Encoding:
Text File  |  1996-02-22  |  403 b   |  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.