-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
I am having a tough time using the keyboard unit under Linux. Please tell me
whats wrong with this code:
( var section cut out)
Begin
InitKeyBoard;
Repeat
K:=pollKeyEvent;
if k <>0
then
begin
k:=getkeyevent;
k:=translatekeyevent(k);
if isfunctionkey(k)
then
case k Of
kbdF1 :
Begin
End;
kbdF3 : DoSpot;
kbdF4 : DoId;
kbdF2 :Begin
End;
kbdF9 : GetUpdate(PromoString,PromoPrompt);
kbdF10 : GetUpdate(WeatherString,WeatherPrompt);
end
else if not isfunctionkey(k)
then
case getkeyeventchar(k) of
'1'..'8' :
Begin
'c':
Begin
End;
'd':
Begin
End;
'N','n': GetNext;
End; {of case}
End;
Until quit;
End;
I have chopped out a lot of the code; I never get any of the keys returned,
either
on the console or in an xterm under X. I must be missing something obvious :)
Cheers
Frank
- --
Change the world one loan at a time - visit Kiva.org to find out how
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)
iD8DBQFHFlzPzWG7ldLG6fIRAqaFAJ9Z2Z/k8nLcUd5cI+NUlTX/7XXVFACgvu6Z
hFwgcq+jvnlzqyZ1Bo11xRQ=
=xd6H
-----END PGP SIGNATURE-----
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
