Changeset a721096 in tol for tolbase/lib/toltk/sergraph.tcl

Timestamp:

Feb 17, 2009, 2:39:27 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

9946bee

Parents:

2d6fdc2

Message:

Fixed bug when drawing TimeSet markers in a Serie graph.

This functionality was lost when changing tol::info var syntax.

Fixes #611

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@602 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/sergraph.tcl (modified) (1 diff)

tolbase/lib/toltk/sergraph.tcl

@@ -1201 +1201 @@
     catch {eval $sergrp ticks add $lstXMarkers}
     foreach tms $lstXMarkers {
-      if {![catch {::tol::info var TimeSet $tms}]} {
+      if {![catch {::tol::info var [list TimeSet $tms]}]} {
         $g marker bind $tms <Enter> [list ::bayesGraph::WriteInfo $this "[mc Marker]X: $tms"]
         $g marker bind $tms <Leave> [list ::bayesGraph::WriteInfo $this ""]