home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / Tools / textlen.e < prev   
Text File  |  1996-12-02  |  307b  |  17 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'intuition/intuition'
  5.  
  6. PROC textlen(s,ta) IS IF s THEN IntuiTextLength([0,0,0,0,0,ta,s,NIL]:intuitext) ELSE 0
  7.  
  8. PROC textlen_key(s,ta,key)
  9.   DEF len=0
  10.   IF s
  11.     len:=textlen(s,ta)
  12.     IF key
  13.       IF InStr(s,'_')<>-1 THEN len:=len-textlen('_',ta)
  14.     ENDIF
  15.   ENDIF
  16. ENDPROC len
  17.