0023273: Avoid failures due to datadir commend when data files are not present

[occt.git] / src / DrawResources / CURVES.tcl

diff --git a/src/DrawResources/CURVES.tcl b/src/DrawResources/CURVES.tcl
index 0d99966..40b281e 100755 (executable)
--- a/src/DrawResources/CURVES.tcl
+++ b/src/DrawResources/CURVES.tcl
@@ -15,6 +15,8 @@
 # purpose or non-infringement. Please see the License for the specific terms
 # and conditions governing the rights and limitations under the License.
 
+if { [info commands addmenu] == "" } { return }
+
 addmenu Curves "Line"    {
     dialbox line name l origin {0 0 0} direction {1 0 0}
 }