Module: _getmsg Library: Clipper 5.3
This module contains the following functions and procedures:
Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally
performed based on the contents of STD.CH and other .CH files
#include "common.ch"
#include "inkey.ch"
//---------------------------------------------------[top]-
// GETHITTEST( Arg1, Arg2, Arg3 )
//
function GETHITTEST( Arg1, Arg2, Arg3 )
local Local1 := 0
if ( ISOBJECT( Arg3[ 11 ] ) )
Local1 := Arg3[ 11 ]:hittest(Arg1, Arg2)
else
if ( Arg3:row() != Arg1 )
elseif ( Arg3:col() > Arg2 )
elseif ( Arg3:col() + Arg3[ 16 ] > Arg2 )
Local1 := -2049
endif
do case
case Local1 != 0
case Arg1 != Arg3[ 14 ]
case Arg2 < Arg3[ 13 ]
case Arg2 < Arg3[ 13 ] + Len(Arg3[ 12 ])
Local1 := -1025
endcase
endif
return Local1
//---------------------------------------------------[top]-
// GETNEW( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6 )
//
function GETNEW( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6 )
local Local1[16]
default Arg4 to ""
default Arg6 to .T.
__toget(Local1)
Local1:row(Arg1)
Local1:col(Arg2)
Local1[ 1 ] := Arg3
Local1[ 7 ] := Arg4
Local1[ 3 ] := Arg5
Local1[ 12 ] := ""
Local1[ 15 ] := ""
Local1[ 14 ] := 0
Local1[ 13 ] := 0
Local1:colorspec(Arg6)
return Local1
//---------------------------------------------------[top]-
// __GETBADDA
//
function __GETBADDA
local Local1
if ( ( Local1 := qself():untransfor(), Len(qself()) == 19 .AND. ;
qself():type() == "D" .AND. Local1 == CToD("") .AND. !( ;
qself()[ 18 ] == Transform(Local1, qself()[ 3 ]) ) ) )
return .T.
endif
return .F.
//---------------------------------------------------[top]-
// __GETBUFFE
//
function __GETBUFFE
return iif( Len(qself()) == 19, qself()[ 18 ], Nil )
//---------------------------------------------------[top]-
// __GETDWLEF
//
function __GETDWLEF
qself():wordleft()
qself():delwordrig()
return qself()
//---------------------------------------------------[top]-
// __GETHASFO
//
function __GETHASFO
return Len(qself()) == 19
//---------------------------------------------------[top]-
// __GETHITTE( Arg1, Arg2 )
//
function __GETHITTE( Arg1, Arg2 )
return gethittest(Arg1, Arg2, qself())
//---------------------------------------------------[top]-
// __GETORIGI
//
function __GETORIGI
return iif( Len(qself()) == 19, qself()[ 19 ], Nil )
//---------------------------------------------------[top]-
// __GETSETBL( Arg1 )
//
function __GETSETBL( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 1 ] := Arg1
endif
return qself()[ 1 ]
//---------------------------------------------------[top]-
// __GETSETBU( Arg1 )
//
function __GETSETBU( Arg1 )
return iif( Len(qself()) == 19, qself()[ 18 ] := Arg1, Arg1 )
//---------------------------------------------------[top]-
// __GETSETCA( Arg1 )
//
function __GETSETCA( Arg1 )
if ( PCount() == 1 )
qself()[ 6 ] := Arg1
endif
return qself()[ 6 ]
//---------------------------------------------------[top]-
// __GETSETCC( Arg1 )
//
function __GETSETCC( Arg1 )
if ( ISNUMBER( Arg1 ) )
qself()[ 13 ] := Int(Arg1)
endif
return qself()[ 13 ]
//---------------------------------------------------[top]-
// __GETSETCN( Arg1 )
//
function __GETSETCN( Arg1 )
do case
case PCount() != 1
case ISNIL( Arg1 )
qself()[ 11 ] := Arg1
case !( ISOBJECT( Arg1 ) )
case ascan({"CHECKBOX", "LISTBOX", "PUSHBUTTON", "RADIOGROUP", ;
"TBROWSE"}, Arg1:classname()) > 0
qself()[ 11 ] := Arg1
endcase
return qself()[ 11 ]
//---------------------------------------------------[top]-
// __GETSETCP( Arg1 )
//
function __GETSETCP( Arg1 )
if ( ISCHARACTER( Arg1 ) )
qself()[ 12 ] := Arg1
endif
return qself()[ 12 ]
//---------------------------------------------------[top]-
// __GETSETCR( Arg1 )
//
function __GETSETCR( Arg1 )
if ( ISNUMBER( Arg1 ) )
qself()[ 14 ] := Int(Arg1)
endif
return qself()[ 14 ]
//---------------------------------------------------[top]-
// __GETSETEX( Arg1 )
//
function __GETSETEX( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 9 ] := Arg1
endif
return qself()[ 9 ]
//---------------------------------------------------[top]-
// __GETSETME( Arg1 )
//
function __GETSETME( Arg1 )
if ( ISCHARACTER( Arg1 ) )
qself()[ 15 ] := Arg1
endif
return qself()[ 15 ]
//---------------------------------------------------[top]-
// __GETSETNA( Arg1 )
//
function __GETSETNA( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 7 ] := Arg1
endif
return qself()[ 7 ]
//---------------------------------------------------[top]-
// __GETSETPB( Arg1 )
//
function __GETSETPB( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 4 ] := Arg1
endif
return qself()[ 4 ]
//---------------------------------------------------[top]-
// __GETSETPI( Arg1 )
//
function __GETSETPI( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 3 ] := Arg1
endif
return qself()[ 3 ]
//---------------------------------------------------[top]-
// __GETSETPR( Arg1 )
//
function __GETSETPR( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 5 ] := Arg1
endif
return qself()[ 5 ]
//---------------------------------------------------[top]-
// __GETSETRE( Arg1 )
//
function __GETSETRE( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 10 ] := Arg1
endif
return qself()[ 10 ]
//---------------------------------------------------[top]-
// __GETSETSU( Arg1 )
//
function __GETSETSU( Arg1 )
if ( !( ISNIL( Arg1 ) ) )
qself()[ 2 ] := Arg1
endif
return qself()[ 2 ]
//---------------------------------------------------[top]-
// __GETTODEC
//
function __GETTODEC
local Local1
if ( Len(qself()) == 19 )
if ( qself():clear() )
qself():delend()
endif
qself():reform()
qself():pos(qself():decpos())
qself():changed(.T.)
if ( qself():untransfor() == 0 .AND. qself():minus() )
qself():backspace()
qself():overstrike("-")
endif
qself():display()
endif
return qself()
//---------------------------------------------------[top]-
// __GETUNDO
//
function __GETUNDO
if ( Len(qself()) == 19 )
qself():varput(qself()[ 19 ])
qself():reset()
qself():changed(.F.)
endif
return qself()
//---EOF
Use your Browser's BACK button to return to Function Listings