home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / rushdemo2-37.5370.lha / RushDemo2 / Rexx / ToggleLVFont.rush < prev    next >
Encoding:
Text File  |  1994-02-08  |  386 b   |  20 lines
  1. /*
  2. ** $VER: ToggleLVFont.rush 37.2 (2.7.94)
  3. **
  4. ** Toggle the listview font between two different font.
  5. **
  6. ** Written by Douglas Keller
  7. */
  8.  
  9. if( address() == "REXX" ) then address "RUSH.1"
  10.  
  11. options results
  12.  
  13. 'getlistviewfont'
  14. parse var result fontname fontsize
  15.  
  16. if fontname ~= "courier.font" then
  17.     'setlistviewfont font=courier.font size=13'
  18. else
  19.     'setlistviewfont font=topaz.font size=8'
  20.