simulate PB events

[eddy]

Simulate or Emulate PB events system...

Code: Select all

ProcedureDLL SimulateGadgetEvent(Gadget, EventType)
   Protected wp=Gadget+EventType<<(SizeOf(Word)*8)
   Protected lp=GadgetID(Gadget)
   ;get parent window
   Protected win=GetParent_(GadgetID(Gadget))
   ;While GetParent_(win) : win=GetParent_(win) : Wend
   ;send message to window
   PostMessage_(win, #WM_COMMAND, wp, lp)
EndProcedure

; ********************
; EXAMPLE by eddy
; ********************

OpenWindow(1, 0, 0, 400, 250, "1", #PB_Window_SystemMenu)
CompilerIf #PB_Compiler_Version<430
   CreateGadgetList(Windiwid(1))
CompilerEndIf
ButtonGadget(10, 5, 5, 55, 55, "10")

OpenWindow(2, 0, 0, 400, 250, "2", #PB_Window_SystemMenu, WindowID(1))
CompilerIf #PB_Compiler_Version<430
   CreateGadgetList(Windiwid(2))
CompilerEndIf
ContainerGadget(100, 0, 0, 200, 200, #PB_Container_Double)
ButtonGadget(20, 5, 5, 55, 55, "20")
CloseGadgetList()

Repeat
   e=WaitWindowEvent()
   w=EventWindow()
   g=EventGadget()
   t=EventType()
      
   Select e
      Case #PB_Event_ActivateWindow
         If EventWindow()=1
            gadget=10
            eventtype=Random(100)
         Else
            gadget=20
            eventtype=#PB_EventType_LeftDoubleClick
         EndIf
         SimulateGadgetEvent(gadget, eventtype)
         Debug "(gadget="+Str(gadget)+") Sending a new event "
         
      Case #PB_Event_Gadget
         Debug "event window="+Str(w)
         Debug "event gadget="+Str(g)
         Debug "event type="+Str(t)
         Debug ""
   EndSelect
Until e=#PB_Event_CloseWindow

[ts-soft]

Is

Code: Select all

PokeW( @wp+0,id)

correct ? Or so ?

Code: Select all

PokeW( @wp+0,GadgetID)

[eddy]

true

| edit | fixed

[ts-soft]

thx, very nice

[HeX0R]

This comes in very handy!

Not even two weeks ago i searched like hell through the MSDN-Network for exactly this function, but hadn't any luck...

Thx for sharing this!

[Brice Manuel]

Very good Eddy! Thank you for sharing. I have been wondering how to do this for the 2D GUI I am working on.

[NoahPhense]

Very kewl...

- np

[Shannara]

FSW posted similar code found here: viewtopic.php?t=15470

[Phoenix]

Code: Select all

PokeW( @wp+0,GadgetID)
PokeW( @wp+2,EventType)

I don't understand what "wp" is in the example... is has no default value so what value do they hold and where do they come from? How does PokeW work when it doesn't know what "wp" is?

[einander]

@Phoenix:

WP.w is a empty memory address where you can put any two bytes.
Here POKE is the command to set the contents of WP.
The two bytes are GadgetID and EventType.

[Dräc]

Very good Eddy! Thank you for sharing. I have been wondering how to do this for the 2D GUI I am working on.

I don’t know if you expect to share a such work, but I would be interesting by using a good library an the subject rather than develop one myselft (because I have already enough job for rest of my game)

[Brice Manuel]

I don’t know if you expect to share a such work,

Yes, I will release it as a free LIB when it is more complete. (Right now, only windows, buttons, spinners and sliders are implemented. ) I have a couple of other little things for PB done that I need to do docs for and put online.

[Dräc]

I don’t know if you expect to share a such work,

Yes, I will release it as a free LIB when it is more complete. (Right now, only windows, buttons, spinners and sliders are implemented. ) I have a couple of other little things for PB done that I need to do docs for and put online.

To be sure : is it truly to perform a GUI under exclusive mode ? (OpenScreen)

[Brice Manuel]

Sorry Eddy about the thread hijack

To be sure : is it truly to perform a GUI under exclusive mode ?

2D will work fullscreen or windowed.

[Dräc]

Great !