diff options
| author | joye <joye> | 2014-07-03 20:08:15 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-07-03 20:08:15 (GMT) |
| commit | 4f7a2ece9c889c3e6ac5377f39a8757827e5323c (patch) | |
| tree | 21e67340a0b893fd7c09bde8a456304938b6dcc1 | |
| parent | 8f5b98c9ae0abae3475332a53e5fc1a383537da2 (diff) | |
| download | blt-4f7a2ece9c889c3e6ac5377f39a8757827e5323c.zip blt-4f7a2ece9c889c3e6ac5377f39a8757827e5323c.tar.gz blt-4f7a2ece9c889c3e6ac5377f39a8757827e5323c.tar.bz2 | |
*** empty log message ***
| -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 |