Get- SetGadgetData sinnvoll nutzen!

[ts-soft]

Hab mir gestern den Ereigniscode vom VD-Alpha angesehen, wobei der
LinkList verwendet. Da hab ich mir gedacht, man könnte doch die
GadgetData dafür mißbrauchen. Das ist herausgekommen:

Code: Alles auswählen

Enumeration
  #btnOK
  #btnCancel
EndEnumeration

Procedure btnOK_Event(EventType.l)
  Debug "#btnOK"
EndProcedure
 
Procedure btnCancel_Event(EventType.l)
  Debug "#btnCancel"
EndProcedure

If OpenWindow(0, #CW_USEDEFAULT, #CW_USEDEFAULT, 200, 100, "")
  If CreateGadgetList(WindowID(0))
    ButtonGadget(#btnOK, 10, 10, 50, 25, "OK")
    SetGadgetData(#btnOK, @btnOK_Event())
    ButtonGadget(#btnCancel, 80, 10, 50, 25, "Cancel")
    SetGadgetData(#btnCancel, @btnCancel_Event())
  EndIf
EndIf

Repeat
  Event  = WaitWindowEvent()
  Gadget = EventGadget()
  Type   = EventType()
  Window = EventWindow()
 
  Select Event
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      If GetGadgetData(Gadget)
        CallFunctionFast(GetGadgetData(Gadget), Type)
      EndIf
  EndSelect
ForEver

//Nachtrag:
an PB4 Beta 6 angepaßt

[Batze]

interressant