home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / Term / Extras / Source / term-source.lha / DayPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-20  |  3.7 KB  |  208 lines
  1. /*
  2. **    DayPanel.c
  3. **
  4. **    Editing panel for day of week selection
  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_USE=1,GAD_CANCEL,GAD_TEXT };
  17.  
  18. BOOL
  19. DayPanel(struct Window *Parent,struct TimeDateNode *Node)
  20. {
  21.     struct TimeDateNode LocalNode;
  22.     LayoutHandle *Handle;
  23.     BOOL Result;
  24.  
  25.     Result = FALSE;
  26.  
  27.     CopyMem(Node,&LocalNode,sizeof(struct TimeDateNode));
  28.  
  29.     if(Handle = LT_CreateHandleTags(Parent->WScreen,
  30.         LAHN_LocaleHook,    &LocaleHook,
  31.         LAHN_ExitFlush,        FALSE,
  32.     TAG_DONE))
  33.     {
  34.         struct Window *PanelWindow;
  35.  
  36.         LT_New(Handle,
  37.             LA_Type,    VERTICAL_KIND,
  38.         TAG_DONE);
  39.         {
  40.             LT_New(Handle,
  41.                 LA_Type,    VERTICAL_KIND,
  42.             TAG_DONE);
  43.             {
  44.                 LT_New(Handle,
  45.                     LA_Type,    VERTICAL_KIND,
  46.                 TAG_DONE);
  47.                 {
  48.                     LONG i;
  49.  
  50.                     for(i = 0 ; i < 7 ; i++)
  51.                     {
  52.                         LT_New(Handle,
  53.                             LA_Type,        CHECKBOX_KIND,
  54.                             LA_LabelID,        MSG_DAYPANEL_MONDAY_GAD + i,
  55.                             LA_ID,            GAD_TEXT + i,
  56.                             GTCB_Checked,    LocalNode.Header.Day & (1L << i),
  57.                         TAG_DONE);
  58.                     }
  59.  
  60.                     LT_EndGroup(Handle);
  61.                 }
  62.  
  63.                 LT_New(Handle,
  64.                     LA_Type,    XBAR_KIND,
  65.                 TAG_DONE);
  66.  
  67.                 LT_New(Handle,
  68.                     LA_Type,    VERTICAL_KIND,
  69.                 TAG_DONE);
  70.                 {
  71.                     LT_New(Handle,
  72.                         LA_Type,        STRING_KIND,
  73.                         LA_LabelID,        MSG_GLOBAL_COMMENT_GAD,
  74.                         LA_STRPTR,        LocalNode.Header.Comment,
  75.                         LA_Chars,        15,
  76.                         GTST_MaxChars,    sizeof(LocalNode.Header.Comment) - 1,
  77.                     TAG_DONE);
  78.  
  79.                     LT_EndGroup(Handle);
  80.                 }
  81.  
  82.                 LT_EndGroup(Handle);
  83.             }
  84.  
  85.             LT_New(Handle,
  86.                 LA_Type,VERTICAL_KIND,
  87.             TAG_DONE);
  88.             {
  89.                 LT_New(Handle,
  90.                     LA_Type,        XBAR_KIND,
  91.                     LAXB_FullSize,    TRUE,
  92.                 TAG_DONE);
  93.  
  94.                 LT_EndGroup(Handle);
  95.             }
  96.  
  97.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  98.                 LAGR_SameSize,    TRUE,
  99.                 LAGR_Spread,    TRUE,
  100.             TAG_DONE);
  101.             {
  102.                 LT_New(Handle,
  103.                     LA_Type,        BUTTON_KIND,
  104.                     LA_LabelID,        MSG_GLOBAL_USE_GAD,
  105.                     LA_ID,            GAD_USE,
  106.                     LABT_ReturnKey,    TRUE,
  107.                     LABT_ExtraFat,    TRUE,
  108.                 TAG_DONE);
  109.  
  110.                 LT_New(Handle,
  111.                     LA_Type,        BUTTON_KIND,
  112.                     LA_LabelID,        MSG_GLOBAL_CANCEL_GAD,
  113.                     LA_ID,            GAD_CANCEL,
  114.                     LABT_EscKey,    TRUE,
  115.                     LABT_ExtraFat,    TRUE,
  116.                 TAG_DONE);
  117.  
  118.                 LT_EndGroup(Handle);
  119.             }
  120.  
  121.             LT_EndGroup(Handle);
  122.         }
  123.  
  124.         if(PanelWindow = LT_Build(Handle,
  125.             LAWN_TitleID,        MSG_DAYPANEL_DAY_SETTINGS_TXT,
  126.             LAWN_HelpHook,        &GuideHook,
  127.             LAWN_Parent,        Parent,
  128.             WA_DepthGadget,        TRUE,
  129.             WA_DragBar,            TRUE,
  130.             WA_RMBTrap,            TRUE,
  131.             WA_Activate,        TRUE,
  132.             WA_SimpleRefresh,    TRUE,
  133.         TAG_DONE))
  134.         {
  135.             struct IntuiMessage    *Message;
  136.             struct Gadget *MsgGadget;
  137.             ULONG MsgClass;
  138.             UWORD MsgCode;
  139.             BOOL Done;
  140.  
  141.             GuideContext(CONTEXT_DAY);
  142.  
  143.             LT_ShowWindow(Handle,TRUE);
  144.  
  145.             PushWindow(PanelWindow);
  146.  
  147.             Done = FALSE;
  148.  
  149.             do
  150.             {
  151.                 if(Wait(PORTMASK(PanelWindow->UserPort) | SIG_BREAK) & SIG_BREAK)
  152.                     break;
  153.  
  154.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  155.                 {
  156.                     MsgClass    = Message->Class;
  157.                     MsgCode        = Message->Code;
  158.                     MsgGadget    = (struct Gadget *)Message->IAddress;
  159.  
  160.                     LT_ReplyIMsg(Message);
  161.  
  162.                     if(MsgClass == IDCMP_GADGETUP)
  163.                     {
  164.                         switch(MsgGadget->GadgetID)
  165.                         {
  166.                             case GAD_USE:
  167.  
  168.                                 LT_UpdateStrings(Handle);
  169.  
  170.                                 CopyMem(&LocalNode,Node,sizeof(struct TimeDateNode));
  171.  
  172.                                 Result = Done = TRUE;
  173.  
  174.                                 break;
  175.  
  176.                             case GAD_CANCEL:
  177.  
  178.                                 Done = TRUE;
  179.                                 break;
  180.  
  181.                             default:
  182.  
  183.                                 if(MsgGadget->GadgetID >= GAD_TEXT && MsgGadget->GadgetID < GAD_TEXT + 7)
  184.                                 {
  185.                                     LONG Index = MsgGadget->GadgetID - GAD_TEXT;
  186.  
  187.                                     if(MsgCode)
  188.                                         LocalNode.Header.Day |= (1L << Index);
  189.                                     else
  190.                                         LocalNode.Header.Day &= ~(1L << Index);
  191.                                 }
  192.  
  193.                                 break;
  194.                         }
  195.                     }
  196.                 }
  197.             }
  198.             while(!Done);
  199.  
  200.             PopWindow();
  201.         }
  202.  
  203.         LT_DeleteHandle(Handle);
  204.     }
  205.  
  206.     return(Result);
  207. }
  208.