From 6ff1f9d0923d45c269cc228bfa28af6607376e88 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 10 Oct 2001 20:14:09 +0000
Subject: [PATCH] + Now actually demonstrates GetKeyEventCode

---
 docs/kbdex/ex2.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/docs/kbdex/ex2.pp b/docs/kbdex/ex2.pp
index 01cd53f29e..cb5d12fddf 100644
--- a/docs/kbdex/ex2.pp
+++ b/docs/kbdex/ex2.pp
@@ -16,7 +16,10 @@ begin
     If (GetKeyEventFlags(K)<>KbfnKey) then
       Writeln('Not a function key')
     else  
-      Writeln('Got key : ',KeyEventToString(K));
+      begin
+      Write('Got key (',GetKeyEventCode(K));
+      Writeln(') : ',KeyEventToString(K));
+      end;
   Until (GetKeyEventChar(K)='q');
   DoneKeyboard;
 end.