App = ApplicationObject,
      MUIA_Application_Title      , TEXT(MSG_PROGNAME),
      MUIA_Application_Version    , Version,
      MUIA_Application_Copyright  , "© 1993/94/95/96 Rüdiger Dreier",
      MUIA_Application_Author     , "Rüdiger Dreier",
      MUIA_Application_Description, TEXT(MSG_PROG_EXPLAIN),
      MUIA_Application_Base       , "CARCOSTS",
      MUIA_Application_Menu       , NewMenu,
      MUIA_Application_Commands   , commands,
      MUIA_HelpFile               , TEXT(MSG_GUIDEFILE),
//      MUIA_Application_SingleTask             , TRUE,
      
      SubWindow, WI_Cost = WindowObject,
       MUIA_Window_ID, 'MAIN',
       MUIA_Window_Title, WTitel,
       MUIA_HelpNode    , "mainwindow",
       
       WindowContents, VGroup,
        Child, TX_Gad1 = TextObject,
         TextFrame,
         MUIA_Background, MUII_TextBack,
        End,
        Child, TX_Gad2 = TextObject,
         TextFrame,
         MUIA_Text_Contents, TEXT(MSG_DATA_FOR_TIME_TEXT),
         MUIA_Background, MUII_TextBack,
        End,
        Child, VGroup, GroupFrameT(TEXT(MSG_ENTER_DATA_GUI)),
         Child, ColGroup(2),
          MUIA_Group_SameSize, TRUE,
          Child, BT_Treib = KeyButton(TEXT(MSG_ENTER_FUEL_GAD),
                                      TEXT(MSG_SHORTCUT_FUELLIST)[0]),
          Child, BT_Unter = KeyButton(TEXT(MSG_ENTER_SUPP_GAD),
                                      TEXT(MSG_SHORTCUT_SUPPLIST)[0]),
         End, /* ColGroup */
        End,  /* HGroup */
        Child, HGroup, GroupFrameT(TEXT(MSG_RESULT_GUI)),
         Child, VGroup,
          Child, HGroup,
           Child, ColGroup(3),
            Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
            Child, Label2(TEXT(MSG_KILOMETER_LABEL)),
            Child, TX_Gad9 = MyText(" "),
            Child, RectangleObject, NoFrame, End,
            Child, Label2(TEXT(MSG_LITER_LABEL)),
            Child, TX_Gad10 = MyText(" "),
            Child, RectangleObject, NoFrame, End,
            Child, Label2(TEXT(MSG_USED_LABEL)),
            Child, TX_Gad11 = MyText(" "),
      //      Child, RectangleObject, NoFrame, End,
      //      Child, RectangleObject, NoFrame, End,
           End, /* ColGroup */
          End, /* HGroup */
          Child, VSpace(1),
          Child, HGroup,
           Child, ColGroup(4),
            Child, Label2(TEXT(MSG_SUPP_COMP_LABEL)),
            Child, TX_Gad3 = MyText(" "),
            Child, Label2("=>"),
            Child, TX_Gad4 = MyText(" "),

            Child, Label2(TEXT(MSG_FUEL_COMP_LABEL)),
            Child, TX_Gad5 = MyText(" "),
            Child, Label2("=>"),
            Child, TX_Gad6 = MyText(" "),

            Child, Label2(TEXT(MSG_COSTS_COMP_LABEL)),
            Child, TX_Gad7 = MyText(" "),
            Child, Label2("=>"),
            Child, TX_Gad8 = MyText(" "),
           End, /* ColGroup */
          End, /* HGroup */
         End, /* VGroup */
        End,  /* HGroup (Groupframe) */
       End,    /* VGroup (WindowContents) */
      End,     /* WindowObject */
      SubWindow, WI_Treib = WindowObject,
       MUIA_Window_ID,  'TREI',
       MUIA_Window_Title, WTitel,
       MUIA_Window_Menu , MUIV_Window_Menu_NoMenu, 
       MUIA_HelpNode    , "fuelwindow",
       
       WindowContents, VGroup,
        Child, ColGroup(3), 
         Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
         Child, TextObject,
          TextFrame,
           MUIA_Text_Contents, TEXT(MSG_TITLE_FUEL),
          MUIA_Text_PreParse, "\33c",
         End,
         Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
        End, /* ColGroup */
        Child, LV_Treib = ListviewObject,
         MUIA_Listview_Input   , TRUE,
         MUIA_Listview_List, LI_Treib = ListObject,
          ReadListFrame,
          MUIA_List_ConstructHook,  &Hook_conhooktreib,
          MUIA_List_DestructHook,   &Hook_deshooktreib,
          MUIA_List_CompareHook,    &Hook_cmphooktreib,
          MUIA_List_DisplayHook,    &Hook_disphooktreib,
          MUIA_List_Format     ,    "P=\33r,P=\33r,P=\33r,P=\33r,P=\33r,P=\33r", // "\33r,\33r,\33r,\33r,\33r,\33r",
         End,
        End, /* Listview */
        Child, HGroup, GroupFrameT(TEXT(MSG_ENTER_DATA_GUI)),
         Child, VGroup,
          Child, HGroup,
           Child, ColGroup(4),
            Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
                             TEXT(MSG_SHORTCUT_DATE)[0]),
            Child, ST_Gad1 = MyString(15,
                             TEXT(MSG_SHORTCUT_DATE)[0]),
            Child, KeyLabel2(TEXT(MSG_KM_LABEL),
                             TEXT(MSG_SHORTCUT_KM)[0]),
            Child, ST_Gad2 = MyInt(8,
                             TEXT(MSG_SHORTCUT_KM)[0]),
            Child, KeyLabel2(TEXT(MSG_LITER_LABEL),
                             TEXT(MSG_SHORTCUT_LITER)[0]),
            Child, ST_Gad3 = MyFloat(9,
                             TEXT(MSG_SHORTCUT_LITER)[0]),
            Child, KeyLabel2(TEXT(MSG_PRICE_LABEL),
                             TEXT(MSG_SHORTCUT_PRICE)[0]),
            Child, ST_Gad4 = MyFloat(15,
                             TEXT(MSG_SHORTCUT_PRICE)[0]),
           End, /* ColGroup */
          End, /* HGroup */
          Child, HGroup,
           Child, ColGroup(4),
            MUIA_Group_SameSize, TRUE,
            Child, BT_TR_New = KeyButton(TEXT(MSG_NEW_GAD),
                                         TEXT(MSG_SHORTCUT_NEW)[0]),
            Child, BT_TR_Change = KeyButton(TEXT(MSG_CHANGE_GAD),
                                            TEXT(MSG_SHORTCUT_CHANGE)[0]),
            Child, BT_TR_Delete = KeyButton(TEXT(MSG_DELETE_GAD),
                                            TEXT(MSG_SHORTCUT_DELETE)[0]),
            Child, BT_TR_Cancel = KeyButton(TEXT(MSG_CANCEL_TEXT),
                                            TEXT(MSG_SHORTCUT_CANCEL)[0]),
            End, /* ColGroup */
          End, /* HGroup */
         End, /* VGroup */
        End, /* HGroup (GroupFrameT) */
        Child, HGroup,
         Child, ColGroup(3),
          Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
          Child, BT_TR_Close = KeyButton(TEXT(MSG_CLOSEWINDOW_GAD),
                                         TEXT(MSG_SHORTCUT_CLOSEWINDOW)[0]),
          Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
         End,
        End,
       End, /* VGroup (WindowContents) */
      End, /* WindowObject */
      SubWindow, WI_Unter = WindowObject,
       MUIA_Window_ID,  'UNTE',
       MUIA_Window_Title, WTitel,
       MUIA_Window_Menu , MUIV_Window_Menu_NoMenu,
       MUIA_HelpNode    , "supportwindow",
       
       WindowContents, VGroup,
        Child, ColGroup(3),
         Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
         Child, TextObject,
          TextFrame,
          MUIA_Text_Contents, TEXT(MSG_TITLE_SUPP),
          MUIA_Text_PreParse, "\33c",
         End,
         Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
        End, /* ColGroup */
        Child, LV_Unter = ListviewObject,
         MUIA_Listview_Input, TRUE,
         MUIA_Listview_List, LI_Unter = ListObject,
          ReadListFrame,
          MUIA_List_ConstructHook,  &Hook_conhookunter,
          MUIA_List_DestructHook,   &Hook_deshookunter,
          MUIA_List_CompareHook,    &Hook_cmphookunter,
          MUIA_List_DisplayHook,    &Hook_disphookunter,
          MUIA_List_Format     ,    "P=\33r MIW=-1,MIW=2 MAW=-1,MIW=5 MAW=-1,P=\33r MIW=-1",
         End,
        End, /* Listview */
        Child, HGroup, GroupFrameT(TEXT(MSG_ENTER_DATA_GUI)),
         Child, VGroup,
//          Child, HGroup,
//           Child, ColGroup(4),
//            Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
//                             TEXT(MSG_SHORTCUT_DATE)[0]),
//            Child, ST_Gad5 = MyString(15,
//                                      TEXT(MSG_SHORTCUT_DATE)[0]),
//            Child, KeyLabel2(TEXT(MSG_PRICE_LABEL),
//                                  TEXT(MSG_SHORTCUT_PRICE)[0]),
//            Child, ST_Gad6 = MyFloat(15,
//                                      TEXT(MSG_SHORTCUT_PRICE)[0]),
//           End,
//          End,
          Child, HGroup,
           Child, ColGroup(2),
            Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
                             TEXT(MSG_SHORTCUT_DATE)[0]),
            Child, ColGroup(3),
             Child, ST_Gad5 = MyString(15,
                                      TEXT(MSG_SHORTCUT_DATE)[0]),
             Child, KeyLabel2(TEXT(MSG_PRICE_LABEL),
                                  TEXT(MSG_SHORTCUT_PRICE)[0]),
             Child, ST_Gad6 = MyFloat(15,
                                      TEXT(MSG_SHORTCUT_PRICE)[0]),
            End,
            Child, KeyLabel2(TEXT(MSG_TITLE_LABEL),
                             TEXT(MSG_SHORTCUT_TITLE)[0]),
            Child, ST_Gad7 = MyString(MAXTEXTSTRING-1,
                                      TEXT(MSG_SHORTCUT_TITLE)[0]),
            Child, KeyLabel2(TEXT(MSG_REMARK_LABEL),
                                 TEXT(MSG_SHORTCUT_REMARK)[0]),
            Child, ST_Gad8 = MyString(MAXTEXTSTRING-1,
                                      TEXT(MSG_SHORTCUT_REMARK)[0]),
           End,
          End,
          Child, HGroup,
           Child, ColGroup(4),
            MUIA_Group_SameSize, TRUE,
            Child, BT_UN_New = KeyButton(TEXT(MSG_NEW_GAD),
                                         TEXT(MSG_SHORTCUT_NEW)[0]),
            Child, BT_UN_Change = KeyButton(TEXT(MSG_CHANGE_GAD),
                                            TEXT(MSG_SHORTCUT_CHANGE)[0]),
            Child, BT_UN_Delete = KeyButton(TEXT(MSG_DELETE_GAD),
                                            TEXT(MSG_SHORTCUT_DELETE)[0]),
            Child, BT_UN_Cancel = KeyButton(TEXT(MSG_CANCEL_TEXT),
                                            TEXT(MSG_SHORTCUT_CANCEL)[0]),
            End, /* ColGroup */
          End, /* HGroup */
         End, /* VGroup */
        End, /* HGroup (GroupFrameT) */
        Child, HGroup,
         Child, ColGroup(3),
          Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
          Child, BT_UN_Close = KeyButton(TEXT(MSG_CLOSEWINDOW_GAD),
                                         TEXT(MSG_SHORTCUT_CLOSEWINDOW)[0]),
          Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
         End,
        End,
       End, /* VGroup (WindowContents) */
      End, /* WindowObject */
      SubWindow, WI_Neu = WindowObject,
       MUIA_Window_ID,  'INIT',
       MUIA_Window_Title, WTitel,
       MUIA_Window_Menu , MUIV_Window_Menu_NoMenu,
       MUIA_HelpNode    , "newwindow",
       
       WindowContents, VGroup,
        Child, ColGroup(3),
         Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
         Child, NE_Title = TextObject,
          TextFrame,
          MUIA_Text_PreParse, "\33c",
         End,
         Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
        End, /* ColGroup */
        Child, HGroup,
         Child, ColGroup(2),
          MUIA_Group_SameSize, TRUE,
          Child, KeyLabel2(TEXT(MSG_SIGN_LABEL),
                           TEXT(MSG_SHORTCUT_SIGN)[0]),
          Child, NE_Gad1 = MyString(19,
                                    TEXT(MSG_SHORTCUT_SIGN)[0]),
          Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
                           TEXT(MSG_SHORTCUT_DATE)[0]),
          Child, NE_Gad2 = MyString(15,
                                    TEXT(MSG_SHORTCUT_DATE)[0]),
          Child, KeyLabel2(TEXT(MSG_KM_LABEL),
                           TEXT(MSG_SHORTCUT_KM)[0]),
          Child, NE_Gad3 = MyInt(8,
                                 TEXT(MSG_SHORTCUT_KM)[0]),
          Child, KeyLabel2(TEXT(MSG_DATEFORMAT_LABEL),
                           TEXT(MSG_SHORTCUT_DATEFORMAT)[0]),
          Child, NE_Gad4 = KeyCycle(Formate, 
                                    TEXT(MSG_SHORTCUT_DATEFORMAT)[0]),
          Child, NE_OK   = KeyButton(TEXT(MSG_OK_TEXT),
                                     TEXT(MSG_SHORTCUT_OK)[0]),
          Child, NE_Cancel = KeyButton(TEXT(MSG_CANCEL_TEXT),
                                       TEXT(MSG_SHORTCUT_CANCEL)[0]),
         End, /* ColGroup */
        End, /* HGroup */
       End, /* VGroup (WContents) */
      End, /* WObject */
     End;      /* ApplicationObject */