Oh sorry
Here is the top of that code:
=========================================================
#include "dev.ch"
#include "INKEY.CH"
#include "SETCURS.CH"
#include "SET.CH"
#include "ACHOICE.CH"
#include "COMMON.CH"
#ifdef __XPP__
#include 'appEvent.ch'
#endif
#ifdef __WVT__
#include 'sy_wvt.ch'
#endif
//----------------------------------------------------------------------//
#define K_MOVING 1001
#define K_LEFT_DOWN 1002
#define K_LEFT_DBLCLICK 1006
#define K_LEFT_UP 1003
#define K_RIGHT_DOWN 1004
#define K_RIGHT_DBLCLICK 1007
#define K_RIGHT_UP 1005
//----------------------------------------------------------------------//
#define INRANGE( xLo, xVal, xHi ) ( ( xVal >= xLo ) .and. ( xVal <= xHi ) )
#define BETWEEN( xLo, xVal, xHi ) min( max( xLo, xVal ), xHi )
//----------------------------------------------------------------------//
function AChoice( nTop, nLft, nBtm, nRgt, acItems, xSelect, cUserFunc, ;
nPos, nHiLytRow, oWin, nLastKey, cargo_ )
local nChoice, oChoice
local crs := SetCursor( 0 )
oChoice := AChoiceNew():New( nTop, nLft, nBtm, nRgt, acItems, xSelect, ;
cUserFunc, ;
nPos, nHiLytRow, oWin, nLastKey, cargo_ )
oChoice:Exe()
nChoice := oChoice:nPos
nLastKey := oChoice:nKey
oChoice:Destroy()
SetCursor( crs )
return ( nChoice )
//----------------------------------------------------------------------//
-----
enjoy hbIDEing...
Pritpal Bedi
_a_student_of_software_analysis_&_design_
--
View this message in context:
http://n2.nabble.com/bug-ACHOICE-tp4524977p4526137.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
