Changeset 3305 for branches/nanovis2/gui/scripts/controls.tcl

Timestamp:

Feb 18, 2013, 2:32:14 PM (11 years ago)

Author:

ldelgass

Message:

sync with trunk

Location:

branches/nanovis2

Files:

• . (modified) (1 prop)
• gui/scripts/controls.tcl (modified) (8 diffs)

branches/nanovis2/gui/scripts/controls.tcl

@@ -7 +7 @@
 # ======================================================================
 #  AUTHOR:  Michael McLennan, Purdue University
-#  Copyright (c) 2004-2005  Purdue Research Foundation
+#  Copyright (c) 2004-2012  HUBzero Foundation, LLC
 #
 #  See the file "license.terms" for information on usage and
@@ -38 +38 @@
     protected method _controlValue {path {units ""}}
     protected method _formatLabel {str}
-    protected method _changeTabs {}
+    protected method _changeTabs {{why -program}}
     protected method _resize {}
 
@@ -74 +74 @@
         -side top -tearoff 0 -highlightthickness 0 \
         -selectbackground $itk_option(-background) \
-        -selectcommand [itcl::code $this _changeTabs]]
+        -selectcommand [itcl::code $this _changeTabs -user]]
 
     set _frame [frame $f.inner]
@@ -284 +284 @@
         set tip [$w tooltip]
         if {"" != $tip} {
-            Rappture::Tooltip::for $w $tip
+            Rappture::Tooltip::for $w $tip -log $path
 
             # add the tooltip to the label too, if there is one
             if {$_name2info($name-label) != ""} {
-                Rappture::Tooltip::for $_name2info($name-label) $tip
+                Rappture::Tooltip::for $_name2info($name-label) $tip -log $path
             }
         }
@@ -711 +711 @@
 
 # ----------------------------------------------------------------------
-# USAGE: _changeTabs
+# USAGE: _changeTabs ?-user|-program?
 #
 # Used internally to change tabs when the user clicks on a tab
@@ -718 +718 @@
 # the groups.
 # ----------------------------------------------------------------------
-itcl::body Rappture::Controls::_changeTabs {} {
+itcl::body Rappture::Controls::_changeTabs {{why -program}} {
     set i [$_tabs index select]
     # we use _showing here instead of _controls because sometimes tabs
@@ -724 +724 @@
     # _showing, even if tabs are disabled.
     set name [lindex $_showing $i]
-    if {"" != $name} {
+    if {$name ne ""} {
         foreach w [grid slaves $_frame] {
             grid forget $w
@@ -731 +731 @@
         set wv $_name2info($name-value)
         grid $wv -row 0 -column 0 -sticky new
+
+        if {$why eq "-user"} {
+            Rappture::Logger::log group $_name2info($name-path)
+        }
     }
 }