home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / eeedit22.zip / enhanced.zip / LCaseSel.plg < prev    next >
Text File  |  2001-04-15  |  336b  |  8 lines
  1. /* LowerCaseSelected text */
  2.  
  3. parse value vpgetindex(window,Target) with first last
  4. SelectedText = VpGetItemValue(window,Target,First,Last)
  5. SelectedText=translate(SelectedText,'abcdefghijklmnopqrstuvwxyz','ABCDEFGHIJKLMNOPQRSTUVWXYZ')
  6. CALL VpSelect window,Target,First,Last
  7. CALL VpAddItem window, Target, 'CURRENT', SelectedText
  8.