Runrev bug, or I have made an error ?

[Klaus Major]

Bonjour Damien,

> Hi all,
>
> I am using runrev 2.6 under linux, and I have a strange bug.
>
> I need to get a list of font, and put a tab before each line of the  
> fontlist
> (is it for a font menu).
>
> This is my script :
>
>   put fontnames() into TheList
>   sort TheList
>
>   put "0" into LineToDo
>   repeat for each line 1 in TheList
>     put LineToDo +1 into LineToDo
>     put tab before line LineToDo of TheList
>   end repeat
>
> And the problem is in the result :
>
> -------- The Result
>
>     andale sans
>  ...
>     urw chancery l
>     urw gothic l
> urw palladio l
> utopia
>
> -------- /The Result
>
> The problem, is that all font have got a tab before it, but not 2  
> last line :
> urw palladio l
> utopia
>
> For me, I didn't see any bug in the script, but this seem to  
> doesn't work...

actually the "repeat for each" control stucture is meant to be READ- 
only!
And thus there may be strange results if you try to change the lines...
And your syntax is not quite correct.

Try this:
...
   put fontnames() into TheList
   sort TheList
   repeat for each line L in TheList
      put TAB & L & CR after new_list
   end repeat
   delete char -1 of new_list
   ## delete trailing CR
   ## c'est ça :-)
  ...

Hope that helps...

> Thanks.

Regards

Klaus Major
klaus at major-k.de
http://www.major-k.de