[Gelöst] #PB_Shortcut_Up ohne Funktion (evtl. Bug)
Verfasst: 03.05.2014 23:03
Hallo zusammen,
bin gerade auf Linux umgestiegen (openSUSE 13.1, x64) und wollte einen alten Windows Code übersetzen.
Das Programm funktioniert einwandfrei bis auf die Abfrage der Cursor Up Taste, da passiert gar nichts (Tastatur ist OK, Cursor Up funktioniert in anderen Programmen und in der PB IDE einwandfrei).
Ich habe das Problem mal auf das nötigste zusammengefasst, vielleicht kann jemand den Programmschnipsel mal testen und berichten ob das Problem auch bei ihm auftritt. Danke schon mal im voraus.
Gruß, BI2
bin gerade auf Linux umgestiegen (openSUSE 13.1, x64) und wollte einen alten Windows Code übersetzen.
Das Programm funktioniert einwandfrei bis auf die Abfrage der Cursor Up Taste, da passiert gar nichts (Tastatur ist OK, Cursor Up funktioniert in anderen Programmen und in der PB IDE einwandfrei).
Ich habe das Problem mal auf das nötigste zusammengefasst, vielleicht kann jemand den Programmschnipsel mal testen und berichten ob das Problem auch bei ihm auftritt. Danke schon mal im voraus.
Code: Alles auswählen
; =============================================================================
; Programmname: CursorTest
; Beschreibung: Test Fehlverhalten Cursor UP unter Linux
;
; Erstellt am: 03.05.2014 - 22:39:01
; Autor: Andreas Schweitzer
; Version: 1.0
; Compiler: PureBasic 5.22 LTS (Linux - x64)
;{=============================================================================
; Compiler-Optionen
; [ ] InlineASM-Unterstützung einschalten
; [ ] Unicode-Executable erstellen
; [ ] Thread-sicheres Executable erstellen
; [ ] OnError-Unterstützung einschalten
;
; Executable-Format: Linux
; Library Subsystem:
; Datei-Format: ASCII
;}=============================================================================
;EnableExplicit
Enumeration
#keyUp
#keyDown
#keyLeft
#keyRight
EndEnumeration
If OpenWindow(0, 100, 200, 195, 260, "CursorTest", #PB_Window_SystemMenu)
AddKeyboardShortcut(0, #PB_Shortcut_Up, #keyUp)
AddKeyboardShortcut(0, #PB_Shortcut_Down, #keyDown)
AddKeyboardShortcut(0, #PB_Shortcut_Left, #keyLeft)
AddKeyboardShortcut(0, #PB_Shortcut_Right, #keyRight)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Menu
Select EventMenu()
Case #keyUp
Debug "U"
Case #keyDown
Debug "D"
Case #keyLeft
Debug "L"
Case #keyRight
Debug "R"
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
End