The following example from PB Linux Quickhelp for KeyboardInkey() doesn't work here as expected. The keyboardPushed is checked ok (I can exit the program), but KeyboardInkey() gives an empty string. Can anyone confirm this behaviour or is there a reason for this?
Greetings,
Kapslok
Code: Select all
If InitSprite() And InitKeyboard() And OpenScreen(800,600,16,"")
Repeat
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
ExamineKeyboard()
FullText$ + KeyboardInkey() ; Add the new text to the current one (if any)
; If we press the 'Back' key, we will delete the last character
;
If KeyboardReleased(#PB_Key_Back)
FullText$ = Left(FullText$, Len(FullText$)-1)
EndIf
; Display the result
;
If StartDrawing(ScreenOutput())
DrawingMode(1)
FrontColor(RGB(128, 255, 0))
DrawText(20, 20, "Just type some text...:")
DrawText(20, 40, FullText$)
StopDrawing()
EndIf
Until KeyboardPushed(#PB_Key_Escape)
EndIf