Changeset 5029 for branches/uq/gui/scripts/tempgauge.tcl

Timestamp:

Feb 17, 2015, 5:49:36 PM (10 years ago)

Author:

mmh

Message:

puq integration snap

File:

• branches/uq/gui/scripts/tempgauge.tcl (modified) (2 diffs)

branches/uq/gui/scripts/tempgauge.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*- 
+# -*- mode: tcl; indent-tabs-mode: nil -*-
 # ----------------------------------------------------------------------
 #  COMPONENT: tempgauge - gauge for temperature values
@@ -73 +73 @@
 
     if {"" != $itk_option(-spectrum)} {
+        puts "TemperatureGauge"
         set color [$itk_option(-spectrum) get [value]]
+        puts "TemperatureGauge: color=$color"
         set frac [$itk_option(-spectrum) get -fraction [value]]
     } else {