123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145 |
- /*
- * This file is part of Abacus.
- * Copyright (C) 1997 Kai Nickel
- *
- * Abacus is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * Abacus is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with Abacus. If not, see <http://www.gnu.org/licenses/>.
- *
- */
- /****************************************************************************************
- About.cpp
- -----------------------------------------------------------------------------------------
-
- CL_About (Window)
-
- -----------------------------------------------------------------------------------------
- 01.01.1996
- ****************************************************************************************/
-
- #include "About.hpp"
- #include "Tools.hpp"
- #include "Images.hpp"
- #include <stdio.h> // für sprintf
-
- MUI_CustomClass *CL_About;
-
-
- /****************************************************************************************
- AboutMUI
- ****************************************************************************************/
-
- ULONG About_AboutMUI(struct IClass* cl, Object* obj, Msg msg)
- {
- struct About_Data* data = (About_Data*)INST_DATA(cl, obj);
- Object* app = (Object*)xget(obj, MUIA_ApplicationObject);
- Object* aboutwin = AboutmuiObject,
- MUIA_Window_RefWindow , obj,
- MUIA_Aboutmui_Application, app,
- End;
- if (aboutwin) setatt(aboutwin, MUIA_Window_Open, TRUE);
- return 0;
- }
-
-
- /****************************************************************************************
- New
- ****************************************************************************************/
-
- ULONG About_New(struct IClass* cl, Object* obj, struct opSet* msg)
- {
- Object *BT_Ok, *BT_MUI;
- About_Data tmp;
-
- static char version_text[50];
- sprintf(version_text, GetStr(MSG_ABOUT_VERSION), version_number, version_date);
-
- obj = (Object*)DoSuperNew(cl, obj,
- MUIA_HelpNode , "COPYRIGHT",
- MUIA_Window_LeftEdge , MUIV_Window_LeftEdge_Centered,
- MUIA_Window_TopEdge , MUIV_Window_TopEdge_Centered,
- MUIA_Window_CloseGadget, FALSE,
- MUIA_Window_DepthGadget, FALSE,
- MUIA_Window_SizeGadget , FALSE,
- MUIA_Window_DragBar , FALSE,
- MUIA_Window_Borderless , TRUE,
-
- WindowContents, VGroup, ButtonFrame,
-
- Child, HGroup,
- Child, HVSpace,
- Child, MakeImage(IMG_Logo_body, IMG_LOGO_WIDTH, IMG_LOGO_HEIGHT,
- IMG_LOGO_DEPTH, IMG_LOGO_COMPRESSION, IMG_LOGO_MASKING,
- IMG_Abacus_colors),
- Child, VGroup,
- Child, MakeImage(IMG_Abacus_body, IMG_ABACUS_WIDTH, IMG_ABACUS_HEIGHT,
- IMG_ABACUS_DEPTH, IMG_ABACUS_COMPRESSION,
- IMG_ABACUS_MASKING, IMG_Abacus_colors),
- Child, TextObject,
- MUIA_Text_Contents, version_text,
- MUIA_Font , MUIV_Font_Tiny,
- End,
- End,
- Child, HVSpace,
- End,
-
- Child, HBar(),
-
- Child, HGroup,
- Child, HVSpace,
- Child, TextObject,
- MUIA_Text_Contents, GetStr(MSG_ABOUT_TEXT),
- End,
- Child, HVSpace,
- End,
-
- Child, HBar(),
- Child, HGroup,
- Child, BT_Ok = MakeButton(MSG_ABOUT_OK , MSG_ABOUT_OK_HELP ),
- Child, BT_MUI = MakeButton(MSG_ABOUT_MUI, MSG_ABOUT_MUI_HELP),
- End,
-
- End,
-
- TAG_MORE, msg->ops_AttrList);
-
- if (obj)
- {
- DoMethod(obj , MUIM_Notify, MUIA_Window_CloseRequest, TRUE , obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
- DoMethod(BT_Ok , MUIM_Notify, MUIA_Pressed , FALSE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
- DoMethod(BT_MUI, MUIM_Notify, MUIA_Pressed , FALSE, obj, 1, MUIM_About_AboutMUI);
-
-
-
- struct About_Data* data = (About_Data*)INST_DATA(cl, obj);
- *data = tmp;
- return (ULONG)obj;
- }
- return 0;
- }
-
-
- /****************************************************************************************
- Dispatcher
- ****************************************************************************************/
-
- SAVEDS ASM ULONG About_Dispatcher(REG(a0) struct IClass* cl,
- REG(a2) Object* obj,
- REG(a1) Msg msg)
- {
- switch(msg->MethodID)
- {
- case OM_NEW : return(About_New (cl, obj, (opSet*)msg));
- case MUIM_About_AboutMUI: return(About_AboutMUI(cl, obj, msg));
- }
- return DoSuperMethodA(cl, obj, msg);
- }
|