Man, I rule so much...
Function GetGadgetParent(gadget)
Return PeekL(gadget+28)
End Function
Function GadgetParent(gadget,parent)
SetParent QueryObject(gadget,1),QueryObject(parent,1)
PokeL gadget+28,parent
End Function
Function GetGadgetParent(gadget)
Return PeekL(gadget+28)
End Function
Function GadgetParent(gadget,parent)
SetParent QueryObject(gadget,1),QueryObject(parent,1)
PokeL gadget+28,parent
End Function