697590d18c
* contrib/libnf/Makefile
* contrib/libnf/makefile.vc
* contrib/libnf/makefile.bc
- contrib/libnf/round.prg
+ contrib/libnf/ftround.prg
- contrib/libnf/test.prg
+ contrib/libnf/test
+ contrib/libnf/test/test.prg
! Rename one file in NFLIB to don't clash with core Harbour.
* Moved test file to a separate test dir.
* source/debug/dbgtobj.prg
! Fixed an RTE when browsing subarrays in object monitor.
(from xhb by Phil Krylov)
32 lines
446 B
Plaintext
32 lines
446 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
function main()
|
|
local nver,nmar,ntype,nir,ppp
|
|
|
|
nmar:=FT_MVERSION(@nver,@ntype,@nir)
|
|
ppp:=nmar+nver
|
|
? str(nmar,2,0),'.',str(nver,2,0)
|
|
? ppp/100
|
|
inkey(0)
|
|
? 'is mouse on', ft_mreset()
|
|
inkey(0)
|
|
? FT_MSHOWCRS()
|
|
inkey(0)
|
|
? ft_mxlimit(0,8*maxcol())
|
|
inkey(0)
|
|
? ft_mylimit(0,8*maxrow())
|
|
inkey(0)
|
|
|
|
do while lastkey()<>27
|
|
? 'mouse row is',ft_mgetx()
|
|
? 'mouse col is',ft_mgety()
|
|
if lastkey()==27
|
|
exit
|
|
endif
|
|
enddo
|
|
FT_MHIDECRS()
|
|
return nil
|
|
|