-----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-----

Resending because of some changes in my results.

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
                  End;
       '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; The only keys I get or those in the getkeyeventchar section, i.e. '1'..'8' etc.

Cheers

Frank

---
Change the world one loan at a time - visit Kiva.org to find out how

Replace above line with "case GetKeyEventCode(k) Of". To compare with constants like kbdF1 and such, you have to extract event code from TKeyEvent value by GetKeyEventCode (somewhat analogous to GetKeyEventChar that you use below).

Bingo. That did it. Is it just me or is this keyboard stuff unnecessarily complicated under Linux ?

Thanks for spotting that!!

Cheers

Frank