home *** CD-ROM | disk | FTP | other *** search
- /* C code generated by: */
- /* Visual Arts Version 2.1 */
- /* Copyright (c)1994-95 Danny Y. Wong All rights reserved */
- /* Calgary, Alberta (CANADA) */
-
- extern struct Window *SpeakWnd;
- extern struct Gadget *SpeakGadgets[SpeakNumGads];
-
- short volume=35;
- int rate=200;
- /* gadget functions */
-
- int speakObj(struct VAobject VAObject)
- {
- Speak(GetString(SpeakGadgets[ID_text]), volume, rate, 0);
- return(1L);
- }
- /* Button Speak */
-
- int quitObj(struct VAobject VAObject)
- {
- return(-1L);
- }
- /* Button Quit */
-
- int textObj(struct VAobject VAObject)
- {
- return(1L);
- }
- /* String Text */
-
- int volObj(struct VAobject VAObject)
- {
- volume = VAObject.va_IntuiMsg->Code;
- return(1L);
- }
- /* Slider Volume */
-
- int rateObj(struct VAobject VAObject)
- {
- rate = VAObject.va_IntuiMsg->Code;
- return(1L);
- }
- /* Slider Rate */
-
-
-