Actualy i made myself a small plugin wich edit the generated spider.js to do it (in PB, for sure!). It looks like :
Code: Select all
OpenFile(0, dirname + "SpiderBasic.js")
Repeat
line.s = ReadString(0)
;avoid asm generated lines on "js" procedures
If FindString(line, "equ esp") : Continue : EndIf
;retrieve "CreateGadget" content in current line
CreateRegularExpression(0, "spider_[A-Z][a-zA-Z]*Gadget.*document\.createElement\(" + Chr(34) + "div" + Chr(34) + "\);")
Dim result.s(0)
If ExtractRegularExpression(0, line, result()) >= 1
gadget.s = result(0)
;retrieve gadget object
CreateRegularExpression(1, "[a-z]{1}[=]{1}spider\.gadget\.objects\.Allocate\([a-z]{1}\)")
Dim result2.s(0)
If ExtractRegularExpression(1, gadget, result2()) >= 1
gadgetObj.s = Mid(result2(j), 1, 1)
EndIf
FreeRegularExpression(1)
;retrieve div object
CreateRegularExpression(1, "[a-z]{1}[=]{1}document\.createElement\(" + Chr(34) + "div" + Chr(34) + "\)")
Dim result2.s(0)
If ExtractRegularExpression(1, gadget, result2()) >= 1
divObj.s = Mid(result2(j), 1, 1)
EndIf
FreeRegularExpression(1)
;add the gadget id to the div in the "CreateGadget"
line = ReplaceString(line, gadget, gadget + divObj + ".id=" + Chr(34) + "gadget_" + Chr(34) + " + " + gadgetObj + ".id;")
Next
FreeRegularExpression(0)
content + line + Chr(10)
Until Eof(0)
CloseFile(0)
With that i can do easy proc likes :
Code: Select all
Procedure GadgetFadeIn(gID.i, time.i)
!$("#gadget_" + v_gID).fadeIn(v_time);
EndProcedure
Procedure GadgetFadeOut(gID.i, time.i)
!$("#gadget_" + v_gID).fadeOut(v_time);
EndProcedure