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

minor formatting to prev

Browse Source
This commit is contained in:
Viktor Szakats
2008-10-16 06:46:55 +00:00
parent 992016b359
commit 31dbf52795
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/source/rtl/alert.prg
View File

@@ -87,12 +87,12 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay )
DO CASE
CASE ValType( xMessage ) $ "CM" ; cMessage := StrTran( xMessage, ";", Chr( 10 ) )
CASE hb_IsNumeric( xMessage ) ; cMessage := LTrim( Str( xMessage ) )
CASE hb_IsDate( xMessage ) ; cMessage := DToC( xMessage )
CASE hb_IsLogical( xMessage ) ; cMessage := iif( xMessage, ".T.", ".F." )
CASE hb_IsObject( xMessage ) ; cMessage := xMessage:className + " Object"
CASE hb_IsSymbol( xMessage ) ; cMessage := "@" + xMessage:Name + "()"
CASE hb_IsBlock( xMessage ) ; cMessage := "{|| ... }"
CASE hb_isNumeric( xMessage ) ; cMessage := LTrim( Str( xMessage ) )
CASE hb_isDate( xMessage ) ; cMessage := DToC( xMessage )
CASE hb_isLogical( xMessage ) ; cMessage := iif( xMessage, ".T.", ".F." )
CASE hb_isObject( xMessage ) ; cMessage := xMessage:className + " Object"
CASE hb_isSymbol( xMessage ) ; cMessage := "@" + xMessage:Name + "()"
CASE hb_isBlock( xMessage ) ; cMessage := "{|| ... }"
OTHERWISE ; cMessage := "NIL"
ENDCASE