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