Error when enabled "Optimize javascript output"

[drahneir]

I get an error message
"...constant document assigned a value more than once ....."
when executing this code:

Code: Select all

EnableExplicit

Global Number

Procedure FileHandler()
  
EndProcedure

Procedure ButtonHandler()
  Number + 1
  SetGadgetText(2, Str(Number))
EndProcedure
  
OpenWindow(0, 0, 0, 150, 30, "Click test", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
  ButtonGadget(1, 0, 0, 100, 30, "Gefällt mir")
  TextGadget(2, 100, 0, 50, 30, "0", #PB_Text_Center | #PB_Text_Border)
BindGadgetEvent(1, @ButtonHandler())

CreateFile(0, "ClckCnt.txt", @FileHandler())

When I outcomment CreateFile(), it runs ok.

And when I run the following code, it's ok as well:

Code: Select all

Procedure FileHandler()
EndProcedure

CreateFile(3, "ClkCnt.txt", @FileHandler())

Edit:

What I wrote above is not true . The error message appears here as well, when the optimization is checked.