home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / Term / Extras / Source / term-source.lha / DatePanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-20  |  3.6 KB  |  194 lines
  1. /*
  2. **    DatePanel.c
  3. **
  4. **    Editing panel for date 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_MONTH=1,GAD_DAY,GAD_COMMENT,GAD_USE,GAD_CANCEL };
  17.  
  18. BOOL
  19. DatePanel(struct Window *Parent,struct TimeDateNode *Node)
  20. {
  21.     STATIC BYTE MaxDays[12] = { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
  22.  
  23.     struct TimeDateNode LocalNode;
  24.     LayoutHandle *Handle;
  25.     BOOL Result;
  26.  
  27.     Result = FALSE;;
  28.  
  29.     CopyMem(Node,&LocalNode,sizeof(struct TimeDateNode));
  30.  
  31.     if(Handle = LT_CreateHandleTags(Parent->WScreen,
  32.         LAHN_LocaleHook,    &LocaleHook,
  33.         LAHN_ExitFlush,        FALSE,
  34.     TAG_DONE))
  35.     {
  36.         struct Window *PanelWindow;
  37.  
  38.         LT_New(Handle,
  39.             LA_Type,    VERTICAL_KIND,
  40.         TAG_DONE);
  41.         {
  42.             LT_New(Handle,
  43.                 LA_Type,    VERTICAL_KIND,
  44.             TAG_DONE);
  45.             {
  46.                 LT_New(Handle,
  47.                     LA_Type,            CYCLE_KIND,
  48.                     LA_LabelID,            MSG_DATEPANEL_MONTH_GAD,
  49.                     LA_BYTE,            &LocalNode.Header.Month,
  50.                     LA_ID,                GAD_MONTH,
  51.                     LACY_FirstLabel,    MSG_DATEPANEL_JANUARY_TXT,
  52.                     LACY_LastLabel,        MSG_DATEPANEL_DECEMBER_TXT,
  53.                 TAG_DONE);
  54.  
  55.                 LT_New(Handle,
  56.                     LA_Type,            SliderType,
  57.                     LA_LabelID,            MSG_DATEPANEL_DAY_GAD,
  58.                     LA_BYTE,            &LocalNode.Header.Day,
  59.                     LA_ID,                GAD_DAY,
  60.                     GTSL_Min,            1,
  61.                     GTSL_Max,            MaxDays[(WORD)LocalNode.Header.Month],
  62.                     LASL_FullCheck,        TRUE,
  63.                 TAG_DONE);
  64.  
  65.                 LT_New(Handle,
  66.                     LA_Type,            XBAR_KIND,
  67.                 TAG_DONE);
  68.  
  69.                 LT_New(Handle,
  70.                     LA_Type,            STRING_KIND,
  71.                     LA_LabelID,            MSG_GLOBAL_COMMENT_GAD,
  72.                     LA_STRPTR,            LocalNode.Header.Comment,
  73.                     GTST_MaxChars,        sizeof(LocalNode.Header.Comment) - 1,
  74.                 TAG_DONE);
  75.  
  76.                 LT_EndGroup(Handle);
  77.             }
  78.  
  79.             LT_New(Handle,
  80.                 LA_Type,VERTICAL_KIND,
  81.             TAG_DONE);
  82.             {
  83.                 LT_New(Handle,
  84.                     LA_Type,        XBAR_KIND,
  85.                     LAXB_FullSize,    TRUE,
  86.                 TAG_DONE);
  87.  
  88.                 LT_EndGroup(Handle);
  89.             }
  90.  
  91.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  92.                 LAGR_SameSize,    TRUE,
  93.                 LAGR_Spread,    TRUE,
  94.             TAG_DONE);
  95.             {
  96.                 LT_New(Handle,
  97.                     LA_Type,        BUTTON_KIND,
  98.                     LA_LabelID,        MSG_GLOBAL_USE_GAD,
  99.                     LA_ID,            GAD_USE,
  100.                     LABT_ReturnKey,    TRUE,
  101.                     LABT_ExtraFat,    TRUE,
  102.                 TAG_DONE);
  103.  
  104.                 LT_New(Handle,
  105.                     LA_Type,        BUTTON_KIND,
  106.                     LA_LabelID,        MSG_GLOBAL_CANCEL_GAD,
  107.                     LA_ID,            GAD_CANCEL,
  108.                     LABT_EscKey,    TRUE,
  109.                     LABT_ExtraFat,    TRUE,
  110.                 TAG_DONE);
  111.  
  112.                 LT_EndGroup(Handle);
  113.             }
  114.  
  115.             LT_EndGroup(Handle);
  116.         }
  117.  
  118.         if(PanelWindow = LT_Build(Handle,
  119.             LAWN_TitleID,        MSG_DATEPANEL_DATE_SETTINGS_TXT,
  120.             LAWN_HelpHook,        &GuideHook,
  121.             LAWN_Parent,        Parent,
  122.             WA_DepthGadget,        TRUE,
  123.             WA_DragBar,            TRUE,
  124.             WA_RMBTrap,            TRUE,
  125.             WA_Activate,        TRUE,
  126.             WA_SimpleRefresh,    TRUE,
  127.         TAG_DONE))
  128.         {
  129.             struct IntuiMessage    *Message;
  130.             struct Gadget *MsgGadget;
  131.             ULONG MsgClass;
  132.             BOOL Done;
  133.  
  134.             Done = FALSE;
  135.  
  136.             GuideContext(CONTEXT_DATE);
  137.  
  138.             LT_ShowWindow(Handle,TRUE);
  139.  
  140.             PushWindow(PanelWindow);
  141.  
  142.             do
  143.             {
  144.                 if(Wait(PORTMASK(PanelWindow->UserPort) | SIG_BREAK) & SIG_BREAK)
  145.                     break;
  146.  
  147.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  148.                 {
  149.                     MsgClass    = Message->Class;
  150.                     MsgGadget    = (struct Gadget *)Message->IAddress;
  151.  
  152.                     LT_ReplyIMsg(Message);
  153.  
  154.                     if(MsgClass == IDCMP_GADGETUP)
  155.                     {
  156.                         switch(MsgGadget->GadgetID)
  157.                         {
  158.                             case GAD_MONTH:
  159.  
  160.                                 LT_SetAttributes(Handle,GAD_DAY,
  161.                                     GTSL_Max,MaxDays[(WORD)LocalNode.Header.Month],
  162.                                 TAG_DONE);
  163.  
  164.                                 break;
  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.                     }
  182.                 }
  183.             }
  184.             while(!Done);
  185.  
  186.             PopWindow();
  187.         }
  188.  
  189.         LT_DeleteHandle(Handle);
  190.     }
  191.  
  192.     return(Result);
  193. }
  194.