119 lines
3.8 KiB
C++
119 lines
3.8 KiB
C++
/*
|
|
* 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/>.
|
|
*
|
|
*/
|
|
/****************************************************************************************
|
|
Rules.cpp
|
|
-----------------------------------------------------------------------------------------
|
|
|
|
CL_Rules (Window)
|
|
|
|
-----------------------------------------------------------------------------------------
|
|
01.01.1997
|
|
****************************************************************************************/
|
|
|
|
#include "Rules.hpp"
|
|
#include "Tools.hpp"
|
|
#include "Images.hpp"
|
|
#include "images/IMG_Moves.c"
|
|
#include <stdio.h> // für sprintf
|
|
|
|
MUI_CustomClass *CL_Rules;
|
|
|
|
/****************************************************************************************
|
|
New
|
|
****************************************************************************************/
|
|
|
|
ULONG Rules_New(struct IClass* cl, Object* obj, struct opSet* msg)
|
|
{
|
|
Object *BT_Ok, *BT_Help;
|
|
Rules_Data tmp;
|
|
|
|
static char version_text[50];
|
|
sprintf(version_text, GetStr(MSG_ABOUT_VERSION), version_number, version_date);
|
|
|
|
obj = (Object*)DoSuperNew(cl, obj,
|
|
MUIA_Window_Title , GetStr(MSG_RULES_TITLE),
|
|
MUIA_HelpNode , "RULES",
|
|
MUIA_Window_SizeGadget, FALSE,
|
|
WindowContents, VGroup,
|
|
|
|
Child, HGroup,
|
|
Child, TextObject,
|
|
MUIA_Text_Contents, GetStr(MSG_RULES_TEXT),
|
|
End,
|
|
|
|
Child, VGroup,
|
|
Child, BodychunkObject,
|
|
MUIA_Weight, 1,
|
|
MUIA_FixWidth , IMG_MOVES_WIDTH,
|
|
MUIA_FixHeight , IMG_MOVES_HEIGHT,
|
|
MUIA_Bitmap_Width , IMG_MOVES_WIDTH,
|
|
MUIA_Bitmap_Height , IMG_MOVES_HEIGHT,
|
|
MUIA_Bodychunk_Depth , IMG_MOVES_DEPTH,
|
|
MUIA_Bodychunk_Body , IMG_Moves_body,
|
|
MUIA_Bodychunk_Compression, IMG_MOVES_COMPRESSION,
|
|
MUIA_Bodychunk_Masking , IMG_MOVES_MASKING,
|
|
MUIA_Bitmap_SourceColors , IMG_Abacus_colors,
|
|
MUIA_Bitmap_Transparent , 0,
|
|
MUIA_ShowSelState , FALSE,
|
|
End,
|
|
Child, HVSpace,
|
|
End,
|
|
|
|
End,
|
|
|
|
Child, HBar(),
|
|
Child, HGroup,
|
|
Child, BT_Help = MakeButton(MSG_RULES_HELP , MSG_RULES_HELP_HELP),
|
|
Child, HVSpace,
|
|
Child, BT_Ok = MakeButton(MSG_ABOUT_OK , MSG_ABOUT_OK_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_Help, MUIM_Notify, MUIA_Pressed , FALSE, MUIV_Notify_Application, 5, MUIM_Application_ShowHelp, NULL, "Abacus.guide", "RULES", 0);
|
|
|
|
|
|
struct Rules_Data* data = (Rules_Data*)INST_DATA(cl, obj);
|
|
*data = tmp;
|
|
return((ULONG)obj);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
/****************************************************************************************
|
|
Dispatcher
|
|
****************************************************************************************/
|
|
|
|
SAVEDS ASM ULONG Rules_Dispatcher(REG(a0) struct IClass* cl,
|
|
REG(a2) Object* obj,
|
|
REG(a1) Msg msg)
|
|
{
|
|
switch(msg->MethodID)
|
|
{
|
|
case OM_NEW : return(Rules_New (cl, obj, (opSet*)msg));
|
|
}
|
|
return DoSuperMethodA(cl, obj, msg);
|
|
}
|