Changeset 2271 for rat/trunk/ui_audiotool.tcl

Timestamp:

03/07/99 20:54:38 (14 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:

• rat/trunk/ui_audiotool.tcl (modified) (4 diffs)

rat/trunk/ui_audiotool.tcl

@@ -2023 +2023 @@
 
 proc load_setting {attrname field var default} {
-    global V win32 $var
-    upvar 1 $attrname attr 
+        global V win32 $var
+        upvar 1 $attrname attr 
         set fail 0
-    # who has the tcl manual? is the only way to pass arrays thru upvar...
+        # who has the tcl manual? is the only way to pass arrays thru upvar...
         if {$win32} {
                 if {[string first "rtp" "$field"] == -1} {
@@ -2039 +2039 @@
                         puts "$field $var $tmp"
                 }
-    } else {
+        } else {
                 set tmp [option get . $field rat]
                 if {$tmp == ""} {
-            # not in xresources...
+                        # not in xresources...
                         if {[info exists attr($field)]} {
-                        set tmp $attr($field)
+                                set tmp $attr($field)
                         }
                 }
-    }
-    if {$tmp == ""} {
+        }
+        if {$tmp == ""} {
         # either not in rtp defaults, or registry...
-        set tmp $default
-    }
-    set $var $tmp
+                set tmp $default
+        }
+        set $var $tmp
 }
 
@@ -2074 +2074 @@
                         set f [open $rtpfname]
                         while {[eof $f] == 0} {
-                        gets $f line
-                        set field [string trim [lindex $line 0] "*:"]
-                        set value [lrange $line 1 end]
-                        set attr($field) "$value"
+                                gets $f line
+                                set field [string trim [lindex $line 0] "*:"]
+                                set value [lrange $line 1 end]
+                                set attr($field) "$value"
                         }       
                         close $f
@@ -2094 +2094 @@
     global audio_tool
     if {[tool_version $audio_tool] != [tool_version $TOOL($my_cname)]} {
+        puts "New version of tool ([tool_version $audio_tool]), resetting preferences"
         foreach i [array names attr audio*] {
             unset attr($i)