Compatibility: Version 6.7.x and 6.8.x

Here is a simple method to remove the contents of a 4D Write area:

` Project method: WR_ClearArea
` $1 - Pointer to a 4D Write area
C_POINTER($1)
WR EXECUTE COMMAND($1->;wr cmd select all)
WR DELETE SELECTION($1->)