home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / Term / Extras / Source / term-source.lha / TimePanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-20  |  2.9 KB  |  171 lines
  1. /*
  2. **    TimePanel.c
  3. **
  4. **    Editing panel for time values
  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 };
  17.  
  18. STATIC STRPTR SAVE_DS STACKARGS
  19. ShowTime(struct Gadget *UnusedGadget,LONG Level)
  20. {
  21.     STATIC UBYTE Buffer[40];
  22.  
  23.     FormatTime(Buffer,sizeof(Buffer),Level / 6,(Level % 6) * 10,-1);
  24.  
  25.     return(Buffer);
  26. }
  27.  
  28. BOOL
  29. TimePanel(struct Window *Parent,UBYTE *StartTime)
  30. {
  31.     LayoutHandle *Handle;
  32.     BOOL Result;
  33.     LONG Time;
  34.  
  35.     Result    = FALSE;
  36.     Time    = *StartTime;
  37.  
  38.     if(Handle = LT_CreateHandleTags(Parent->WScreen,
  39.         LAHN_LocaleHook,    &LocaleHook,
  40.     TAG_DONE))
  41.     {
  42.         struct Window *PanelWindow;
  43.  
  44.         LT_New(Handle,
  45.             LA_Type,    VERTICAL_KIND,
  46.         TAG_DONE);
  47.         {
  48.             LT_New(Handle,
  49.                 LA_Type,    VERTICAL_KIND,
  50.             TAG_DONE);
  51.             {
  52.                 LT_New(Handle,
  53.                     LA_Type,            SliderType,
  54.                     LA_LabelID,            MSG_TIMEPANEL_TIME_GAD,
  55.                     LA_Chars,            15,
  56.                     LA_LONG,            &Time,
  57.                     GTSL_Min,            DT_GET_TIME( 0, 0),
  58.                     GTSL_Max,            DT_GET_TIME(23,50),
  59.                     GTSL_DispFunc,        ShowTime,
  60.                     GTSL_LevelFormat,    "%s",
  61.                 TAG_DONE);
  62.  
  63.                 LT_EndGroup(Handle);
  64.             }
  65.  
  66.             LT_New(Handle,
  67.                 LA_Type,VERTICAL_KIND,
  68.             TAG_DONE);
  69.             {
  70.                 LT_New(Handle,
  71.                     LA_Type,        XBAR_KIND,
  72.                     LAXB_FullSize,    TRUE,
  73.                 TAG_DONE);
  74.  
  75.                 LT_EndGroup(Handle);
  76.             }
  77.  
  78.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  79.                 LAGR_SameSize,    TRUE,
  80.                 LAGR_Spread,    TRUE,
  81.             TAG_DONE);
  82.             {
  83.                 LT_New(Handle,
  84.                     LA_Type,        BUTTON_KIND,
  85.                     LA_LabelID,        MSG_GLOBAL_USE_GAD,
  86.                     LA_ID,            GAD_USE,
  87.                     LABT_ReturnKey,    TRUE,
  88.                     LABT_ExtraFat,    TRUE,
  89.                 TAG_DONE);
  90.  
  91.                 LT_New(Handle,
  92.                     LA_Type,        BUTTON_KIND,
  93.                     LA_LabelID,        MSG_GLOBAL_CANCEL_GAD,
  94.                     LA_ID,            GAD_CANCEL,
  95.                     LABT_EscKey,    TRUE,
  96.                     LABT_ExtraFat,    TRUE,
  97.                 TAG_DONE);
  98.  
  99.                 LT_EndGroup(Handle);
  100.             }
  101.  
  102.             LT_EndGroup(Handle);
  103.         }
  104.  
  105.         if(PanelWindow = LT_Build(Handle,
  106.             LAWN_TitleID,        MSG_TIMEPANEL_SET_TIME_TXT,
  107.             LAWN_HelpHook,        &GuideHook,
  108.             LAWN_Parent,        Parent,
  109.             WA_DepthGadget,        TRUE,
  110.             WA_DragBar,            TRUE,
  111.             WA_RMBTrap,            TRUE,
  112.             WA_Activate,        TRUE,
  113.             WA_SimpleRefresh,    TRUE,
  114.         TAG_DONE))
  115.         {
  116.             struct IntuiMessage    *Message;
  117.             struct Gadget *MsgGadget;
  118.             ULONG MsgClass;
  119.             BOOL Done;
  120.  
  121.             GuideContext(CONTEXT_DAY);
  122.  
  123.             LT_ShowWindow(Handle,TRUE);
  124.  
  125.             PushWindow(PanelWindow);
  126.  
  127.             Done = FALSE;
  128.  
  129.             do
  130.             {
  131.                 if(Wait(PORTMASK(PanelWindow->UserPort) | SIG_BREAK) & SIG_BREAK)
  132.                     break;
  133.  
  134.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  135.                 {
  136.                     MsgClass    = Message->Class;
  137.                     MsgGadget    = (struct Gadget *)Message->IAddress;
  138.  
  139.                     LT_ReplyIMsg(Message);
  140.  
  141.                     if(MsgClass == IDCMP_GADGETUP)
  142.                     {
  143.                         switch(MsgGadget->GadgetID)
  144.                         {
  145.                             case GAD_USE:
  146.  
  147.                                 *StartTime = Time;
  148.  
  149.                                 Result = Done = TRUE;
  150.  
  151.                                 break;
  152.  
  153.                             case GAD_CANCEL:
  154.  
  155.                                 Done = TRUE;
  156.                                 break;
  157.                         }
  158.                     }
  159.                 }
  160.             }
  161.             while(!Done);
  162.  
  163.             PopWindow();
  164.         }
  165.  
  166.         LT_DeleteHandle(Handle);
  167.     }
  168.  
  169.     return(Result);
  170. }
  171.