2012-06-04 17:21 UTC+0200 Viktor Szakats (harbour syenar.net)
* src/debug/dbgbrwsr.prg
* src/debug/dbgtarr.prg
* src/debug/dbgthsh.prg
* src/debug/dbgtinp.prg
* src/debug/dbgtmenu.prg
* src/debug/dbgtobj.prg
* src/debug/dbgwa.prg
* src/debug/debugger.prg
* src/rdd/dbstruxu.prg
* src/rdd/dbtotal.prg
* src/rdd/hbsix/sxcompat.prg
* src/rdd/hbsix/sxini.prg
* src/rdd/hbsix/sxtrig.prg
* src/rdd/rddord.prg
* src/rdd/rddordu.prg
* src/rdd/usrrdd/rdds/arrayrdd.prg
* src/rdd/usrrdd/rdds/hscdx.prg
* src/rdd/usrrdd/rdds/logrdd.prg
* src/rdd/usrrdd/rdds/rlcdx.prg
* src/rtl/achoice.prg
* src/rtl/adir.prg
* src/rtl/alert.prg
* src/rtl/checkbox.prg
* src/rtl/color53.prg
* src/rtl/dbedit.prg
* src/rtl/einstv52.prg
* src/rtl/einstvar.prg
* src/rtl/errsys.prg
* src/rtl/fieldbl.prg
* src/rtl/getsys.prg
* src/rtl/getsys53.prg
* src/rtl/gui.prg
* src/rtl/hbdoc.prg
* src/rtl/hbfilehi.prg
* src/rtl/hbi18n2.prg
* src/rtl/hbini.prg
* src/rtl/libname.prg
* src/rtl/listbox.prg
* src/rtl/memoedit.prg
* src/rtl/memvarbl.prg
* src/rtl/memvarhb.prg
* src/rtl/menusys.prg
* src/rtl/menuto.prg
* src/rtl/objfunc.prg
* src/rtl/profiler.prg
* src/rtl/pushbtn.prg
* src/rtl/radiobtn.prg
* src/rtl/radiogrp.prg
* src/rtl/readvar.prg
* src/rtl/scrollbr.prg
* src/rtl/setfunc.prg
* src/rtl/tbcolumn.prg
* src/rtl/tbrowse.prg
* src/rtl/tbrowsys.prg
* src/rtl/tclass.prg
* src/rtl/teditor.prg
* src/rtl/tget.prg
* src/rtl/tgetlist.prg
* src/rtl/tmenuitm.prg
* src/rtl/tmenusys.prg
* src/rtl/tobject.prg
* src/rtl/tpersist.prg
* src/rtl/tpopup.prg
* src/rtl/ttopbar.prg
* src/rtl/typefile.prg
* tests/hbdoctst.prg
* utils/hbmk2/hbmk2.prg
* IS*() macros converted to HB_IS*() function calls.
(using full uppercase to make them stand out)
% deleted '#include "common.ch"' where possible
This commit is contained in:
@@ -7,10 +7,8 @@
|
||||
* The Debugger
|
||||
*
|
||||
* Copyright 1999 Antonio Linares <alinares@fivetechsoft.com>
|
||||
* www - http://harbour-project.org
|
||||
*
|
||||
* Copyright 2003-2006 Phil Krylov <phil@newstar.rinet.ru>
|
||||
* www - http://www.xharbour.org
|
||||
* www - http://harbour-project.org
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
@@ -1194,7 +1192,7 @@ METHOD GetExprValue( xExpr, lValid ) CLASS HBDebugger
|
||||
ENDIF
|
||||
RECOVER USING oErr
|
||||
xResult := oErr:operation + ": " + oErr:description
|
||||
IF ISARRAY( oErr:args )
|
||||
IF HB_ISARRAY( oErr:args )
|
||||
xResult += "; arguments:"
|
||||
AEval( oErr:args, { | x | xResult += " " + AllTrim( __dbgCStr( x ) ) } )
|
||||
ENDIF
|
||||
@@ -3306,7 +3304,7 @@ FUNCTION __dbgInput( nRow, nCol, nWidth, cValue, bValid, cColor, nSize )
|
||||
LOCAL nKey
|
||||
LOCAL oGet
|
||||
|
||||
IF !ISNUMBER( nWidth )
|
||||
IF !HB_ISNUMERIC( nWidth )
|
||||
nWidth := Len( cValue )
|
||||
ENDIF
|
||||
oGet := HbDbInput():new( nRow, nCol, nWidth, cValue, cColor, nSize )
|
||||
@@ -3340,7 +3338,7 @@ FUNCTION __dbgAchoice( nTop, nLeft, nBottom, nRight, aItems, cColors )
|
||||
LOCAL nLen
|
||||
|
||||
oBrw := HBDbBrowser():New( nTop, nLeft, nBottom, nRight )
|
||||
oBrw:colorSpec := IIF( ISCHARACTER( cColors ), cColors, SetColor() )
|
||||
oBrw:colorSpec := IIF( HB_ISSTRING( cColors ), cColors, SetColor() )
|
||||
nLen := nRight - nLeft + 1
|
||||
nRow := 1
|
||||
oCol := HBDbColumnNew( "", {|| PadR( aItems[ nRow ], nLen ) } )
|
||||
|
||||
Reference in New Issue
Block a user