From 8f469cc38bf4a8403c3d9c9337c794f090a63fe7 Mon Sep 17 00:00:00 2001
From: kgv <kgv@opencascade.com>
Date: Tue, 18 Apr 2017 13:52:55 +0300
Subject: [PATCH] Add XCAFView to UDLIST

---
 adm/UDLIST      | 1 +
 adm/genproj.tcl | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/adm/UDLIST b/adm/UDLIST
index e4d798a7e1..4a961d8cd8 100644
--- a/adm/UDLIST
+++ b/adm/UDLIST
@@ -360,6 +360,7 @@ n XCAFApp
 n XCAFDimTolObjects
 n XCAFDoc
 n XCAFPrs
+n XCAFView
 n XSAlgo
 n XSControl
 n XmlMXCAFDoc
diff --git a/adm/genproj.tcl b/adm/genproj.tcl
index cf4de4e5ac..eb3155b272 100644
--- a/adm/genproj.tcl
+++ b/adm/genproj.tcl
@@ -1824,6 +1824,9 @@ proc osutils:tk:files { tkloc thePlatform } {
          "n" { set utyp "nocdlpack" }
          "x" { set utyp "executable" }
     }
+    if { $utyp == "" } {
+      puts "Error: '$loc' is undefined within UDLIST"
+    }
     if [array exists map] { unset map }
     osutils:tk:loadunit $loc map
     #puts " loc = $loc === > [array names map]"