[Solved] Set/GetGadgetData as strings

[BarryG]

Can these be strings instead of numbers?

[Edit] Please ignore this request; see Little John's post below (it can already be done).

[Little John]

Can these be strings instead of numbers? If I need to store numbers with it, I can just do Str(number) and Val(number$), so it makes sense to make them strings instead for greater flexibility.

No. Now there is greater flexibility, because SetGadgetData() can be used to store a pointer to a structure, to an allocated memory area or to anything else you want.

[BarryG]

Good point, Little John!

[mk-soft]

For remember

Code: Select all

*pText.String = AllocateStructure(String)
*pText\s = "Hello World!"
Debug *pText\s
FreeStructure(*pText)

[Kwai chang caine]

No. Now there is greater flexibility, because SetGadgetData() can be used to store a pointer to a structure, to an allocated memory area or to anything else you want.

I don't know that, again yesterday i needed this option thanks Little John
Thanks at BarryG, for lightning this subject and MkSoft for writing his example, always usefull for me for understanding a great text explanation

Code: Select all

OpenWindow(0, x, y, 300, 200, "String en gadgetdata")
ButtonGadget(0, 10, 10, 30, 20, "Data")

*pText.String = AllocateStructure(String)
*pText\s = "Hello World!"
SetGadgetData(0, *pText)
*pText = 0
*pText = GetGadgetData(0)
Debug *pText\s
FreeStructure(*pText)

Repeat : WaitWindowEvent() :Until GetAsyncKeyState_(#VK_ESCAPE)

[mk-soft]

Code: Select all

OpenWindow(0, x, y, 300, 200, "String en gadgetdata")
ButtonGadget(0, 10, 10, 30, 20, "Data")

*pText.String = AllocateStructure(String)
*pText\s = "Hello World!"
SetGadgetData(0, *pText)
*pText = 0
*pText = GetGadgetData(0)
Debug *pText\s
FreeStructure(*pText)

Repeat : WaitWindowEvent() :Until GetAsyncKeyState_(#VK_ESCAPE)

You forget remove pointer from gadget

Code: Select all

*pText = GetGadgetData(0)
SetGadgetData(0, 0)
FreeStructure(*pText)

[Kwai chang caine]

Thanks MkSoft, i don't think to do that

[mk-soft]

To avoid memory leak...

Code: Select all

Procedure FreeGadgetWithData(Gadget)
  Protected *mem
  If IsGadget(Gadget)
    *mem = GetGadgetData(Gadget)
    If *mem
      FreeStructure(*mem)
    EndIf
    FreeGadget(Gadget)
  EndIf
EndProcedure