Changeset 782 for trunk/instedit.tcl

Timestamp:

Dec 4, 2009 5:11:56 PM (13 years ago)

Author:

toby

Message:

# on 2004/04/27 14:11:04, toby did:
add ITYP entry in init

File:

• trunk/instedit.tcl (modified) (3 diffs, 3 props)

trunk/instedit.tcl

@@ -125 +125 @@
     set instparms(changes) 0
     $instparms(savebutton) config -state disabled
-    wm title . "Editing instrument parameter file $instparms(filename)"
+    wm title $instparms(top) "Editing instrument parameter file $instparms(filename)"
 }
 
@@ -140 +140 @@
         set instdat(${var}$i) ""
     }
+    instbankinfo itype $i set "0 0 180 1"
     set instparms(proftypes$i) 0
     instShowBank $box
@@ -640 +641 @@
         set instparms(filename) [tk_getOpenFile \
                 -title "Select Instrument parameter file\nor press Cancel to create a new file." \
-                -parent $instparms(top) -defaultextension ins \
+                -parent $instparms(top) -defaultextension .ins \
                 -filetypes {{"Instrument parameters file" ".ins .inst .prm"} {All *.*}}]
     } else {