--- usr/local/bin/movaMTK.orig	Sun Apr  1 20:18:40 2001

+++ usr/local/bin/movaMTK	Sun Apr  1 20:23:27 2001

@@ -164,6 +164,12 @@

 .button_upper.save configure -text "Rewrite \"$DIARY\""

 .button_upper.add configure -text "Add to \"$DIARY\""}}

+proc Say_word {} {

+global word

+set fd [open "|/usr/bin/festival" "a"]

+puts $fd "(SayText \"$word\")"

+close $fd

+}

 GetOptions

 switch $argc 0 - 1 - 2 {

@@ -280,7 +286,15 @@

 foreach dia $Diaries {$r add radiobutton -indicator 0 -label "$dia" -variable DIARY -value $dia -command {PutDiary}}

 pack .button_upper -side top -fill x

-pack .button_upper.help .button_upper.new .button_upper.add .button_upper.save .button_upper.read -side left -expand yes -fill both

+

+if {[catch {set fd [open "|/usr/bin/festival --version >/dev/null" "w"]} error] == 0} {

+  button .button_upper.say -relief  flat -background #22fafa -text "Say word" -command { Say_word }

+  pack .button_upper.help .button_upper.say .button_upper.new .button_upper.add .button_upper.save .button_upper.read -side left -expand yes -fill both

+  close $fd

+} else {

+  pack .button_upper.help .button_upper.new .button_upper.add .button_upper.save .button_upper.read -side left -expand yes -fill both

+}

+

 pack .scroll.top -side top -fill y -expand no

 pack .scroll.scroll -side top -fill both -expand yes

 pack .scroll.bottom -side top -fill y -expand no