Changeset 141

Timestamp:

07/21/06 11:17:25 (18 years ago)

Author:

theetten

Message:

fix bug in xhelp.pro ticket37

File:

• trunk/SRC/Utilities/xhelp.pro (modified) (1 diff)

trunk/SRC/Utilities/xhelp.pro

@@ -80 +80 @@
          readf,unit,c
          if strpos(c,';-') eq 0 then readon=0
-         if readon then begin
-            dum=where(byte[c] eq 9b,ntab) ; count tab characters
-            xsize=xsize > (strlen[c]+8*ntab)
+         if readon then BEGIN
+            dum=where(byte(c) eq 9b,ntab) ; count tab characters
+            xsize=xsize > (strlen(c)+8*ntab)
             a[i] = strmid(c,1,200)
             i = i + 1