0027338: Minor corrections in Tcl samples and documentation
[occt.git] / samples / tcl / DataExchangeDemo.tcl
index 57d2268..b37cd83 100644 (file)
@@ -44,7 +44,7 @@ if { [winfo exists .h ] } {
 set ddir .
 if { [info exists env(CSF_OCCTDataPath)] } {
     set ddir [file join $env(CSF_OCCTDataPath) occ]
-} else if { [info exists env(CASROOT)] } {
+} elseif { [info exists env(CASROOT)] } {
     set ddir [file join $env(CASROOT) data occ]
 }