home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / SubProcs / externaltexteditor < prev    next >
Text File  |  2002-08-17  |  327b  |  13 lines
  1. /* Get current index 1018 Spin Button */
  2. ttype=VpGetItemValue(window, 1018, 'INDEX')
  3.  
  4. parse var textparameters.ttype one '%s' two
  5.  
  6. if length(one)>0 then
  7.   alltxtparam=' '||one||textfilename
  8. else alltxtparam=' '||textfilename
  9. if length(two)>0 then
  10.   alltxtparam=alltxtparam||two
  11.  
  12. start texteditor.ttype||alltxtparam
  13.