home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / eeedit22.zip / enhanced.zip / UCaseSel.plg < prev    next >
Text File  |  2001-04-15  |  281b  |  9 lines

  1. /* UpperCase selected text */
  2.  
  3. parse value vpgetindex(window,Target) with first last
  4. SelectedText = VpGetItemValue(window,Target,First,Last)
  5. SelectedText=translate(SelectedText)
  6. CALL VpSelect window,Target,First,Last
  7. CALL VpAddItem window, Target, 'CURRENT', SelectedText
  8.  
  9.