Changeset 3186 for trunk/gui/scripts/sequenceresult.tcl

Timestamp:

Oct 18, 2012, 9:03:17 PM (12 years ago)

Author:

mmc

Message:

Added the Rappture::Logger facility and updated many (not all)
of the input/output controls to use it. This logs user activity
so you can see how they are interacting with the widgets during
the course of a session. If the RAPPTURE_LOG variable is set to
a directory (like /tmp), then Rappture creates a unique log file
in this directory for each tool session and writes logging info
into that file. The middleware ensures that the file is write-only
so that private activity information doesn't get out to people who
try to snoop around.

File:

• trunk/gui/scripts/sequenceresult.tcl (modified) (7 diffs)

trunk/gui/scripts/sequenceresult.tcl

@@ -43 +43 @@
     public method download {option args}
 
-    public method play {}
-    public method pause {}
+    public method play {{why -program}}
+    public method pause {{why -program}}
     public method goto {{newval ""}}
 
@@ -87 +87 @@
         button $itk_component(player).play \
             -bitmap [Rappture::icon play] \
-            -command [itcl::code $this play]
+            -command [itcl::code $this play -user]
     }
     grid $itk_component(play) -row 0 -rowspan 2 -column 0 \
@@ -103 +103 @@
     grid $itk_component(dial) -row 1 -column 1 -sticky ew
     bind $itk_component(dial) <<Value>> [itcl::code $this _fixValue]
+
+    # use this command for logging "goto" interactions
+    $itk_component(dial) configure -interactcommand \
+        [format {Rappture::Logger::log sequence goto [%s get -format label current]} $itk_component(dial)]
 
     itk_component add info {
@@ -338 +342 @@
 
 # ----------------------------------------------------------------------
-# USAGE: play
+# USAGE: play ?-user|-program?
 #
 # Invoked when the user hits the "play" button to play the current
 # sequence of frames as a movie.
 # ----------------------------------------------------------------------
-itcl::body Rappture::SequenceResult::play {} {
+itcl::body Rappture::SequenceResult::play {{why -program}} {
     if { [llength $_indices] == 0 } {
         return;                         # No frames (i.e. no data).
     }
+
+    if {$why eq "-user"} {
+        Rappture::Logger::log sequence play -loop $_play(loop) -speed $_play(speed)
+    }
+
     # Stop any existing animation.
     pause
@@ -358 +367 @@
     $itk_component(play) configure \
         -bitmap [Rappture::icon pause] \
-        -command [itcl::code $this pause]
+        -command [itcl::code $this pause -user]
 
     global readyForNextFrame 
@@ -368 +377 @@
 
 # ----------------------------------------------------------------------
-# USAGE: pause
+# USAGE: pause ?-user|-program?
 #
 # Invoked when the user hits the "pause" button to stop playing the
 # current sequence of frames as a movie.
 # ----------------------------------------------------------------------
-itcl::body Rappture::SequenceResult::pause {} {
+itcl::body Rappture::SequenceResult::pause {{why -program}} {
+    if {$why eq "-user"} {
+        Rappture::Logger::log sequence pause
+    }
+
     if {"" != $_afterId} {
         catch {after cancel $_afterId}
@@ -387 +400 @@
         $itk_component(play) configure \
             -bitmap [Rappture::icon play] \
-            -command [itcl::code $this play]
+            -command [itcl::code $this play -user]
     }
 }