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

2008-04-20 13:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/tobject.prg
    ! fixed the problem with SET EXACT ON I introduced recently by mistake

  * harbour/contrib/xhb/txml.prg
  * harbour/contrib/hbw32/w32_tole.prg
  * harbour/contrib/hbw32/w32_tprn.prg
    * replaced some = use for assign or comparison with := or == when
      it will have the same meaning.
      Looks like some parts of TIP library will not work with SET EXACT ON
      and should be updated.
This commit is contained in:
Przemyslaw Czerpak
2008-04-20 11:25:52 +00:00
parent 507b3d18ac
commit 317fb99c32
5 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -8,6 +8,18 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-04-20 13:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/tobject.prg
! fixed the problem with SET EXACT ON I introduced recently by mistake
* harbour/contrib/xhb/txml.prg
* harbour/contrib/hbw32/w32_tole.prg
* harbour/contrib/hbw32/w32_tprn.prg
* replaced some = use for assign or comparison with := or == when
it will have the same meaning.
Looks like some parts of TIP library will not work with SET EXACT ON
and should be updated.
2008-04-18 13:06 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/gtwvg/wvtcore.c
! fixed missing ; in last modification

6
harbour/contrib/hbw32/w32_tole.prg
View File

@@ -216,7 +216,7 @@ METHOD New( uObj, cClass ) CLASS TOleAuto
RETURN HB_ExecFromArray( Self, "_New", HB_aParams() )
ENDIF
IF ValType( uObj ) = 'C'
IF ValType( uObj ) == 'C'
::hObj := CreateOleObject( uObj )
IF OleError() != 0
@@ -252,7 +252,7 @@ METHOD New( uObj, cClass ) CLASS TOleAuto
ENDIF
::cClassName := uObj
ELSEIF ValType( uObj ) = 'N'
ELSEIF ValType( uObj ) == 'N'
OleAddRef( uObj )
::hObj := uObj
@@ -298,7 +298,7 @@ METHOD GetActiveObject( cClass ) CLASS TOleAuto
LOCAL oErr
IF ValType( cClass ) = 'C'
IF ValType( cClass ) == 'C'
::hObj := GetOleObject( cClass )
IF OleError() != 0

6
harbour/contrib/hbw32/w32_tprn.prg
View File

@@ -152,7 +152,7 @@ CLASS WIN32PRN
METHOD StartDoc(cDocame) // Calls StartPage()
METHOD EndDoc(lAbortDoc) // Calls EndPage() if lAbortDoc not .T.
METHOD StartPage()
METHOD EndPage(lStartNewPage) // If lStartNewPage = .T. then StartPage() is called for the next page of output
METHOD EndPage(lStartNewPage) // If lStartNewPage == .T. then StartPage() is called for the next page of output
METHOD NewLine()
METHOD NewPage()
METHOD SetFont(cFontName, nPointSize, nWidth, nBold, lUnderline, lItalic, nCharSet)
@@ -178,7 +178,7 @@ CLASS WIN32PRN
::TextColor:=nClrText, ::BkColor:=nClrPane, ::TextAlign:=nAlign,;
win32_SetColor( ::hPrinterDC, nClrText, nClrPane, nAlign) )
METHOD TextOut(cString, lNewLine, lUpdatePosX, nAlign) // nAlign : 0 = left, 1 = right, 2 = centered
METHOD TextOut(cString, lNewLine, lUpdatePosX, nAlign) // nAlign : 0 == left, 1 == right, 2 == centered
METHOD TextOutAt(nPosX,nPosY, cString, lNewLine, lUpdatePosX, nAlign) // **WARNING** : (Col,Row) _NOT_ (Row,Col)
@@ -212,7 +212,7 @@ CLASS WIN32PRN
nWidth, nBold, lUnderLine, lItalic, lNewLine,; // in specified font and color.
lUpdatePosX, nColor, nAlign ) // Restore original font and colour
// after printing.
METHOD SetBkMode( nMode ) INLINE win32_SetBkMode( ::hPrinterDc, nMode ) // OPAQUE= 2 or TRANSPARENT= 1
METHOD SetBkMode( nMode ) INLINE win32_SetBkMode( ::hPrinterDc, nMode ) // OPAQUE == 2 or TRANSPARENT == 1
// Set Background mode
METHOD GetDeviceCaps( nCaps ) INLINE win32_GetDeviceCaps( ::hPrinterDC, nCaps)

6
harbour/contrib/xhb/txml.prg
View File

@@ -361,14 +361,14 @@ METHOD New( xElem, nStyle ) CLASS TXmlDocument
ELSE
SWITCH ValType( xElem )
CASE 'O'
::oRoot = xElem
EXIT
::oRoot := xElem
EXIT
CASE 'N'
CASE 'C'
::oRoot := TXmlNode():New( HBXML_TYPE_DOCUMENT )
::Read( xElem, nStyle )
END
ENDSWITCH
ENDIF
RETURN Self

2
harbour/source/rtl/tobject.prg
View File

@@ -100,7 +100,7 @@ FUNCTION HBObject()
s_oClass:SetOnError( @HBObject_DftonError() )
s_oClass:AddInline( "MSGNOTFOUND" , {| Self, cMsg | ::Error( "Message not found", __OBJGETCLSNAME( Self ), cMsg, IIF( cMsg="_", 1005, 1004 ) ) }, HB_OO_CLSTP_EXPORTED )
s_oClass:AddInline( "MSGNOTFOUND" , {| Self, cMsg | ::Error( "Message not found", __OBJGETCLSNAME( Self ), cMsg, IIF( Left( cMsg, 1 ) == "_", 1005, 1004 ) ) }, HB_OO_CLSTP_EXPORTED )
/*s_oClass:AddMultiData(,,HB_OO_CLSTP_EXPORTED,{"CLASS"}, .F. )*/