home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / UE311CMD.ZIP / SMOOTH.CMD < prev    next >
OS/2 REXX Batch file  |  1990-06-19  |  976b  |  50 lines
  1. ;    SMOOTH.CMD:    add the smooth paging option
  2.  
  3.  
  4.     set $discmd FALSE
  5.  
  6. ;    toggle smooth paging mode
  7.  
  8. 30    store-macro
  9.     set $discmd FALSE
  10.     !if %rcspage
  11.         set %rcspage FALSE
  12.         set %rctmp "OFF"
  13.         set $sscroll FALSE
  14.     !else
  15.         set %rcspage TRUE
  16.         set %rctmp "ON "
  17.         set $sscroll TRUE
  18.     !endif
  19.     set %cbuf $cbufname
  20.     set %cline $cwline
  21.     select-buffer "Function Keys"
  22.     beginning-of-file
  23.     search-forward "Spg["
  24.     3 delete-next-character
  25.     insert-string %rctmp
  26.  
  27.     unmark-buffer
  28.     select-buffer %cbuf    
  29.     %cline redraw-display
  30.     set $discmd TRUE
  31.     write-message &cat &cat "[Smooth Paging " %rctmp "]"
  32. !endm
  33. bind-to-key execute-macro-30 FN6
  34.  
  35. ;set up new function keys window
  36. set %cbuf $cbufname
  37. set %cline $cwline
  38. select-buffer "Function Keys"
  39. beginning-of-file
  40. search-forward "f6 "
  41. 8 delete-next-character
  42. insert-string "Spg[OFF]"
  43. unmark-buffer
  44. select-buffer %cbuf
  45. %cline redraw-display
  46. set %rcspage FALSE
  47. print "[Smooth Paging loaded]"
  48. set $discmd TRUE
  49.  
  50.