Changeset 5189 for branches/uq/gui/scripts/probdisteditor.tcl
- Timestamp:
- Apr 2, 2015, 11:41:28 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/uq/gui/scripts/probdisteditor.tcl
r5182 r5189 200 200 # ---------------------------------------------------------------------- 201 201 itcl::body Rappture::ProbDistEditor::value {{newval ""}} { 202 #puts "PDE::value $newval"202 puts "PDE::value $newval" 203 203 204 204 #FIXME: _value has numerical values _uvalue has value with units … … 286 286 # ---------------------------------------------------------------------- 287 287 itcl::body Rappture::ProbDistEditor::mode {{newval ""}} { 288 #puts "PDE::mode mode=$newval min=$_umin max=$_umax units=$_units"288 puts "PDE::mode mode=$newval min=$_umin max=$_umax units=$_units" 289 289 290 290 set modes {exact uniform gaussian custom} … … 311 311 set min "" 312 312 } else { 313 set min [Rappture::Units::convert $_umin - units off]313 set min [Rappture::Units::convert $_umin -context $_units -units off] 314 314 } 315 315 if {$_umax == ""} { 316 316 set max "" 317 317 } else { 318 set max [Rappture::Units::convert $_umax - units off]318 set max [Rappture::Units::convert $_umax -context $_units -units off] 319 319 } 320 320 } … … 338 338 if {$_value(central) == 0.0} { 339 339 set _value(max) 1.0 340 } 341 if {$min != ""} { 342 if {$_value(min) < $min} { 343 set $_value(min) $min 344 } 345 } 346 if {$max != ""} { 347 if {$_value(max) > $max} { 348 set $_value(max) $max 349 } 340 350 } 341 351 set _uvalue(min) $_value(min)$_units … … 596 606 # ---------------------------------------------------------------------- 597 607 itcl::body Rappture::ProbDistEditor::_apply {op {widget ""}} { 598 #puts "PDE::_apply $op $widget"608 puts "PDE::_apply $op $widget" 599 609 if {$op != "bindings"} { 600 610 # need this for value/finalize
Note: See TracChangeset
for help on using the changeset viewer.