home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / Configuration / 1013.18 < prev    next >
Text File  |  2002-04-17  |  625b  |  21 lines
  1. /* Event Slider/spin tracking - Spin Button  1013 */
  2. Arg window self
  3.  
  4. /* Get item value 1004 Entry Field */
  5. currenttexteditor = VpGetItemValue(window,1004)
  6. /* Get item value 1009 Entry Field */
  7. currenttextparam = VpGetItemValue(window,1009)
  8.  
  9. if currenttexeditor<>texteditor.ttype then
  10.   do
  11.     if length(currenttexteditor)>0 then
  12.       rc=stream(currenttexteditor,'C','QUERY EXISTS')
  13.       else rc=0
  14.     if length(rc)>0 | currenttexteditor='' then
  15.       texteditor.ttype=currenttexteditor
  16.   end
  17.  
  18. if currenttextparam<>textparameters.ttype then
  19.   textparameters.ttype=currenttextparam
  20.  
  21. call settexteditorbox