hi deron.

my little "InsertFigureScript" (testscript) still results in an
_immediate reset_ of my computer when i start it. (could someone else
try it, please?)
is there smth wrong with the script? if not then there still is one
major bug left, i think.

here it is:

------------------8<-------------------
/* InsertFigureScript */
OPTIONS RESULTS
ADDRESS 'PAGESTREAM'

/*
** path and name of the picture to insert. path *must* end with "/" or ":"!!
*/

path = "RAM:"
name = "TestPicture.iff"

'PLACEGRAPHIC FILE '|| path || name ||' FILTER IFFILBM STATUS AT 2cm 2cm'
objid = RESULT

IF (objid = 'RESULT')
THEN DO
Say 'Error: Picture not found or no IFF ILBM picture'
Exit
END

'EDITPICTURE POSITION 2cm 2cm 12cm 12cm OBJECTID '|| objid

'DRAWCOLUMN 2cm 12cm 12cm 13cm COLUMNS 1 GUTTER 0cm'
'FILLED OFF'
'SETTOOLMODE TEXT'
'SELECTTEXT AT 2cm 12cm FRONTMOST'
'NEWFIGURETYPE NAME "Picture"'
'INSERTFIGURE NAME "'|| name ||'" TYPE "Picture"'
num = RESULT

'INSERTNUMBER FIGURENUM '|| num ||' FORMAT ARABIC LANGUAGE DEFAULT LEVEL DEFAULT'
'INSERT ": "'
'INSERTNAME FIGURE '|| num
------------------>8-------------------

thanks and
byebye...
--
Michael Merkel (MiMe@IRC)
Michael.Merkel@gmx.net
http://home.t-online.de/home/Merkel.Michael/