Changeset 5708 for branches/uq


Ignore:
Timestamp:
Jun 16, 2015, 9:20:42 PM (9 years ago)
Author:
mmh
Message:

comment out some debug lines

Location:
branches/uq
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/uq/gui/scripts/units.tcl

    r5102 r5708  
    7575
    7676proc Rappture::Units::_check_range {value min max units} {
    77     puts "_check_range $value min=$min max=$max units=$units"
     77    # puts "_check_range $value min=$min max=$max units=$units"
    7878    # make sure the value has units
    7979    if {$units != ""} {
    … …  
    119119
    120120proc Rappture::Units::mcheck_range {value {min ""} {max ""} {units ""}} {
    121     puts "mcheck_range $value min=$min max=$max units=$units"
     121    # puts "mcheck_range $value min=$min max=$max units=$units"
    122122
    123123    switch -- [lindex $value 0] {
    … …  
    165165
    166166proc Rappture::Units::mconvert {value args} {
    167     puts "mconvert $value : $args"
     167    # puts "mconvert $value : $args"
    168168    array set opts {
    169169        -context ""

  • branches/uq/lang/tcl/scripts/units.tcl

    r5102 r5708  
    7575
    7676proc Rappture::Units::_check_range {value min max units} {
    77     puts "_check_range $value min=$min max=$max units=$units"
     77    # puts "_check_range $value min=$min max=$max units=$units"
    7878    # make sure the value has units
    7979    if {$units != ""} {
    … …  
    119119
    120120proc Rappture::Units::mcheck_range {value {min ""} {max ""} {units ""}} {
    121     puts "mcheck_range $value min=$min max=$max units=$units"
     121    # puts "mcheck_range $value min=$min max=$max units=$units"
    122122
    123123    switch -- [lindex $value 0] {
    … …  
    165165
    166166proc Rappture::Units::mconvert {value args} {
    167     puts "mconvert $value : $args"
     167    # puts "mconvert $value : $args"
    168168    array set opts {
    169169        -context ""
Note: See TracChangeset for help on using the changeset viewer.