BlueGUI problem - setGadgetText disables buttons

Author

Message

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 16th Jul 2005 06:04 Edited at: 16th Jul 2005 06:04

Link

Hi

I made this small example to show you what my problem is:

+ Code Snippet

startBlue "",""
sync off

global Main
global Window
global Edit
global Button

hey=1

Main=createMenu(0)

Window=createWindow(0,0,120,120,"Hi",WINDOW_NORMAL,0,0,Main)

Edit=createEdit(0,0,100,25,0,window)

Button=createButton(30,30,60,25,"exit",0,window)

do
getEvent

if eventSource()=Window
if eventType()=WINDOW_CLOSE
end
endif
endif

if eventSource()=Button
if eventType()=MOUSE_CLICK
end
endif
endif

setGadgetText Edit,str$(hey)

sync
loop

In this program the "Exit"-button won't work, neither can you exit by pressing the X in the corner.
However :

+ Code Snippet

startBlue "",""
sync off

global Main
global Window
global Edit
global Button

hey=1

Main=createMenu(0)

Window=createWindow(0,0,120,120,"Hi",WINDOW_NORMAL,0,0,Main)

Edit=createEdit(0,0,100,25,0,window)

Button=createButton(30,30,60,25,"exit",0,window)

do
getEvent

if eventSource()=Window
if eventType()=WINDOW_CLOSE
end
endif
endif

if eventSource()=Button
if eventType()=MOUSE_CLICK
end
endif
endif



sync
loop

this program works. I only removed the "SetGadgetText" from the loop.
Can anyone help me?

Thanks

KLU 007

*** PANZERGAMES ***

Back to top

Profile PM Email

Rob K

Retired Moderator

21

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 16th Jul 2005 06:15

Link

Hi Klu,

Your program is overloading the event queue. Every time you call setGadgetText (in this case that means every single loop!), a message is sent to the window which then processes it and updates.

Since only one event is removed from the queue each time getEvent is called, other events therefore get crowded out.

One solution would be to put a call to flushEvents after setGadgetText, but a much better option would be to only call setGadgetText when there is a change (check the current text using getGadgetText).