diff --git a/melodic.tcl b/melodic.tcl index 9b8725931ece59939f18ffd20ddceb7ea7d3b57e..8449d0d9098c547ed369983df4bbb7bcd1a1710b 100644 --- a/melodic.tcl +++ b/melodic.tcl @@ -330,7 +330,7 @@ frame $w.btns button $w.btns.apply -command "melodic:apply $w" -text "Go" -button $w.btns.save -command "feat_file:setup_dialog $w a a a [namespace current] *.fsf {Save Feat setup} {feat5:write $w 1 1 0} {}" -text "Save" +button $w.btns.save -command "feat_file:setup_dialog $w a a a [namespace current] *.fsf {Save Feat setup} {feat5:write $w 0 1 0} {}" -text "Save" button $w.btns.load -command "feat_file:setup_dialog $w a a a [namespace current] *.fsf {Load Feat setup} {feat5:load $w 1} {}" -text "Load"