Changeset 5179 for branches/uq/gui/scripts/probdisteditor.tcl
- Timestamp:
- Apr 1, 2015, 10:19:05 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/uq/gui/scripts/probdisteditor.tcl
r5166 r5179 50 50 # CONSTRUCTOR 51 51 # ---------------------------------------------------------------------- 52 itcl::body Rappture::ProbDistEditor::constructor {min max } {52 itcl::body Rappture::ProbDistEditor::constructor {min max units default} { 53 53 # create a dispatcher for events 54 puts "PDE::constructor $min $max"54 #puts "PDE::constructor $min $max $default" 55 55 56 56 # These are the tool min and max values. May be empty. 57 57 set _umin $min 58 58 set _umax $max 59 set _units [Rappture::Units::Search::for $_umin] 59 set _units $units 60 set _uvalue(central) $default 60 61 61 62 Rappture::dispatcher _dispatcher … … 199 200 # ---------------------------------------------------------------------- 200 201 itcl::body Rappture::ProbDistEditor::value {{newval ""}} { 201 puts "PDE::value $newval"202 #puts "PDE::value $newval" 202 203 203 204 #FIXME: _value has numerical values _uvalue has value with units … … 285 286 # ---------------------------------------------------------------------- 286 287 itcl::body Rappture::ProbDistEditor::mode {{newval ""}} { 287 puts "PDE::mode mode=$newval min=$_umin max=$_umax units=$_units"288 #puts "PDE::mode mode=$newval min=$_umin max=$_umax units=$_units" 288 289 289 290 set modes {exact uniform gaussian custom} … … 291 292 return $modes 292 293 } 294 295 set check 0 296 if {$newval == "check"} { 297 set newval $_mode 298 set check 1 299 } 300 293 301 if {[lsearch $modes $newval] < 0} { 294 302 error "bad value \"$newval\": should be [join $modes {, }]" … … 342 350 } 343 351 gaussian { 344 # 352 #puts "GAUSSIAN min=$min max=$max" 345 353 if {![info exists _value(central)]} { 346 354 if {[info exists _value(min)] && [info exists _value(max)]} { … … 350 358 } 351 359 } 352 # 360 #puts "central=$_value(central)" 353 361 if {![info exists _value(stddev)]} { 354 if {[info exists _value(min)] && [info exists _value(max)]} { 355 set _value(stddev) [expr {0.3*($_value(max) - $_value(min))}] 356 } elseif {$min != "" && $max != ""} { 357 set _value(stddev) [expr {0.3*($max - $min)}] 358 } else { 359 set _value(stddev) [expr $_value(central) * 0.10] 360 } 362 set _value(stddev) [expr $_value(central) * 0.10] 361 363 } 362 364 if {$_value(stddev) <= 0} { 363 365 set _value(stddev) 1.0 364 366 } 365 # 367 #puts "stddev=$_value(stddev)" 366 368 # lower bound is -3 deviations or tool min 367 369 set trunc [expr {$_value(central) - 3*$_value(stddev)}] … … 387 389 } 388 390 391 if {$check == 1} { 392 return 393 } 389 394 # pop up the panel of editing options for this mode 390 395 foreach w [pack slaves $itk_component(vals)] { … … 452 457 # ---------------------------------------------------------------------- 453 458 itcl::body Rappture::ProbDistEditor::_redraw {} { 459 #puts "PDE::_redraw" 460 454 461 set g $itk_component(graph) 455 462 eval $g element delete [$g element names] … … 486 493 } 487 494 gaussian { 495 #puts "min=$_value(min) max=$_value(max)" 496 #puts "mean=$_value(central) dev=$_value(stddev)" 497 488 498 set min $_value(min) 489 499 set max $_value(max) … … 592 602 # ---------------------------------------------------------------------- 593 603 itcl::body Rappture::ProbDistEditor::_apply {op {widget ""}} { 594 puts "_apply $op $widget"604 #puts "PDE::_apply $op $widget" 595 605 if {$op != "bindings"} { 596 606 # need this for value/finalize … … 640 650 set newval [Rappture::Units::convert [$widget get] -context $_units] 641 651 } 642 puts "widget=$widget"643 652 set itk $itk_component(gaussianvals).stddev 644 puts "itk=$itk"645 653 if {$widget != $itk && [catch {Rappture::Units::mcheck_range $newval $_umin $_umax $_units} err]} { 646 654 # oops! value is bad -- edit again … … 658 666 set $uvar $newval 659 667 668 #if {$widget == $itk_component(gaussianvals).mean} { 669 # need new min and max 670 #set $_uvalue(min) 671 #set $_uvalue(max) ... 672 #} 673 660 674 if {[catch {Rappture::Units::convert $newval -units off} nvar]} { 661 675 set nvar $newval … … 663 677 set $var $nvar 664 678 679 mode check 665 680 $_dispatcher event -idle !redraw 666 681 }
Note: See TracChangeset
for help on using the changeset viewer.