+# =================== OCAF ======================
+# Naming
+#
+# Testing purpose: Naming selection mechanism
+#
+# Test case: E4 (ShapeOrientation is not used)
+# 1. Create box B2
+# 2. Create cylinder Cyl
+# 3. Translate Cyl along XYZ
+# 4. CS = Cut (B2, Cyl)
+# 5. Make selection for all sub-shapes
+# 6. Modify B2
+# 7. Recompute modeling functions
+# 8. Recompute selections
+# ===============================================
#pload FULL
-#source dftree.tcl
-#source DDataStd_TreeBrowser.tcl
+
erase
Close D
unset D
NewDocument D MDTV-Standard
+
AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
#1 Create Box
erase
GetShape D $CS:2 S
don S
+
+#8 Recompute selections
SolveFlatFrom D $SL
NewCommand D