Code: Alles auswählen
Procedure GOSCI_Free(id)
Protected *this._GoScintilla
If IsGadget(id) And GadgetType(id) = #PB_GadgetType_Scintilla
*this = GetGadgetData(id)
If *this
ClearStructure(*this, _GoScintilla)
FreeMemory(*this)
EndIf
FreeGadget(id)
EndIf
EndProcedure
Grüße ... Peter