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