Re: Help need with space bar
- Posted by Spock May 28, 2017
- 1365 views
Windows 7 pro up to date
Euohoria 4.0.5 (5741:362497032f33, 2012-10-11 16:05:19)
Back Again! Easy one this time...
include Win32Lib.ew without warning -- Window main_win constant main_win = createEx( Window, "", 0, 596, 296, 1000, 712, 0, 0 ) constant mw_find_btn = createEx( PushButton, "FIND SOMETHING", main_win, 96, 424, 175, 28, 0, 0 ) -- Window find_win constant find_win = createEx( Window, "FIND SOMETHING", 0, Default, Default, 321, 217, 0, 0 ) --------------------------------------------------------- -------------------------------------------------------------------------------- procedure mw_find_btn_onClick (integer self, integer event, sequence params) --THE FIND WINDOW BUTTON openWindow(find_win,Normal) end procedure setHandler( mw_find_btn, w32HClick, routine_id("mw_find_btn_onClick")) --------------------------------------------------------- WinMain( main_win,Normal )
1. Run above with interpreter
2. Up comes main window.
3. Press space bar. Nothing happens.
4. Click on find_win button.
5. Up comes find window.
6. Use FIND WINDOW close 'X' & close window.
7. Now, press space bar.
8. Up comes the find_win again.
9. Only does this after the find_win has been opened at least once.
10. Tried on another machine. Same result.
11. Tears of regret.
Any thoughts? Am I missing some default operation of the space bar? Windows maybe?
Thanks & Regards,
jd
It seems to be a focus issue. Try adding this after the controls are created: setFocus(mw_find_btn)
Better still, add it to the main_win handler to fire when the parent window is first opened.
Spock