From: ma haidong <13501108114@163.com>
Date: Mon, 9 Dec 2019 17:00:59 +0000 (+0800)
Subject: 0031231: Samples - the command "donl" in ModelingDemo.tcl should be "donly"
X-Git-Tag: V7_5_0_beta~322
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=1c2ddf56124b607d103600eac4b3f0127ccc96b5;p=occt-copy.git

0031231: Samples - the command "donl" in ModelingDemo.tcl should be "donly"

Fixed misprint in Tcl sample script.
---

diff --git a/samples/tcl/ModelingDemo.tcl b/samples/tcl/ModelingDemo.tcl
index 53f313bf52..92769ec407 100644
--- a/samples/tcl/ModelingDemo.tcl
+++ b/samples/tcl/ModelingDemo.tcl
@@ -86,7 +86,7 @@ sage " Fusion of this prism with the original part "
 sage "    fuse result rr result"
 sage " "
 fuse result rr result
-donl result
+donly result
 nexplode result f
 erase result
 fit
@@ -108,13 +108,13 @@ ttranslate cyl cyl 0 7.5 0
 sage " Display the Shape on Hidden Line Mode "
 sage "   hlr hid r"
 sage ""
-donl r
+donly r
 hlr hid r
 sage " Display the Shape on HLR Mode "
 sage "   hlr nohid r"
 sage "   hlr hlr r"
 sage ""
-donl r
+donly r
 hlr nohid r
 hlr hlr r
 sage "Demo completed"