Changeset 2271

Show
Ignore:
Timestamp:
03/07/99 20:54:38 (15 years ago)
Author:
ucaccsp
Message:

Debugging code; fix indentation in places (someone's been using the MS
editor which changes tabs to sequences of 4 spaces!)

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/ui_audiotool.tcl

    r2260 r2271  
    20232023 
    20242024proc load_setting {attrname field var default} { 
    2025     global V win32 $var 
    2026     upvar 1 $attrname attr  
     2025        global V win32 $var 
     2026        upvar 1 $attrname attr  
    20272027        set fail 0 
    2028     # who has the tcl manual? is the only way to pass arrays thru upvar... 
     2028        # who has the tcl manual? is the only way to pass arrays thru upvar... 
    20292029        if {$win32} { 
    20302030                if {[string first "rtp" "$field"] == -1} { 
     
    20392039                        puts "$field $var $tmp" 
    20402040                } 
    2041     } else { 
     2041        } else { 
    20422042                set tmp [option get . $field rat] 
    20432043                if {$tmp == ""} { 
    2044             # not in xresources... 
     2044                        # not in xresources... 
    20452045                        if {[info exists attr($field)]} { 
    2046                         set tmp $attr($field) 
     2046                                set tmp $attr($field) 
    20472047                        } 
    20482048                } 
    2049     } 
    2050     if {$tmp == ""} { 
     2049        } 
     2050        if {$tmp == ""} { 
    20512051        # either not in rtp defaults, or registry... 
    2052         set tmp $default 
    2053     } 
    2054     set $var $tmp 
     2052                set tmp $default 
     2053        } 
     2054        set $var $tmp 
    20552055} 
    20562056 
     
    20742074                        set f [open $rtpfname] 
    20752075                        while {[eof $f] == 0} { 
    2076                         gets $f line 
    2077                         set field [string trim [lindex $line 0] "*:"] 
    2078                         set value [lrange $line 1 end] 
    2079                         set attr($field) "$value" 
     2076                                gets $f line 
     2077                                set field [string trim [lindex $line 0] "*:"] 
     2078                                set value [lrange $line 1 end] 
     2079                                set attr($field) "$value" 
    20802080                        }        
    20812081                        close $f 
     
    20942094    global audio_tool 
    20952095    if {[tool_version $audio_tool] != [tool_version $TOOL($my_cname)]} { 
     2096        puts "New version of tool ([tool_version $audio_tool]), resetting preferences" 
    20962097        foreach i [array names attr audio*] { 
    20972098            unset attr($i)