Changeset 4562 for branches/1.3/gui/scripts/nanovisviewer.tcl

Timestamp:

Jul 17, 2014, 10:43:24 PM (10 years ago)

Author:

ldelgass

Message:

lighting fixes

File:

• branches/1.3/gui/scripts/nanovisviewer.tcl (modified) (1 diff)

branches/1.3/gui/scripts/nanovisviewer.tcl

@@ -1266 +1266 @@
         }
         "-light" {
+            # Other parts of the code use the light setting to 
+            # tell if the component settings have been initialized
+            if { ![info exists _settings($_current${what})] } {
+                InitComponentSettings $_current
+            }
             set _settings($_current${what}) $_settings($what)
             set val $_settings($what)