fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-04-10 02:41 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/gtwvg/wvgclass.prg
  * contrib/gtwvg/wvgpaint.prg
    ! renamed public functions without namespace. INCOMPATIBLE.
      SetPaint()    -> wvg_SetPaint()
      GetPaint()    -> wvg_GetPaint()
      DelPaint()    -> wvg_DelPaint()
      PurgePaint()  -> wvg_PurgePaint()
      InsertPaint() -> wvg_InsertPaint()
This commit is contained in:
Viktor Szakats
2012-04-10 00:41:37 +00:00
parent 09c5c608bb
commit 1d7c1fa33a
3 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-04-10 02:41 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/gtwvg/wvgclass.prg
* contrib/gtwvg/wvgpaint.prg
! renamed public functions without namespace. INCOMPATIBLE.
SetPaint() -> wvg_SetPaint()
GetPaint() -> wvg_GetPaint()
DelPaint() -> wvg_DelPaint()
PurgePaint() -> wvg_PurgePaint()
InsertPaint() -> wvg_InsertPaint()
2012-04-09 21:33 UTC+0200 Viktor Szakats (harbour syenar.net)
* src/rtl/fscopy.c
+ using hb_file*() API instead of hb_fs*() API.

6
harbour/contrib/gtwvg/wvgclass.prg
View File

@@ -295,12 +295,12 @@ METHOD wvtDialog:Create()
FOR i := 1 to len( ::aObjects )
IF !empty( ::aObjects[ i ]:aPaint )
FOR j := 1 to len( ::aObjects[ i ]:aPaint )
SetPaint( ::cPaintBlockID, ::nPaintID++, ;
wvg_SetPaint( ::cPaintBlockID, ::nPaintID++, ;
::aObjects[ i ]:aPaint[ j,1 ], ::aObjects[ i ]:aPaint[ j,2 ] )
next
ENDIF
next
WvtSetPaint( GetPaint( ::cPaintBlockID ) )
WvtSetPaint( wvg_GetPaint( ::cPaintBlockID ) )
IF ascan( ::aObjects, {|o| o:lTabStop } ) > 0
::lTabStops := .t.
@@ -349,7 +349,7 @@ METHOD wvtDialog:Destroy()
SetKey( Wvt_SetMenuKeyEvent(), ::oldMenuBlock )
RestScreen( 0, 0, maxrow(), maxcol(), ::cScreen )
Wvt_RestScreen( 0, 0 ,maxrow(), maxcol(), ::aWvtScreen )
PurgePaint( ::cPaintBlockID )
wvg_PurgePaint( ::cPaintBlockID )
WvtSetPaint( ::aOldPnt )
Wvt_SetGui( ::lGui )

10
harbour/contrib/gtwvg/wvgpaint.prg
View File

@@ -160,7 +160,7 @@ function WvtSetPaint( a_ )
/*----------------------------------------------------------------------*/
function SetPaint( cID, nAction, xData, aAttr )
function wvg_SetPaint( cID, nAction, xData, aAttr )
local n, n1, oldData
if xData <> nil
@@ -183,7 +183,7 @@ function SetPaint( cID, nAction, xData, aAttr )
/*----------------------------------------------------------------------*/
function GetPaint( cID )
function wvg_GetPaint( cID )
local n
if ( n := ascan( t_paint_, { |e_| e_[ 1 ] == cID } ) ) > 0
@@ -194,7 +194,7 @@ function GetPaint( cID )
/*----------------------------------------------------------------------*/
function DelPaint( cID, nAction )
function wvg_DelPaint( cID, nAction )
local xData, n1, n
if ( n := ascan( t_paint_, { |e_| e_[ 1 ] == cID } ) ) > 0
@@ -208,7 +208,7 @@ function DelPaint( cID, nAction )
/*----------------------------------------------------------------------*/
function PurgePaint( cID,lDummy )
function wvg_PurgePaint( cID,lDummy )
local n, aPaint
DEFAULT lDummy TO .f.
@@ -227,7 +227,7 @@ function PurgePaint( cID,lDummy )
/*----------------------------------------------------------------------*/
function InsertPaint( cID, aPaint, lSet )
function wvg_InsertPaint( cID, aPaint, lSet )
local n
DEFAULT lSet TO .f.