diff options
| -rw-r--r-- | src/bltGrMarkerOption.C | 4 | ||||
| -rw-r--r-- | tests/polygonmarker.tcl | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/bltGrMarkerOption.C b/src/bltGrMarkerOption.C index 7797bc4..c820cda 100644 --- a/src/bltGrMarkerOption.C +++ b/src/bltGrMarkerOption.C @@ -101,7 +101,7 @@ static Tcl_Obj* CoordsGetProc(ClientData clientData, Tk_Window tkwin, return Tcl_NewListObj(0, NULL); int cnt = coordsPtr->num*2; - Tcl_Obj** ll = (Tcl_Obj**)calloc(cnt, sizeof(Tcl_Obj*)); + Tcl_Obj** ll = new Tcl_Obj*[cnt]; Point2d* pp = coordsPtr->points; for (int ii=0; ii<cnt; pp++) { @@ -110,7 +110,7 @@ static Tcl_Obj* CoordsGetProc(ClientData clientData, Tk_Window tkwin, } Tcl_Obj* listObjPtr = Tcl_NewListObj(cnt, ll); - free(ll); + delete [] ll; return listObjPtr; } diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl index e8e63b3..e562821 100644 --- a/tests/polygonmarker.tcl +++ b/tests/polygonmarker.tcl @@ -8,7 +8,6 @@ set mm [$graph marker create polygon tt -element data2 \ $graph element configure data1 -hide yes echo "Testing Polygon Marker..." -return bltTest3 $graph marker $mm -bindtags {aa} 0 bltTest3 $graph marker $mm -cap round $dops |