gr_gettu.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 29 行

.gfunc gettextcursor
.if '&lang' eq 'C' .do begin
short _FAR _gettextcursor( void );
.do end
.el .do begin
integer*2 function _gettextcursor()
.do end
.gfuncend
.desc begin
The &func &routine returns the current cursor attribute, or shape.
The cursor shape is set with the
.kw _settextcursor
&routine..
See the
.kw _settextcursor
&routine for a description of the value returned by the &func &routine..
.desc end
.return begin
The &func &routine returns the current cursor shape
when successful; otherwise, (-1) is returned.
.return end
.see begin
.seelist &function. _settextcursor _displaycursor
.see end
.grexam begin eg_gettu.&langsuff
.grexam end
.class &grfun
.system