home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / eeedit22.zip / enhanced.zip / SingleSpace.plg < prev    next >
Text File  |  2001-04-15  |  685b  |  18 lines
  1. /* Single space selected text */
  2.  
  3. parse value vpgetindex(window,Target) with first last
  4. SelectedText = VpGetItemValue(window,Target,First,Last)
  5.  
  6. if First=Last then response=VpMessageBox(window,programname,'Please highlight the text area on which to perform single spacing.'||'0d0a'x||' ')
  7.  
  8. CALL VpSetItemValue EEEmainwin,1019,rdledon
  9. parse var SelectedText value '0d0a'x SelectedText
  10. do until SelectedText=''
  11.   parse var SelectedText line '0d0a'x SelectedText
  12.   if line<>'' then value=value||'0d0a'x||line
  13. end
  14. SelectedText=value
  15. CALL VpSelect window,Target,First,Last
  16. CALL VpAddItem window, Target, 'CURRENT', SelectedText
  17. CALL VpSetItemValue EEEmainwin,1019,rdledoff
  18.