Re: Re: "quit all" does not quit all

I am testing your 5.3.35s3 exe version.

Below are "the peeled and wasted remnants" of my large script. Please tell me if it needs more simplification:

static FSS = "Format StartSubmenu"
static FES = "Format EndSubmenu"
static E = cl.Create("Bars", 1)
local Cur = E.length
E.Insert(Cur)
E.AddLeft(Cur, FSS)
E.SetLabel(Cur, "pqr")
..@Read()
Cur = E.length
E.Insert(Cur)
E.AddLeft(Cur, FES)

E.SetProperties("Format=samesize vertical iconsize: 16 tooltips")

if(1 == 2) do
else
    E.ShowMenu("centerscreen")
endif

quit all
;;************************************************
Function Read()

local Temp, Cur
local Str = "abc\rdef"

for each line Temp in Str
    Cur = E.length
    E.Insert(Cur)
    E.SetLabel(Cur, "ghi")
    E.AddLeft(Cur, FSS)
    .@Bur()
    Cur = E.length
    E.Insert(Cur)
    E.AddLeft(Cur, FES)
endfor

quit

;;************************************************
Function Bur()
local j, Cur, Item

for(j = 1; j <= 2; j++)
    Cur = E.length
    Item = E.Insert(Cur)
    E.SetLabel(Cur, "jkl")
    E.AddLeft(Cur, cb("@Mark"))
endfor

quit

;;************************************************
Function Mark()

if(1 == 1)
    .@Buffer()

quit
;;************************************************
Function Buffer()

local x = vec.create(2)

quit all


At the script execution and picking any of menu items the following error message appears:

"Missing endif in script file

Error occurred near line 18 of script test:
E.ShowMenu("centerscreen")

Press Cancel to end all running scripts."

though in fact there is no error.

Moreover, if to delete or comment the next-to-last line

local x = vec.create(2)

then no error message appears.


Yours sincerely,

Vochomurka


------------------------------------
Posted by: pprotcmd <[email protected]>
------------------------------------

PowerPro's download site: http://powerpro.cresadu.com/