Changeset 782 for trunk/instedit.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:11:56 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/instedit.tcl

    • Property rcs:date changed from 2003/11/05 22:14:46 to 2004/04/27 14:11:04
    • Property rcs:lines changed from +1 -4 to +4 -3
    • Property rcs:rev changed from 1.3 to 1.4
    r741 r782  
    125125    set instparms(changes) 0
    126126    $instparms(savebutton) config -state disabled
    127     wm title . "Editing instrument parameter file $instparms(filename)"
     127    wm title $instparms(top) "Editing instrument parameter file $instparms(filename)"
    128128}
    129129
     
    140140        set instdat(${var}$i) ""
    141141    }
     142    instbankinfo itype $i set "0 0 180 1"
    142143    set instparms(proftypes$i) 0
    143144    instShowBank $box
     
    640641        set instparms(filename) [tk_getOpenFile \
    641642                -title "Select Instrument parameter file\nor press Cancel to create a new file." \
    642                 -parent $instparms(top) -defaultextension ins \
     643                -parent $instparms(top) -defaultextension .ins \
    643644                -filetypes {{"Instrument parameters file" ".ins .inst .prm"} {All *.*}}]
    644645    } else {
Note: See TracChangeset for help on using the changeset viewer.