[fpc-pascal] Keyboard unit under Linux

[Frank McCormick]

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