thyphoon/PBMap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Linux SetActiveGadget(-1) fix

Browse Source
This commit is contained in:
djes
2016-10-02 19:52:49 +02:00
parent 717de5f6a3
commit 86483640d7
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
PBMap.pb
View File

@@ -2209,6 +2209,10 @@ CompilerIf #PB_Compiler_IsMainFile
StringGadget(#StringGeoLocationQuery, 530, 450, 150, 20, "") StringGadget(#StringGeoLocationQuery, 530, 450, 150, 20, "")
SetActiveGadget(#StringGeoLocationQuery) SetActiveGadget(#StringGeoLocationQuery)
AddKeyboardShortcut(#Window_0, #PB_Shortcut_Return, 1) AddKeyboardShortcut(#Window_0, #PB_Shortcut_Return, 1)
CompilerIf #PB_Compiler_OS = #PB_OS_Linux
Dummy = ButtonGadget(#PB_Any, 0, 0, 1, 1, "Dummy")
HideGadget(Dummy, 1)
CompilerEndIf
Define Event.i, Gadget.i, Quit.b = #False Define Event.i, Gadget.i, Quit.b = #False
Define pfValue.d Define pfValue.d
@@ -2301,7 +2305,11 @@ CompilerIf #PB_Compiler_IsMainFile
Case #PB_Event_Menu Case #PB_Event_Menu
Select EventMenu() Select EventMenu()
Case 1 Case 1
SetActiveGadget(-1) CompilerIf #PB_Compiler_OS = #PB_OS_Linux
SetActiveGadget(Dummy)
CompilerElse
SetActiveGadget(-1)
CompilerEndIf
EndSelect EndSelect
EndSelect EndSelect
Until Quit = #True Until Quit = #True
@@ -2311,9 +2319,10 @@ CompilerIf #PB_Compiler_IsMainFile
CompilerEndIf CompilerEndIf
; IDE Options = PureBasic 5.50 (Windows - x64) ; IDE Options = PureBasic 5.42 LTS (Windows - x64)
; CursorPosition = 1156 ; CursorPosition = 2180
; FirstLine = 1144 ; FirstLine = 2221
; Folding = ---------------- ; Folding = ----------------
; EnableUnicode
; EnableThread ; EnableThread
; EnableXP ; EnableXP