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
[EMAIL PROTECTED]
http://www.major-k.de

_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to