- Timestamp:
- Apr 13, 2015, 6:11:08 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r5205 r5207 74 74 public method get {args} 75 75 public method isconnected {} 76 public method limits { tf }77 76 public method parameters {title args} { 78 77 # do nothing … … 141 140 ;# to volumes in the server 142 141 private variable _recvdDatasets; # list of data objs to send to server 143 private variable _style2datasets; # maps tf back to list of144 # dataobj-components using the tf.145 142 146 143 private variable _reset 1; # Connection to server has been reset. … … 1431 1428 -command [itcl::code $this updateTransferFunctions]] 1432 1429 } 1433 lappend _style2datasets($cname) $tag1434 1430 return $cname 1435 1431 } … … 1602 1598 $_dispatcher event -idle !send_transfunc 1603 1599 } 1604 1605 itcl::body Rappture::NanovisViewer::limits { cname } {1606 set _limits(min) 0.01607 set _limits(max) 1.01608 if { ![info exists _style2datasets($cname)] } {1609 return [array get _limits]1610 }1611 set min ""; set max ""1612 foreach tag [GetDatasetsWithComponent $cname] {1613 if { ![info exists _limits($tag)] } {1614 continue1615 }1616 foreach {amin amax} $_limits($tag) break1617 if { $min == "" || $min > $amin } {1618 set min $amin1619 }1620 if { $max == "" || $max < $amax } {1621 set max $amax1622 }1623 }1624 if { $min != "" } {1625 set _limits(min) $min1626 }1627 if { $max != "" } {1628 set _limits(max) $max1629 }1630 return [list $_limits(min) $_limits(max)]1631 }1632 1633 1600 1634 1601 itcl::body Rappture::NanovisViewer::BuildViewTab {} {
Note: See TracChangeset
for help on using the changeset viewer.