fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-07-10 22:05 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* 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.)
This commit is contained in:
Viktor Szakats
2011-07-10 20:06:57 +00:00
parent d37041c7aa
commit e25567fd0d
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

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

2
harbour/examples/gtwvw/tests/wvwtest9.prg
View File

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