From e25567fd0d689011d6cfdef45b766966da08bfb1 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 10 Jul 2011 20:06:57 +0000 Subject: [PATCH] 2011-07-10 22:05 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * examples/gtwvw/tests/wvwtest9.prg ! fixed bad code: inkey()!=Chr(0) -> inkey()!=0 (perfect example why certain "extensions" are not a good idea from a technical standpoint.) --- harbour/ChangeLog | 7 +++++++ harbour/examples/gtwvw/tests/wvwtest9.prg | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b1e59b484c..6eba75fcfa 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,13 @@ The license applies to all entries newer than 2009-04-28. */ +2011-07-10 22:05 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * examples/gtwvw/tests/wvwtest9.prg + ! fixed bad code: + inkey()!=Chr(0) -> inkey()!=0 + (perfect example why certain "extensions" are not a good idea + from a technical standpoint.) + 2011-07-08 15:50 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * package/winuni/HARBOUR_README_MINGW ! updated tdm link diff --git a/harbour/examples/gtwvw/tests/wvwtest9.prg b/harbour/examples/gtwvw/tests/wvwtest9.prg index b2f7abd245..027aec6c26 100644 --- a/harbour/examples/gtwvw/tests/wvwtest9.prg +++ b/harbour/examples/gtwvw/tests/wvwtest9.prg @@ -377,7 +377,7 @@ local lEchoing := .f. CLS ?? "Press Ctrl+E to toggle between echoing what you type to previous window" ? - do while inkey()<>chr(0); enddo //clear typeahead + do while inkey()!=0; enddo //clear typeahead ch := inkey(0) do while !(ch == K_ESC) if ch==K_ENTER