OpenEuphoria

Re: EuTalker

• Posted by "danielmoyer" <danielmoyer at prodigy.net> Apr 23, 2004
• 545 views

Irv,

I'm not sure, but I think maybe you have to enclose code between:

-- and

Dan Moyer

----- Original Message ----- 
From: "irv mullins" <guest at RapidEuphoria.com>
To: <EUforum at topica.com>
Sent: Thursday, April 22, 2004 9:13 PM
Subject: Re: EuTalker


> 
> 
> posted by: irv mullins <irvm at ellijay.com>
> 
> Well, it appears that somewhere along the line, lines following a 
> comment were removed. Let me try again. Hey, Rob, what happened to 
> syntax coloring?
> 
> include gtk2/wrapper.e
> 
> atom win, panel, scroller, tv, buf, btn
> 
> procedure Say(sequence text)
>  system(sprintf("echo \"%s\" | festival --tts &",{text}),0)
> end procedure
> 
> function Talk()
>  Say(get(buf,"Text"))
>  set(buf,"Text","")
>  return NULL
> end function
> constant talk = call_back(routine_id("Talk"))
> 
> win = window("Festival Speech Synth")
> set(win,"Size",{300,200})
> set(win,"Border",10)
> 
> panel = vbox(0,0)
> addto(win,panel)
> 
> scroller = scrolled_window(0,0)
> addto(panel,scroller)
> 
> tv = text_view()
> set(tv,"Wrap Mode",2)
> set(tv,"Left Margin",5)
> set(tv,"Right Margin",5)
> addto(scroller,tv)
> buf = get(tv,"Buffer")
> 
> btn = button("gtk-ok")
> pack(panel,-btn,0,0,0)
> when(btn,"clicked",talk,0)
> 
> show(win)
> main()
> 
> 
> 
> For Topica's complete suite of email marketing solutions visit:
> http://www.topica.com/?p=TEXFOOTER