home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / bbs / termv4.6 / extras / source / term-source.lha / SpeechPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-18  |  8.7 KB  |  396 lines
  1. /*
  2. **    SpeechPanel.c
  3. **
  4. **    Editing panel for speech configuration
  5. **
  6. **    Copyright © 1990-1996 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. **
  9. **    :ts=4
  10. */
  11.  
  12. #ifndef _GLOBAL_H
  13. #include "Global.h"
  14. #endif
  15.  
  16. enum    {    GAD_RATE=1,GAD_PITCH,GAD_FREQUENCY,GAD_VOLUME,GAD_SEX,GAD_ENABLED,GAD_SPEAK,
  17.             GAD_USE,GAD_LOAD,GAD_SAVE,GAD_CANCEL,GAD_DISCARD
  18.         };
  19.  
  20. STATIC LONG __saveds __stdargs
  21. VolumeDisplay(struct Gadget *SomeGadget,LONG Level)
  22. {
  23.     return((100 * (LONG)Level) / MAXVOL);
  24. }
  25.  
  26. BOOL
  27. SpeechPanelConfig(struct SpeechConfig *SpeechConfig,STRPTR LastSpeech,BOOLEAN *ChangePtr)
  28. {
  29.     struct LayoutHandle    *Handle;
  30.     struct SpeechConfig     PrivateConfig;
  31.     BOOL                 Changed = FALSE;
  32.     STRPTR                 LevelFormat;
  33.  
  34.     LevelFormat = LocaleBase ? "%lD" : "%ld";
  35.  
  36.     CopyMem(SpeechConfig,&PrivateConfig,sizeof(struct SpeechConfig));
  37.  
  38.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  39.         LH_LocaleHook,    &LocaleHook,
  40.         LH_ExitFlush,    FALSE,
  41.     TAG_DONE))
  42.     {
  43.         struct Window *PanelWindow;
  44.  
  45.         LT_New(Handle,
  46.             LA_Type,    VERTICAL_KIND,
  47.         TAG_DONE);
  48.         {
  49.             LT_New(Handle,
  50.                 LA_Type,    VERTICAL_KIND,
  51.             TAG_DONE);
  52.             {
  53.                 LT_New(Handle,
  54.                     LA_Type,            SliderType,
  55.                     LA_LabelID,            MSG_SPEECHPANEL_RATE_GAD,
  56.                     LA_WORD,            &PrivateConfig . Rate,
  57.                     LA_Chars,            20,
  58.                     LA_ID,                GAD_RATE,
  59.                     GTSL_Min,            MINRATE,
  60.                     GTSL_Max,            MAXRATE,
  61.                     GTSL_LevelFormat,    LevelFormat,
  62.                 TAG_DONE);
  63.  
  64.                 LT_New(Handle,
  65.                     LA_Type,            SliderType,
  66.                     LA_LabelID,            MSG_SPEECHPANEL_PITCH_GAD,
  67.                     LA_WORD,            &PrivateConfig . Pitch,
  68.                     LA_ID,                GAD_PITCH,
  69.                     GTSL_Min,            MINPITCH,
  70.                     GTSL_Max,            MAXPITCH,
  71.                     GTSL_LevelFormat,    LevelFormat,
  72.                 TAG_DONE);
  73.  
  74.                 LT_New(Handle,
  75.                     LA_Type,            SliderType,
  76.                     LA_LabelID,            MSG_SPEECHPANEL_FREQUENCY_GAD,
  77.                     LA_LONG,            &PrivateConfig . Frequency,
  78.                     LA_ID,                GAD_FREQUENCY,
  79.                     GTSL_Min,            MINFREQ,
  80.                     GTSL_Max,            MAXFREQ,
  81.                     GTSL_LevelFormat,    LevelFormat,
  82.                 TAG_DONE);
  83.  
  84.                 LT_New(Handle,
  85.                     LA_Type,            SliderType,
  86.                     LA_LabelID,            MSG_SPEECHPANEL_VOLUME_GAD,
  87.                     LA_BYTE,            &PrivateConfig . Volume,
  88.                     LA_ID,                GAD_VOLUME,
  89.                     GTSL_Min,            MINVOL,
  90.                     GTSL_Max,            MAXVOL,
  91.                     GTSL_LevelFormat,    "%ld%%",
  92.                     GTSL_DispFunc,        VolumeDisplay,
  93.                 TAG_DONE);
  94.  
  95.                 LT_New(Handle,
  96.                     LA_Type,            MX_KIND,
  97.                     LA_LabelID,            MSG_SPEECHPANEL_SEX_GAD,
  98.                     LA_BYTE,            &PrivateConfig . Sex,
  99.                     LA_ID,                GAD_SEX,
  100.                     LAMX_FirstLabel,    MSG_SPEECHPANEL_MALE_TXT,
  101.                     LAMX_LastLabel,        MSG_SPEECHPANEL_FEMALE_TXT,
  102.                 TAG_DONE);
  103.  
  104.                 LT_New(Handle,
  105.                     LA_Type,            CHECKBOX_KIND,
  106.                     LA_LabelID,            MSG_SPEECHPANEL_SPEECH_ENABLED_GAD,
  107.                     LA_BYTE,            &PrivateConfig . Enabled,
  108.                     LA_ID,                GAD_ENABLED,
  109.                     LA_ExtraSpace,        TRUE,
  110.                 TAG_DONE);
  111.  
  112.                 LT_New(Handle,
  113.                     LA_Type,            XBAR_KIND,
  114.                 TAG_DONE);
  115.  
  116.                 LT_EndGroup(Handle);
  117.             }
  118.  
  119.             LT_New(Handle,
  120.                 LA_Type,    VERTICAL_KIND,
  121.             TAG_DONE);
  122.             {
  123.                 LT_New(Handle,
  124.                     LA_Type,            BUTTON_KIND,
  125.                     LA_LabelID,            MSG_SPEECHPANEL_SPEAK_GAD,
  126.                     LA_ID,                GAD_SPEAK,
  127.                     LA_ExtraFat,        TRUE,
  128.                     GA_Disabled,        !PrivateConfig . Enabled,
  129.                 TAG_DONE);
  130.  
  131.                 LT_EndGroup(Handle);
  132.             }
  133.  
  134.             LT_New(Handle,
  135.                 LA_Type,VERTICAL_KIND,
  136.             TAG_DONE);
  137.             {
  138.                 LT_New(Handle,
  139.                     LA_Type,        XBAR_KIND,
  140.                     LAXB_FullSize,    TRUE,
  141.                 TAG_DONE);
  142.  
  143.                 LT_EndGroup(Handle);
  144.             }
  145.  
  146.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  147.                 LAGR_SameSize,    TRUE,
  148.                 LAGR_Spread,    TRUE,
  149.             TAG_DONE);
  150.             {
  151.                 LT_New(Handle,
  152.                     LA_Type,        BUTTON_KIND,
  153.                     LA_LabelID,        MSG_GLOBAL_USE_GAD,
  154.                     LA_ID,            GAD_USE,
  155.                     LABT_ReturnKey,    TRUE,
  156.                     LABT_ExtraFat,    TRUE,
  157.                 TAG_DONE);
  158.  
  159.                 LT_New(Handle,
  160.                     LA_Type,        BUTTON_KIND,
  161.                     LA_LabelID,        MSG_GLOBAL_LOAD_GAD,
  162.                     LA_ID,            GAD_LOAD,
  163.                 TAG_DONE);
  164.  
  165.                 LT_New(Handle,
  166.                     LA_Type,        BUTTON_KIND,
  167.                     LA_LabelID,        MSG_GLOBAL_SAVE_GAD,
  168.                     LA_ID,            GAD_SAVE,
  169.                 TAG_DONE);
  170.  
  171.                 LT_New(Handle,
  172.                     LA_Type,        BUTTON_KIND,
  173.                     LA_LabelID,        MSG_DISCARD_GAD,
  174.                     LA_ID,            GAD_DISCARD,
  175.                 TAG_DONE);
  176.  
  177.                 LT_New(Handle,
  178.                     LA_Type,        BUTTON_KIND,
  179.                     LA_LabelID,        MSG_GLOBAL_CANCEL_GAD,
  180.                     LA_ID,            GAD_CANCEL,
  181.                     LABT_EscKey,    TRUE,
  182.                 TAG_DONE);
  183.  
  184.                 LT_EndGroup(Handle);
  185.             }
  186.  
  187.             LT_EndGroup(Handle);
  188.         }
  189.  
  190.         if(PanelWindow = LT_Build(Handle,
  191.             LAWN_TitleID,        MSG_SPEECHPANEL_SPEECH_PREFERENCES_TXT,
  192.             LAWN_IDCMP,            IDCMP_CLOSEWINDOW,
  193.             LAWN_HelpHook,        &GuideHook,
  194.             LAWN_Parent,        Window,
  195.             WA_DepthGadget,        TRUE,
  196.             WA_CloseGadget,        TRUE,
  197.             WA_DragBar,            TRUE,
  198.             WA_RMBTrap,            TRUE,
  199.             WA_Activate,        TRUE,
  200.             WA_SimpleRefresh,    TRUE,
  201.         TAG_DONE))
  202.         {
  203.             struct IntuiMessage        *Message;
  204.             BOOL                     Done = FALSE;
  205.             ULONG                     MsgClass;
  206.             UWORD                     MsgCode;
  207.             struct Gadget            *MsgGadget;
  208.             UBYTE                      DummyBuffer[MAX_FILENAME_LENGTH],
  209.                                     *DummyChar;
  210.             struct FileRequester    *FileRequest;
  211.             BOOL                     OldEnglish = English;
  212.  
  213.             GuideContext(CONTEXT_SPEECH);
  214.  
  215.             PushWindow(PanelWindow);
  216.  
  217.             do
  218.             {
  219.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  220.                 {
  221.                     Changed = FALSE;
  222.  
  223.                     break;
  224.                 }
  225.  
  226.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  227.                 {
  228.                     MsgClass    = Message -> Class;
  229.                     MsgCode        = Message -> Code;
  230.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  231.  
  232.                     LT_ReplyIMsg(Message);
  233.  
  234.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  235.                     {
  236.                         Done = TRUE;
  237.                         Changed = FALSE;
  238.                     }
  239.  
  240.                     if(MsgClass == IDCMP_GADGETUP)
  241.                     {
  242.                         switch(MsgGadget -> GadgetID)
  243.                         {
  244.                             case GAD_ENABLED:
  245.  
  246.                                 LT_SetAttributes(Handle,GAD_SPEAK,
  247.                                     GA_Disabled,!MsgCode,
  248.                                 TAG_DONE);
  249.  
  250.                                 break;
  251.  
  252.                             case GAD_USE:
  253.  
  254.                                 Changed = Done = TRUE;
  255.  
  256.                                 if(ChangePtr)
  257.                                     *ChangePtr = TRUE;
  258.  
  259.                                 CopyMem(&PrivateConfig,SpeechConfig,sizeof(struct SpeechConfig));
  260.  
  261.                                 break;
  262.  
  263.                             case GAD_DISCARD:
  264.  
  265.                                 LastSpeech[0] = 0;
  266.  
  267.                                 if(ChangePtr)
  268.                                     *ChangePtr = FALSE;
  269.  
  270.                                 strcpy(Config->SpeechFileName,LastSpeech);
  271.  
  272.                                 Done = Changed = TRUE;
  273.                                 break;
  274.  
  275.                             case GAD_CANCEL:
  276.  
  277.                                 Done = TRUE;
  278.                                 Changed = FALSE;
  279.                                 break;
  280.  
  281.                             case GAD_LOAD:
  282.  
  283.                                 SplitFileName(LastSpeech,&DummyChar,DummyBuffer);
  284.  
  285.                                 LT_LockWindow(PanelWindow);
  286.  
  287.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SPEECHPANEL_LOAD_SPEECH_SETTINGS_TXT),DummyBuffer,FilePart(LastSpeech),DummyBuffer,"#?.prefs",FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_LOAD_TXT),TRUE))
  288.                                 {
  289.                                     if(!ReadIFFData(DummyBuffer,&PrivateConfig,sizeof(struct SpeechConfig),ID_SPEK))
  290.                                         ShowError(PanelWindow,ERR_LOAD_ERROR,IoErr(),DummyBuffer);
  291.                                     else
  292.                                     {
  293.                                         strcpy(LastSpeech,DummyBuffer);
  294.  
  295.                                         strcpy(Config->SpeechFileName,LastSpeech);
  296.  
  297.                                         LT_SetAttributes(Handle,GAD_RATE,
  298.                                             GTSL_Level,        PrivateConfig . Rate,
  299.                                         TAG_DONE);
  300.  
  301.                                         LT_SetAttributes(Handle,GAD_PITCH,
  302.                                             GTSL_Level,        PrivateConfig . Pitch,
  303.                                         TAG_DONE);
  304.  
  305.                                         LT_SetAttributes(Handle,GAD_FREQUENCY,
  306.                                             GTSL_Level,        PrivateConfig . Frequency,
  307.                                         TAG_DONE);
  308.  
  309.                                         LT_SetAttributes(Handle,GAD_VOLUME,
  310.                                             GTSL_Level,        PrivateConfig . Volume,
  311.                                         TAG_DONE);
  312.  
  313.                                         LT_SetAttributes(Handle,GAD_SEX,
  314.                                             GTCY_Active,    PrivateConfig . Sex,
  315.                                         TAG_DONE);
  316.  
  317.                                         LT_SetAttributes(Handle,GAD_ENABLED,
  318.                                             GTCB_Checked,    PrivateConfig . Enabled,
  319.                                         TAG_DONE);
  320.  
  321.                                         LT_SetAttributes(Handle,GAD_SPEAK,
  322.                                             GA_Disabled,    PrivateConfig . Enabled == FALSE,
  323.                                         TAG_DONE);
  324.  
  325.                                         Changed = TRUE;
  326.  
  327.                                         if(ChangePtr)
  328.                                             *ChangePtr = FALSE;
  329.                                     }
  330.  
  331.                                     FreeAslRequest(FileRequest);
  332.                                 }
  333.  
  334.                                 LT_UnlockWindow(PanelWindow);
  335.  
  336.                                 break;
  337.  
  338.                             case GAD_SAVE:
  339.  
  340.                                 SplitFileName(LastSpeech,&DummyChar,DummyBuffer);
  341.  
  342.                                 LT_LockWindow(PanelWindow);
  343.  
  344.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SPEECHPANEL_SAVE_SPEECH_SETTINGS_TXT),DummyBuffer,FilePart(LastSpeech),DummyBuffer,"#?.prefs",TRUE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SAVE_TXT),TRUE))
  345.                                 {
  346.                                     if(!WriteIFFData(DummyBuffer,&PrivateConfig,sizeof(struct SpeechConfig),ID_SPEK))
  347.                                         ShowError(PanelWindow,ERR_SAVE_ERROR,IoErr(),DummyBuffer);
  348.                                     else
  349.                                     {
  350.                                         strcpy(LastSpeech,DummyBuffer);
  351.  
  352.                                         strcpy(Config->SpeechFileName,LastSpeech);
  353.  
  354.                                         if(ChangePtr)
  355.                                             *ChangePtr = FALSE;
  356.                                     }
  357.  
  358.                                     FreeAslRequest(FileRequest);
  359.                                 }
  360.  
  361.                                 LT_UnlockWindow(PanelWindow);
  362.  
  363.                                 break;
  364.  
  365.                             case GAD_SPEAK:
  366.  
  367.                                 swmem(SpeechConfig,&PrivateConfig,sizeof(struct SpeechConfig));
  368.  
  369.                                 SpeechSetup();
  370.  
  371.                                 English = TRUE;
  372.  
  373.                                 Say(LocaleString(MSG_SPEECHPANEL_THIS_IS_TERM_SPEAKING_TXT));
  374.  
  375.                                 swmem(SpeechConfig,&PrivateConfig,sizeof(struct SpeechConfig));
  376.  
  377.                                 English = OldEnglish;
  378.  
  379.                                 break;
  380.                         }
  381.                     }
  382.                 }
  383.             }
  384.             while(!Done);
  385.  
  386.             PopWindow();
  387.         }
  388.  
  389.         LT_DeleteHandle(Handle);
  390.     }
  391.  
  392.     SpeechSetup();
  393.  
  394.     return(Changed);
  395. }
  396.