From 82b83828dc967111819a95798fc941dd7c4de880 Mon Sep 17 00:00:00 2001
From: gka <gka@opencascade.com>
Date: Mon, 3 Jul 2017 13:42:41 +0300
Subject: [PATCH] Commands.tcl for using checkprops in the tests

---
 src/DrawResources/CheckCommands.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/DrawResources/CheckCommands.tcl b/src/DrawResources/CheckCommands.tcl
index 668e59ef31..b198e18acb 100644
--- a/src/DrawResources/CheckCommands.tcl
+++ b/src/DrawResources/CheckCommands.tcl
@@ -359,8 +359,8 @@ proc checkfreebounds {shape ref_value args} {
 }
 
 help checkmaxtol {
-  Returns max tolerance of the shape and prints error message if specified
-  criteria are not satisfied.
+  Compare max tolerance of shape with reference value.
+  Command returns max tolerance of the shape.
 
   Use: checkmaxtol shape [options...]
 
-- 
2.39.5