Runrev bug, or I have made an error ?

[Eric Chatonet]

Bonjour Damien,

You use an integer as a variable name :-)
And Rev does not crash: kudos!

May be some more generic approach like the following might help you:

put InsertTab(the fontnames,1) after tMenu

function InsertTab pList,pNumOfTabs
   sort pList
   repeat for each line tLine in pList
     put tab & tLine & cr after tFormattedList
   end repeat
   delete last char of tFormattedList
   return tFormattedList
end InsertTab


Le 30 juin 05 à 14:53, Damien Girard a écrit :

> 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


Best Regards from Paris,

Eric Chatonet.
----------------------------------------------------------------
So Smart Software

For institutions, companies and associations
Built-to-order applications: management, multimedia, internet, etc.
Windows, Mac OS and Linux... With the French touch

Free plugins and tutorials on my website
----------------------------------------------------------------
Web site        http://www.sosmartsoftware.com/
Email        eric.chatonet at sosmartsoftware.com/
Phone        33 (0)1 43 31 77 62
Mobile        33 (0)6 20 74 50 86
----------------------------------------------------------------