ULONG RGOM_RegisterUI(SW_IDATA *idata, SWP_RegUI *UI)
{
Object *g;
LONG x;
if (!idata->RegWin) {
idata->RegWin = WindowObject,
MUIA_Window_Title, "Registration",
MUIA_Window_ID, MAKE_ID('r','g','s','r'),
WindowContents, VGroup,
Child, ScrollgroupObject,
MUIA_Scrollgroup_FreeHoriz, FALSE,
MUIA_Scrollgroup_Contents, VirtgroupObject,
VirtualFrame,
Child, g = ColGroup(3),
GroupFrameT("Registration Information"),
End,
End,
End,
Child, HGroup, GroupFrame,
Child, idata->B_Generate = SimpleButton("_Generate"),
Child, idata->B_Cancel = SimpleButton("_Cancel"),
End,
End,
End;
if (!idata->RegWin) return FAILURE;
for (x=0; RG_ParseTable[x].Keyword; x++) {
DoMethod(g, OM_ADDMEMBER, Label2(RG_ParseTable[x].Keyword));
DoMethod(g, OM_ADDMEMBER,
idata->Gads[x] =String("", SWF_CryptLineSize));
set(idata->Gads[x], MUIA_CycleChain, 1);
set(idata->Gads[x], MUIA_String_AdvanceOnCR, 1);
DoMethod(g, OM_ADDMEMBER,
Label2(RG_ParseTable[x].Required ? "Req" : "Opt"));
}
set(idata->B_Generate, MUIA_CycleChain, 1);
set(idata->B_Cancel, MUIA_CycleChain, 1);
DoMethod(idata->B_Generate, MUIM_Notify, MUIA_Pressed, FALSE,
UI->App, 6, MUIM_CallHook, &RGOM_Hook_Generate,
idata, UI->Prog, UI->Cost1, UI->Cost2);
SW_NOTIFYSINGLE(idata->B_Cancel, MUIA_Pressed, FALSE,
idata->RegWin, MUIA_Window_Open, FALSE);
SW_NOTIFYCLOSEWIN(idata->RegWin);
DoMethod(UI->App, OM_ADDMEMBER, idata->RegWin);
}
if (!idata->RegWin) return FAILURE;
set(idata->RegWin, MUIA_Window_Open, TRUE);
return SUCCESS;
}
void OptionsMenu::Render() {
UIPage::Render();
sf::String Label("Label", ContentFnt, 30);
sf::String Label2("Value", ContentFnt, 30);
sf::Shape Button = sf::Shape::Rectangle(-200, -20, 200, 20, sf::Color(127.f, 127.f, 127.f), 2, sf::Color::Black);
Button.SetPosition(context->window->GetWidth() / 2, 150);
for (int i = 0; i < Options.size(); i++) {
Button.Move(0, 60);
if (i == Current)
Button.SetColor(sf::Color(220.f, 220.f, 220.f, 180.f));
else
Button.SetColor(sf::Color(127.f, 127.f, 127.f, 180.f));
Label.SetText(Options[i].Label);
if (Options[i].Type == 0)
Label2.SetText((Options[i].Value.compare("on") == 0) ? "On" : "Off");
else if (Options[i].Type == 2)
Label2.SetText(Options[i].Value);
Label.SetPosition(Button.GetPosition().x - 190, Button.GetPosition().y - 20);
Label2.SetPosition(Button.GetPosition().x + 190 - Label2.GetRect().GetWidth(), Button.GetPosition().y - 20);
context->window->Draw(Button);
context->window->Draw(Label);
context->window->Draw(Label2);
}
}
Object *CreatePrefs(struct Toolbar_DataP *data)
{
Object **objs = data->Gadgets;
Object *textgroup, *imagegroup;
Object *prefsgroup;
static STRPTR LookStrings[4];
static STRPTR BorderTypeStrings[4];
static STRPTR SelectionModeStrings[4];
static STRPTR PrecisionStrings[5];
static STRPTR GhostEffectStrings[5];
BorderTypeStrings[0] = LOCALE(MSG_BORDERTYPE_OLD, "Old");
BorderTypeStrings[1] = LOCALE(MSG_BORDERTYPE_OFF, "Off");
BorderTypeStrings[2] = LOCALE(MSG_BORDERTYPE_NEW, "New");
BorderTypeStrings[3] = NULL;
SelectionModeStrings[0] = LOCALE(MSG_SELECTIONMODE_OLD, "Old");
SelectionModeStrings[1] = LOCALE(MSG_SELECTIONMODE_OFF, "Off");
SelectionModeStrings[2] = LOCALE(MSG_SELECTIONMODE_NEW, "New");
SelectionModeStrings[3] = NULL;
LookStrings[0] = LOCALE(MSG_IMAGETEXT, "Image and Text");
LookStrings[1] = LOCALE(MSG_IMAGEONLY, "Image only");
LookStrings[2] = LOCALE(MSG_TEXTONLY, "Text only");
LookStrings[3] = NULL;
PrecisionStrings[0] = LOCALE(MSG_EXACT, "Exact");
PrecisionStrings[1] = LOCALE(MSG_IMAGE, "Image");
PrecisionStrings[2] = LOCALE(MSG_ICON, "Icon");
PrecisionStrings[3] = LOCALE(MSG_GUI, "GUI");
PrecisionStrings[4] = NULL;
// GhostEffectStrings[0] = LOCALE(MSG_DIMMMED, "Dimmed"); // Temporarily disabled - remember +-1
GhostEffectStrings[0] = LOCALE(MSG_LIGHT, "Light Grid");
GhostEffectStrings[1] = LOCALE(MSG_HEAVY, "Heavy Grid");
GhostEffectStrings[2] = LOCALE(MSG_SUPERLIGHT, "Superlight Grid");
GhostEffectStrings[3] = NULL;
prefsgroup =
VGroup,
Child, VGroup,
Child, HGroup,
// MUIA_Group_SameWidth, TRUE,
/********************************* General *********************************/
Child, HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_GENERAL, "General"),
Child, RectangleObject, End,
Child, VGroup,
Child, RectangleObject, End,
Child, objs[Look] = RadioObject,
// MUIA_FrameTitle, "Toolbar look",
MUIA_Radio_Entries, LookStrings,
End,
Child, RectangleObject, End,
End,
//ghosttype
Child, RectangleObject, End,
End,
/********************************* Image *********************************/
Child, imagegroup = HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_IMAGE, "Image"),
Child, RectangleObject, End,
Child, VGroup,
Child, RectangleObject, End,
Child, HGroup,
Child, RectangleObject, End,
Child, VGroup,
Child, Label(LOCALE(MSG_USEIMAGES1, "\33cUse ghosted/selected images")),
// Child, MUI_MakeObject(MUIO_Label, LOCALE(MSG_USEIMAGES2, "\33c(if they are available)"), MUIO_Label_Tiny),
Child, TextObject,
MUIA_Text_Contents, LOCALE(MSG_USEIMAGES2, "\33c(if they are available)"),
MUIA_Font, MUIV_Font_Tiny,
End,
End,
Child, objs[UseImages] = CheckMark(TRUE),
// Child, RectangleObject, End,
End,
Child, ColGroup(2),
// Child, HGroup,
Child, Label(LOCALE(MSG_REMAP, "Remap Precision")),
Child, objs[Precision] = Cycle(PrecisionStrings),
// End,
// Child, HGroup,
Child, Label(LOCALE(MSG_GHOSTEFFECT, "Ghosting effect")),
Child, objs[GhostEffect] = Cycle(GhostEffectStrings),
// End,
End,
Child, RectangleObject, End,
End,
Child, RectangleObject, End,
End,
End,
/********************************* Spacing *********************************/
Child, HGroup,
Child, HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_SPACING, "Spacing"),
Child, VGroup,
Child, RectangleObject, End,
Child, ColGroup(2),
Child, Label(LOCALE(MSG_GROUPSPACE, "Group Space")),
Child, objs[GroupSpace] = SliderObject,
MUIA_Slider_Min, -1,
MUIA_Slider_Max, 50,
End,
Child, Label(LOCALE(MSG_TOOLSPACE, "Tool Space")),
Child, objs[ToolSpace] = SliderObject,
MUIA_Slider_Min, -1,
MUIA_Slider_Max, 10,
End,
Child, VGroup,
Child, Label(LOCALE(MSG_INNERSPACE, "\33cInner Space")),
// Child, MUI_MakeObject(MUIO_Label,LOCALE(MSG_INNERSPACE_WITH, "\33c(with tooltext)"), MUIO_Label_Tiny),
Child, TextObject,
MUIA_Text_Contents, LOCALE(MSG_INNERSPACE_WITH, "\33c(with tooltext)"),
MUIA_Font, MUIV_Font_Tiny,
End,
End,
Child, objs[InnerSpace_Text] = SliderObject,
MUIA_Slider_Min, 0,
MUIA_Slider_Max, 10,
End,
Child, VGroup,
Child, Label(LOCALE(MSG_INNERSPACE, "\33cInner Space")),
// Child, MUI_MakeObject(MUIO_Label,LOCALE(MSG_INNERSPACE_WITHOUT, "\33c(without tooltext)"), MUIO_Label_Tiny),
Child, TextObject,
MUIA_Text_Contents, LOCALE(MSG_INNERSPACE_WITHOUT, "\33c(without tooltext)"),
MUIA_Font, MUIV_Font_Tiny,
End,
End,
Child, objs[InnerSpace_NoText] = SliderObject,
MUIA_Slider_Min, 0,
MUIA_Slider_Max, 10,
MUIA_Disabled, TRUE,
End,
// some kind of relative mode
// width: fixed/floating
End,
Child, RectangleObject, End,
End,
End,
/********************************* Text *********************************/
Child, textgroup = HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_TEXT, "Text"),
Child, VGroup,
Child, RectangleObject, End,
/* Child, HGroup,
Child, RectangleObject, End,
Child, Label(LOCALE(MSG_PLACEMENT, "Placement")),
Child, data->CY_Placement = Cycle(CY_textplacement),
// Child, RectangleObject, End,
End,
*/ Child, ColGroup(2),
// Child, VGroup,
Child, Label(LOCALE(MSG_COLOR, "Text Color")),
// End,
// Child, VGroup,
Child, objs[ToolPen] = PoppenObject,
MUIA_Window_Title, LOCALE(MSG_ADJUST, "Adjust Text Color"),
MUIA_Draggable, TRUE,
MUIA_ShortHelp, LOCALE(MSG_COLOR_HELP, "Color of the tool texts."),
End,
Child, Label2(LOCALE(MSG_FONT, "Text Font")),
Child, data->FontASL = PopaslObject,
MUIA_Popstring_String, objs[ToolFont] = String(0,35),
MUIA_Popstring_Button, PopButton(MUII_PopUp),
MUIA_Popasl_Type , ASL_FontRequest,
ASLFO_TitleText , LOCALE(MSG_SELECT, "Please select a text font..."),
End,
// End,
End,
Child, RectangleObject, End,
End,
End,
End,
// Sløringseffekt: Normal, 3D, ...
End,
/*
Child, HGroup,
Child, HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_BORDERTYPE, "Border Type"),
InnerSpacing(12, 12),
Child, objs[BorderType] = Cycle(BorderTypeStrings),
End,
Child, VGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_SELECTIONMODE, "Selection Border"),
InnerSpacing(12, 12),
Child, objs[SelectionMode] = Cycle(SelectionModeStrings),
Child, HGroup,
Child, Label2(LOCALE(MSG_AUTOACTIVE, "Show Active on Mousehi")),
Child, objs[AutoActive] = CheckMark(TRUE),
End,
End,
End,
*/
Child, HGroup,
Child, HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_BORDERTYPE, "Border Type"),
Child, RectangleObject, End,
Child, VGroup,
Child, RectangleObject, End,
Child, objs[BorderType] = Cycle(BorderTypeStrings),
Child, RectangleObject, End,
End,
Child, RectangleObject, End,
End,
Child, HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Frame , MUIV_Frame_Group,
MUIA_FrameTitle, LOCALE(MSG_SELECTIONMODE, "Selection Border"),
Child, RectangleObject, End,
Child, VGroup,
Child, RectangleObject, End,
MUIA_Weight, 200,
Child, objs[SelectionMode] = Cycle(SelectionModeStrings),
Child, HGroup,
Child, Label2(LOCALE(MSG_AUTOACTIVE, "Show Active on Mousehit")),
Child, objs[AutoActive] = CheckMark(TRUE),
End,
Child, RectangleObject, End,
End,
Child, RectangleObject, End,
End,
End,
Child, TextObject,
TextFrame,
MUIA_Background, MUII_TextBack,
MUIA_FixHeightTxt, "\n\n",
MUIA_Text_Contents, ABOUTTEXT,
End,
End;
if(prefsgroup)
{
DoMethod(objs[Look], MUIM_Notify, MUIA_Radio_Active, 0, textgroup, 6, MUIM_MultiSet, MUIA_Disabled, FALSE, textgroup, imagegroup, objs[InnerSpace_Text]);
DoMethod(objs[Look], MUIM_Notify, MUIA_Radio_Active, 1, textgroup, 5, MUIM_MultiSet, MUIA_Disabled, TRUE, textgroup, objs[InnerSpace_Text]);
DoMethod(objs[Look], MUIM_Notify, MUIA_Radio_Active, 2, textgroup, 5, MUIM_MultiSet, MUIA_Disabled, FALSE, textgroup, objs[InnerSpace_Text]);
DoMethod(objs[Look], MUIM_Notify, MUIA_Radio_Active, 0, objs[InnerSpace_NoText], 3, MUIM_Set, MUIA_Disabled, TRUE);
DoMethod(objs[Look], MUIM_Notify, MUIA_Radio_Active, 1, imagegroup, 5, MUIM_MultiSet, MUIA_Disabled, FALSE, imagegroup, objs[InnerSpace_NoText]);
DoMethod(objs[Look], MUIM_Notify, MUIA_Radio_Active, 2, imagegroup, 5, MUIM_MultiSet, MUIA_Disabled, TRUE, imagegroup, objs[InnerSpace_NoText]);
}
return prefsgroup;
}
struct WCSScreenMode *ModeList_Choose(struct WCSScreenMode *This,
struct WCSScreenData *ScrnData)
{
static const char *Cycle_OSCAN[] = {"None", "Text", "Standard", "Max", "Video", NULL};
struct WCSScreenMode *Scan, *Selected;
APTR ModeSelWin, SM_Save, SM_Use, SM_Exit, SM_Width, SM_Height, SM_List, SM_Text, SM_OSCAN;
ULONG Signalz, Finished, ReturnID;
int CheckVal, Update;
char *ModeText, ModeInfo[255];
ModeSelWin = WindowObject,
MUIA_Window_Title, "World Construction Set Screenmode",
MUIA_Window_ID, "SCRN",
MUIA_Window_SizeGadget, TRUE,
WindowContents, VGroup,
Child, ColGroup(2), MUIA_Group_SameWidth, TRUE,
MUIA_Group_HorizSpacing, 4, MUIA_Group_VertSpacing, 3,
Child, VGroup, /* MUIA_HorizWeight, 150, */
Child, TextObject, MUIA_Text_Contents, "\33cDisplay Mode", End,
Child, SM_List = ListviewObject,
MUIA_Listview_Input, TRUE,
MUIA_Listview_List, ListObject, ReadListFrame, End,
End,
End,
Child, VGroup,
Child, TextObject, MUIA_Text_Contents, "\33cMode Information", End,
Child, SM_Text = FloattextObject, ReadListFrame,
MUIA_Floattext_Text, "Mode: \nRes : \nAuto: \nScan: \n\nAttributes\n\n\n", End,
End,
Child, HGroup,
Child, Label2("Overscan: "),
Child, SM_OSCAN = CycleObject, MUIA_Cycle_Entries, Cycle_OSCAN, End,
End,
Child, HGroup,
Child, RectangleObject, End,
Child, HGroup, MUIA_Group_HorizSpacing, 0,
Child, Label2("Width "), /* No End (in sight) */
Child, SM_Width = StringObject, StringFrame,
MUIA_String_Integer, 0,
MUIA_String_Accept, "0123456789",
MUIA_FixWidthTxt, "01234",
End,
End,
Child, RectangleObject, End,
Child, HGroup, MUIA_Group_HorizSpacing, 0,
Child, Label2("Height "), /* No End (in sight) */
Child, SM_Height = StringObject, StringFrame,
MUIA_String_Integer, 0,
MUIA_String_Accept, "0123456789",
MUIA_FixWidthTxt, "01234",
End,
End,
Child, RectangleObject, End,
End,
End,
Child, RectangleObject, MUIA_FixHeight, 4, End,
Child, HGroup, MUIA_HorizWeight, 1,
/* Button button button. Who's got the button? */
MUIA_Group_SameSize, TRUE,
Child, SM_Save = KeyButtonObject('s'), MUIA_Text_Contents, "\33cSave", MUIA_HorizWeight, 200, End,
Child, RectangleObject, MUIA_HorizWeight, 1, End,
Child, SM_Use = KeyButtonObject('u'), MUIA_Text_Contents, "\33cUse", MUIA_HorizWeight, 200, End,
Child, RectangleObject, MUIA_HorizWeight, 1, End,
Child, SM_Exit = KeyButtonObject('e'), MUIA_Text_Contents, "\33cExit", MUIA_HorizWeight, 200, End,
End,
End,
End;
if(ModeSelWin)
{
DoMethod(ModeSelWin, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
app, 2, MUIM_Application_ReturnID, ID_SM_EXIT);
MUI_DoNotiPresFal(app, SM_Exit, ID_SM_EXIT,
SM_Use, ID_SM_USE, SM_Save, ID_SM_SAVE, NULL);
DoMethod(SM_List, MUIM_Notify, MUIA_List_Active, MUIV_EveryTime,
app, 2, MUIM_Application_ReturnID, ID_SM_LIST);
DoMethod(SM_OSCAN, MUIM_Notify, MUIA_Cycle_Active, MUIV_EveryTime,
app, 2, MUIM_Application_ReturnID, ID_SM_OSCAN);
DoMethod(SM_Width, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
app, 2, MUIM_Application_ReturnID, ID_SM_WIDTH);
DoMethod(SM_Height, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
app, 2, MUIM_Application_ReturnID, ID_SM_HEIGHT);
DoMethod(ModeSelWin, MUIM_Window_SetCycleChain,
SM_List, SM_Save, SM_Use, SM_Exit, SM_OSCAN, SM_Width, SM_Height, NULL);
set(ModeSelWin, MUIA_Window_ActiveObject, SM_Save);
for(Scan = This; Scan; Scan = Scan->Next)
{
DoMethod(SM_List, MUIM_List_InsertSingle, Scan->ModeName, MUIV_List_Insert_Sorted);
} /* for */
set(SM_List, MUIA_List_Active, MUIV_List_Active_Top);
DoMethod(app, OM_ADDMEMBER, ModeSelWin);
#ifdef WCS_MUI_2_HACK
/* This is not needed here, but will be when ScreenMode selection
** can be done from within the program. */
/* MUI2_MenuCheck_Hack(); */
#endif /* WCS_MUI_2_HACK */
set(ModeSelWin, MUIA_Window_Open, TRUE);
} /* if */
Selected = This;
for(Finished = NULL; !Finished;)
{
if(ReturnID = DoMethod(app, MUIM_Application_Input, &Signalz))
{
switch(ReturnID)
{
case ID_SM_OSCAN:
{
/* Do not break, fall through to below. */
} /* ID_SM_OSCAN */
case ID_SM_LIST:
{
get(SM_List, MUIA_List_Active, &CheckVal);
DoMethod(SM_List, MUIM_List_GetEntry, CheckVal, &ModeText);
for(Scan = This; Scan;)
{
Selected = Scan;
if((unsigned char *)&Scan->ModeName == ModeText)
{
Scan = NULL;
} /* if */
else
Scan = Scan->Next;
} /* for */
get(SM_OSCAN, MUIA_Cycle_Active, &CheckVal);
Update = 1;
if(Selected->UX != Selected->OX)
Update = 0;
if(Selected->UY != Selected->OY)
Update = 0;
if(CheckVal == 0)
{
Selected->OX = Selected->X;
Selected->OY = Selected->Y;
} /* if */
else
{
Selected->OX = Selected->OScans[CheckVal - 1].x;
Selected->OY = Selected->OScans[CheckVal - 1].y;
} /* else */
if(Update)
{
Selected->UX = Selected->OX;
Selected->UY = Selected->OY;
} /* if */
sprintf(ModeInfo, "Mode: 0x%08lx\nRes : %dx%d - %dx%d\nAuto: %dx%d\nScan: %dns\n\nAttributes\n",
Selected->ModeID, Selected->X, Selected->Y, Selected->OX, Selected->OY,
Selected->MaxX, Selected->MaxY, Selected->PixelSpeed);
if(Selected->PropertyFlags & DIPF_IS_LACE)
strcat(ModeInfo,"Laced ");
if(Selected->PropertyFlags & DIPF_IS_HAM)
strcat(ModeInfo,"HAM ");
if(Selected->PropertyFlags & DIPF_IS_ECS)
strcat(ModeInfo,"ECS ");
if(Selected->PropertyFlags & DIPF_IS_AA)
strcat(ModeInfo,"AGA ");
if(Selected->PropertyFlags & DIPF_IS_PAL)
strcat(ModeInfo,"PAL ");
if(Selected->PropertyFlags & DIPF_IS_GENLOCK)
strcat(ModeInfo,"Genlockable ");
if(Selected->PropertyFlags & DIPF_IS_DRAGGABLE)
strcat(ModeInfo,"Draggable ");
if(Selected->PropertyFlags & DIPF_IS_PANELLED)
strcat(ModeInfo,"Panelled ");
if(Selected->PropertyFlags & DIPF_IS_EXTRAHALFBRITE)
strcat(ModeInfo,"EHB ");
if(Selected->PropertyFlags & DIPF_IS_FOREIGN)
strcat(ModeInfo,"Foreign ");
set(SM_Text, MUIA_Floattext_Text, ModeInfo);
set(SM_Width, MUIA_String_Integer, Selected->UX);
set(SM_Height, MUIA_String_Integer, Selected->UY);
break;
} /* ID_SM_LIST */
case ID_SM_HEIGHT:
{
get(SM_Height, MUIA_String_Integer, &CheckVal);
if(CheckVal < Selected->OY)
{
CheckVal = Selected->OY;
set(SM_Height, MUIA_String_Integer, CheckVal);
set(ModeSelWin, MUIA_Window_ActiveObject, SM_Height);
} /* if */
else if(CheckVal > Selected->MaxY)
{
CheckVal = Selected->MaxY;
set(SM_Height, MUIA_String_Integer, CheckVal);
set(ModeSelWin, MUIA_Window_ActiveObject, SM_Height);
} /* else if */
else
set(ModeSelWin, MUIA_Window_ActiveObject, SM_Width);
Selected->UY = CheckVal;
break;
} /* ID_SM_HEIGHT */
case ID_SM_WIDTH:
{
get(SM_Width, MUIA_String_Integer, &CheckVal);
if(CheckVal < Selected->OX)
{
CheckVal = Selected->OX;
set(SM_Width, MUIA_String_Integer, CheckVal);
set(ModeSelWin, MUIA_Window_ActiveObject, SM_Width);
} /* if */
else if(CheckVal > Selected->MaxX)
{
CheckVal = Selected->MaxX;
set(SM_Width, MUIA_String_Integer, CheckVal);
set(ModeSelWin, MUIA_Window_ActiveObject, SM_Width);
} /* else if */
else
set(ModeSelWin, MUIA_Window_ActiveObject, SM_Height);
Selected->UX = CheckVal;
break;
} /* ID_SM_WIDTH */
case ID_SM_SAVE:
{
ScrnData->ModeID = Selected->ModeID;
ScrnData->Width = Selected->UX;
ScrnData->Height = Selected->UY;
/* Do something more here */
} /* ID_SM_SAVE */
case ID_SM_USE:
{
Finished = 1;
get(SM_Height, MUIA_String_Integer, &CheckVal);
if(CheckVal < Selected->OY)
{
CheckVal = Selected->OY;
set(SM_Height, MUIA_String_Integer, CheckVal);
Finished = 0;
} /* if */
if(CheckVal > Selected->MaxY)
{
CheckVal = Selected->MaxY;
set(SM_Height, MUIA_String_Integer, CheckVal);
Finished = 0;
} /* if */
Selected->UY = CheckVal;
get(SM_Width, MUIA_String_Integer, &CheckVal);
if(CheckVal < Selected->OX)
{
CheckVal = Selected->OX;
set(SM_Width, MUIA_String_Integer, CheckVal);
Finished = 0;
} /* if */
if(CheckVal > Selected->MaxX)
{
CheckVal = Selected->MaxX;
set(SM_Width, MUIA_String_Integer, CheckVal);
Finished = 0;
} /* if */
Selected->UX = CheckVal;
if(Finished)
{
DoMethod(app, OM_REMMEMBER, ModeSelWin);
MUI_DisposeObject(ModeSelWin);
return(Selected);
} /* if */
break;
} /* ID_SM_USE */
case ID_SM_EXIT:
{
return(NULL);
break;
} /* ID_SM_EXIT */
} /* switch */
} /* if */
else
{
if(!Finished)
{
Wait(Signalz);
} /* if */
} /* else */
} /* for */
#ifdef PRINTMODES_DEBUG
for(Scan = This; Scan; Scan = Scan->Next)
{
printf("%08lx: ", Scan->ModeID);
printf("\"%s\" ", Scan->ModeName);
printf("%ld x %ld - %ld x %ld.\n", Scan->X, Scan->Y, Scan->OX, Scan->OY);
printf("%dns ", Scan->PixelSpeed);
if(Scan->PropertyFlags & DIPF_IS_LACE)
printf("Laced ");
if(Scan->PropertyFlags & DIPF_IS_HAM)
printf("HAM ");
if(Scan->PropertyFlags & DIPF_IS_ECS)
printf("ECS ");
if(Scan->PropertyFlags & DIPF_IS_AA)
printf("AGA ");
if(Scan->PropertyFlags & DIPF_IS_PAL)
printf("PAL ");
if(Scan->PropertyFlags & DIPF_IS_GENLOCK)
printf("Genlockable ");
if(Scan->PropertyFlags & DIPF_IS_DRAGGABLE)
printf("Draggable ");
if(Scan->PropertyFlags & DIPF_IS_PANELLED)
printf("Panelled ");
if(Scan->PropertyFlags & DIPF_IS_EXTRAHALFBRITE)
printf("EHB ");
if(Scan->PropertyFlags & DIPF_IS_FOREIGN)
printf("Foreign ");
printf("\n");
} /* for */
#endif /* PRINTMODES_DEBUG */
} /* ModeList_Choose() */
static ULONG CreateObj(Object *o, SW_IDATA *idata, struct TagItem *ti)
{
Object *g, *to, *b_Add, *b_Del, *b_Sort, *b_Reset,
*b_MkDef = NULL, *b_RdEnv;
ULONG Tiny = GetTagUL(SWA_NServerList_Tiny, NULL, ti);
Object *SObj = GetTagObj(SWA_NServerList_HostStrObj, NULL, ti);
if (Tiny && !SObj) SWDB_RET(FAILURE);
set(o, MUIA_Group_Horiz, FALSE);
if (!Tiny) {
DoMethod(o, OM_ADDMEMBER,
to = SWUI_FrameText(GetS(SWS_L_TopTitle), 0,
(HGroup,
Child, (Object *)
DoMethod(idata->SWA_NServerList_ListCol,
SWM_ListCol_Popup,
'-', GetS(SWS_H_ListCol)),
Child, (Object *)
DoMethod(idata->SWA_NServerList_ListCol,
SWM_ListCol_ClipBt,
'c', GetS(SWS_H_Clip)),
End), NULL));
if (!to) return FAILURE;
}
DoMethod(o, OM_ADDMEMBER,
idata->SWA_NList_LV = ListviewObject,
MUIA_CycleChain, 1,
MUIA_Listview_Input, TRUE,
MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
MUIA_Listview_DragType, MUIV_Listview_DragType_Immediate,
MUIA_Listview_List, idata->SWA_NList_L = ObjListObject,
InputListFrame,
SWA_ObjList_Object, o,
MUIA_List_Format, DoMethod(idata->SWA_NServerList_ListCol,
SWM_ListCol_BuildFmt),
MUIA_List_DragSortable, TRUE,
MUIA_List_Title, TRUE,
MUIA_List_DisplayHook, &idata->DspHook,
MUIA_List_DestructHook, &idata->DstHook,
MUIA_List_CompareHook, &idata->CmpHook,
End,
End);
if (!idata->SWA_NList_LV) return FAILURE;
SWM_SetListColNotify(idata->SWA_NServerList_ListCol, idata->SWA_NList_L);
if (!Tiny) {
static STRPTR TypeLab[4];
TypeLab[0] = GetS(SWS_L_TypeNNTP);
TypeLab[1] = GetS(SWS_L_TypeFTP);
TypeLab[2] = NULL;
DoMethod(idata->SWA_NList_L, MUIM_Notify,
MUIA_List_Entries, MUIV_EveryTime,
to, 4, MUIM_SetAsString, MUIA_Text_Contents,
GetS(SWS_L_TopTitle), MUIV_TriggerValue);
DoMethod(o, OM_ADDMEMBER,
g = VGroup,
MUIA_Background, MUII_GroupBack,
Child, ColGroup(2),
Child, b_Add = MkBt(SWS_B_Add, SWS_H_Add),
Child, HGroup,
Child, s_Host = StringObject,
StringFrame,
MUIA_CycleChain, 1,
MUIA_HorizWeight, 5000,
End,
Child, Label2(GetS(SWS_L_Type)),
Child, s_Type = CycleObject,
MUIA_Cycle_Entries, TypeLab,
MUIA_CycleChain, 1,
MUIA_ShortHelp, GetS(SWS_H_Type),
MUIA_Disabled, TRUE,
End,
End,
Child, Label2(GetS(SWS_L_Port)),
Child, s_Port = NewObject(SWObjStringClass(), NULL,
StringFrame,
MUIA_CycleChain, 1,
MUIA_String_Accept, "0123456879",
MUIA_String_MaxLen, 8,
MUIA_ShortHelp, GetS(SWS_H_Port),
MUIA_Disabled, TRUE,
TAG_DONE),
Child, Label2(GetS(SWS_L_CxTO)),
Child, s_CxTO = NewObject(SWTimesliderClass(), NULL,
MUIA_Numeric_Min, 5*1000,
MUIA_Numeric_Max, 10*60*1000,
MUIA_Numeric_Value, 30*1000,
MUIA_CycleChain, 1,
MUIA_ShortHelp, GetS(SWS_H_CxTO),
MUIA_Disabled, TRUE,
TAG_DONE),
Child, Label2(GetS(SWS_L_CxRT)),
Child, s_CxRT = NewObject(SWTimesliderClass(), NULL,
MUIA_Numeric_Min, 5*1000,
MUIA_Numeric_Max, 10*60*1000,
MUIA_Numeric_Value, 30*1000,
MUIA_CycleChain, 1,
MUIA_ShortHelp, GetS(SWS_H_CxRT),
MUIA_Disabled, TRUE,
TAG_DONE),
Child, Label2(GetS(SWS_L_CxMR)),
Child, s_CxMR = SliderObject,
MUIA_Numeric_Min, 0,
MUIA_Numeric_Max, 50,
MUIA_Numeric_Value, 5,
MUIA_CycleChain, 1,
MUIA_ShortHelp, GetS(SWS_H_CxMR),
MUIA_Disabled, TRUE,
End,
Child, Label2(GetS(SWS_L_AUser)),
Child, HGroup,
Child, s_User = StringObject,
StringFrame,
MUIA_CycleChain, 1,
MUIA_ShortHelp, GetS(SWS_H_AuthUser),
MUIA_String_MaxLen, 48,
MUIA_Disabled, TRUE,
End,
Child, Label2(GetS(SWS_L_APass)),
Child, s_Pass = StringObject,
StringFrame,
MUIA_CycleChain, 1,
MUIA_String_Secret, TRUE,
MUIA_ShortHelp, GetS(SWS_H_AuthPass),
MUIA_String_MaxLen, 48,
MUIA_Disabled, TRUE,
End,
End,
End,
Child, HGroup,
MUIA_Group_SameSize, TRUE,
Child, b_Del = MkBt(SWS_B_Del, SWS_H_Del),
Child, b_Sort = MkBt(SWS_B_Sort, SWS_H_Sort),
Child, b_Reset = MkBt(SWS_B_Reset, SWS_H_Reset),
Child, b_MkDef = MkBt(SWS_B_MkDef, SWS_H_MkDef),
Child, b_RdEnv = MkBt(SWS_B_RdEnv, SWS_H_RdEnv),
End,
End);
s_CxTOAttr = SWA_NServer_CxTimeout;
s_CxTODef = 30*1000;
s_CxTOGAttr = MUIA_Numeric_Value;
s_CxRTAttr = SWA_NServer_RetryDelay;
s_CxRTDef = 30*1000;
s_CxRTGAttr = MUIA_Numeric_Value;
s_CxMRAttr = SWA_NServer_MaxRetries;
s_CxMRDef = 0,
s_CxMRGAttr = MUIA_Numeric_Value;
s_UserAttr = SWA_NServer_AuthUser;
s_PassAttr = SWA_NServer_AuthPass;
s_TypeAttr = SWA_NServer_Type;
s_TypeDef = SWV_NServer_Type_NNTP;
s_TypeGAttr = MUIA_Cycle_Active;
s_PortAttr = SWA_NServer_Port;
s_PortGAttr = SWA_ObjString_NumVal;
} else {
if (!(idata->FmtSlider = NewObject(SWTimesliderClass(), NULL, TAG_DONE)))
return FAILURE;
DoMethod(o, OM_ADDMEMBER,
g = HGroup,
MUIA_Background, MUII_GroupBack,
MUIA_Group_SameSize, TRUE,
Child, b_Add = MkBt(SWS_B_Add, SWS_H_Add),
Child, b_Del = MkBt(SWS_B_Del, SWS_H_Del),
Child, b_Sort = MkBt(SWS_B_Sort, SWS_H_Sort),
Child, b_Reset = MkBt(SWS_B_Reset, SWS_H_Reset),
Child, b_RdEnv = MkBt(SWS_B_RdEnv, SWS_H_RdEnv),
End);
s_Host = SObj;
}
if (!g) return FAILURE;
SetAttrs(s_Host,
MUIA_Disabled, TRUE,
MUIA_String_AttachedList, idata->SWA_NList_LV,
TAG_DONE);
s_HostAttr = SWA_NServer_Host;
DoMethod(b_Sort, NOTP, o, 1, MUIM_List_Sort);
DoMethod(b_Del, NOTP, o, 1, SWM_NList_RemoveSel);
DoMethod(b_Add, NOTP, o, 2, SWM_NList_Add, NULL);
DoMethod(b_RdEnv, NOTP, o, 2, SWM_NServerList_NNTPSERVER, TRUE);
if (b_MkDef) {
DoMethod(b_MkDef, NOTP, o, 1, SWM_NServerList_ResetDefault);
DoMethod(b_MkDef, NOTP, o, 8, SWM_Root_ListDoMethod,
idata->SWA_NList_LV, SWV_ListDoMethod_Active,
SWV_ListDoMethod_Entry, 3,
MUIM_Set, SWA_NServer_Default, TRUE);
}
DoMethod(b_Add, NOTP, MUIV_Notify_Window, 3,
MUIM_Set, MUIA_Window_ActiveObject, s_Host);
DoMethod(b_Reset, NOTP, o, 6, SWM_Root_ListDoMethod,
idata->SWA_NList_LV,
SWV_ListDoMethod_Selected, SWV_ListDoMethod_Entry, 1,
SWM_NServer_ResetStats);
setlent(o, SWA_ObjNoChildCopy, TRUE);
return SUCCESS;
}
SAVEDS ULONG mNew(struct IClass *cl,Object *obj,struct opSet *msg)
{
struct FloatIntData *data;
double *D;
ULONG Store;
signed long int Limit;
char *AllowChars, Width;
APTR MyWin;
/* This looks like cookbook code. */
if (!(obj = (Object *)DoSuperMethodA(cl,obj,(Msg)msg)))
return(0);
data = INST_DATA(cl,obj);
data->FIFlags = NULL;
data->MasterVariable = NULL;
data->IncDecAmount = 1.0;
data->MinAmount = 0;
data->MaxAmount = FLT_MAX;
if(Store = GetTagData(MUIA_FloatInt_IncDecInt, NULL, msg->ops_AttrList))
{
Limit = *(signed long int *)(&Store);
data->IncDecAmount = Limit;
data->FIFlags &= ~FIOFlag_Frac;
} /* if */
if(Store = GetTagData(MUIA_FloatInt_IncDecDouble, NULL, msg->ops_AttrList))
{
D = (double *)Store;
data->IncDecAmount = *D;
data->FIFlags &= ~FIOFlag_Frac;
} /* if */
if(Store = GetTagData(MUIA_FloatInt_IDFracDouble, NULL, msg->ops_AttrList))
{
D = (double *)Store;
data->IncDecAmount = *D;
data->FIFlags |= FIOFlag_Frac;
} /* if */
if(Store = GetTagData(MUIA_FloatInt_MaxValDouble, NULL, msg->ops_AttrList))
{
D = (double *)Store;
data->MaxAmount = *D;
} /* if */
if(Store = GetTagData(MUIA_FloatInt_MinValDouble, NULL, msg->ops_AttrList))
{
D = (double *)Store;
data->MinAmount = *D;
} /* if */
if(Store = GetTagData(MUIA_FloatInt_MaxValInt, NULL, msg->ops_AttrList))
{
Limit = *(signed long int *)(&Store);
data->MaxAmount = Limit;
} /* if */
if(Store = GetTagData(MUIA_FloatInt_MinValInt, NULL, msg->ops_AttrList))
{
Limit = *(signed long int *)(&Store);
data->MinAmount = Limit;
} /* if */
Width = GetTagData(MUIA_FloatInt_FieldWidth, 5, msg->ops_AttrList);
if(Width > 10) Width = 10;
if(Width < 1) Width = 1;
data->FIFlags |= GetTagData(MUIA_FloatInt_VarType, NULL, msg->ops_AttrList);
data->MasterVariable = (void *)GetTagData(MUIA_FloatInt_VarPtr, NULL, msg->ops_AttrList);
data->LabelText = (char *)GetTagData(MUIA_FloatInt_LabelText, NULL, msg->ops_AttrList);
/* make sure we have required args */
if(data->LabelText && data->MasterVariable && (data->FIFlags & FI_TypeMask))
{
if(data->FIFlags & (FIOFlag_Float | FIOFlag_Double)) /* is it floating-point? */
{
AllowChars = ".+-0123456789";
} /* if */
else
{
AllowChars = "+-0123456789";
} /* else */
data->group = HGroup, MUIA_Group_HorizSpacing, 0,
Child, Label2(data->LabelText),
Child, data->string = StringObject, StringFrame,
MUIA_String_Accept, AllowChars,
MUIA_FixWidthTxt, FWT[Width], End,
Child, data->decbutton = ImageButton(MUII_ArrowLeft),
Child, data->incbutton = ImageButton(MUII_ArrowRight),
End;
} /* if */
if (!data->group)
{
CoerceMethod(cl,obj,OM_DISPOSE);
return(0);
}
get(data->string, MUIA_WindowObject, &MyWin);
/* Set up notification for change of ActiveObject */
DoMethod(MyWin, MUIM_Notify, MUIA_Window_ActiveObject, MUIV_EveryTime,
obj, 3, MUIM_FloatInt_ChangeFocus, MUIA_FloatInt_Focus, MUIV_TriggerValue);
/* Set up notification for increment/decrement buttons */
DoMethod(data->decbutton, MUIM_Notify, MUIA_Pressed, FALSE, obj,
1, MUIM_FloatInt_Dec);
DoMethod(data->incbutton, MUIM_Notify, MUIA_Pressed, FALSE, obj,
1, MUIM_FloatInt_Inc);
/* Set up notification for string gadget */
DoMethod(data->string, MUIM_Notify, MUIA_Selected, FALSE, obj,
1, MUIM_FloatInt_Str);
DoMethod(obj,OM_ADDMEMBER,data->group);
mSync(cl, obj, msg);
return((ULONG)obj);
}
int
main(UNUSED int argc,char **argv)
{
int res;
if ((IntuitionBase = (APTR)OpenLibrary("intuition.library",39)) != NULL &&
GETINTERFACE("main", IIntuition, IntuitionBase))
{
if ((MUIMasterBase = OpenLibrary("muimaster.library",19)) != NULL &&
GETINTERFACE("main", IMUIMaster, MUIMasterBase))
{
Object *app, *win, *mg, *sb, *viewMode, *buttonsPos, *labelPos, *borderless, *sunny,
*raised, *scaled, *keys, *bspacer, *fixed, *free, *update, *rows, *cols, *s4, *h0,
*rb, *rs, *ri;
if ((app = ApplicationObject,
MUIA_Application_Title, "TheBar Demo3",
MUIA_Application_Version, "$VER: TheBarDemo3 1.0 (24.6.2003)",
MUIA_Application_Copyright, "Copyright 2003 by Alfonso Ranieri",
MUIA_Application_Author, "Alfonso Ranieri <*****@*****.**>",
MUIA_Application_Description, "TheBar example",
MUIA_Application_Base, "THEBAREXAMPLE",
MUIA_Application_UsedClasses, usedClasses,
SubWindow, win = WindowObject,
MUIA_Window_ID, MAKE_ID('M','A','I','N'),
MUIA_Window_Title, "TheBar Demo3",
WindowContents, mg = VGroup,
Child, sb = TheBarObject,
MUIA_Group_Horiz, TRUE,
MUIA_TheBar_IgnoreAppearance, TRUE,
MUIA_TheBar_ViewMode, MUIV_TheBar_ViewMode_Gfx,
MUIA_TheBar_Buttons, buttons,
MUIA_TheBar_PicsDrawer, "PROGDIR:Pics",
MUIA_TheBar_Pics, pics,
MUIA_TheBar_SelPics, spics,
MUIA_TheBar_DisPics, dpics,
End,
Child, VGroup,
GroupFrameT("Appearance"),
Child, ColGroup(2),
Child, Label2("Rows"),
Child, HGroup,
Child, rows = MUI_MakeObject(MUIO_Radio,NULL,rowss),
Child, HSpace(0),
End,
Child, Label2("Columns"),
Child, HGroup,
Child, cols = MUI_MakeObject(MUIO_Radio,NULL,colss),
Child, HSpace(0),
End,
Child, Label2("ViewMode"),
Child, viewMode = MUI_MakeObject(MUIO_Cycle,NULL,viewModes),
Child, Label2("Buttons position"),
Child, buttonsPos = MUI_MakeObject(MUIO_Cycle,NULL,buttonsPoss),
Child, Label2("Label position"),
Child, labelPos = MUI_MakeObject(MUIO_Cycle,NULL,labelPoss),
End,
Child, ScrollgroupObject,
MUIA_Scrollgroup_FreeHoriz, FALSE,
MUIA_Scrollgroup_Contents, VirtgroupObject,
MUIA_Frame, MUIV_Frame_Virtual,
Child, HGroup,
Child, ColGroup(2),
Child, borderless = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel1("Borderless"),
Child, sunny = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel1("Sunny"),
Child, raised = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel1("Raised"),
Child, scaled = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel1("Scaled"),
Child, keys = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel1("Enable keys"),
Child, bspacer = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel1("Bar spacer"),
Child, fixed = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel("Fixed"),
Child, free = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel("Disable 0"),
Child, h0 = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel("Hide 0"),
Child, s4 = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel("Sleep 4"),
Child, RectangleObject, MUIA_FixHeightTxt,"a",End,
Child, RectangleObject, MUIA_FixHeightTxt,"a",End,
Child, rb = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel("Remove Bars"),
Child, rs = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel("Remove Spaces"),
Child, ri = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, LLabel("Remove Images"),
End,
Child, HSpace(0),
End,
Child, VSpace(0),
End,
End,
Child, update = MUI_MakeObject(MUIO_Button,"_Update"),
End,
End,
End,
End) != NULL)
{
ULONG sigs = 0;
LONG id;
set(rows,MUIA_Group_Horiz,TRUE);
set(cols,MUIA_Group_Horiz,TRUE);
set(viewMode,MUIA_Cycle_Active,1);
set(s4,MUIA_Selected,TRUE);
DoMethod(sb,MUIM_TheBar_SetAttr,4,MUIA_TheBar_Attr_Sleep,TRUE);
DoMethod(win,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,MUIV_Notify_Application,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
DoMethod(update,MUIM_Notify,MUIA_Pressed,FALSE,app,2,MUIM_Application_ReturnID,TAG_USER);
set(win,MUIA_Window_Open,TRUE);
while ((id = DoMethod(app,MUIM_Application_NewInput,&sigs))!=MUIV_Application_ReturnID_Quit)
{
if (id==(LONG)TAG_USER)
{
IPTR c = 0,
r = 0,
vm = 0,
bp = 0,
lp = 0,
br = 0,
su = 0,
ra = 0,
sc = 0,
k = 0,
bs = 0,
fi = 0,
fr = 0,
hl0 = 0,
sl4 = 0,
rbl = 0,
rsl = 0,
ril = 0,
rem = 0;
get(rows,MUIA_Radio_Active,&r);
if (r==4) r = 6;
get(cols,MUIA_Radio_Active,&c);
get(viewMode,MUIA_Cycle_Active,&vm);
get(buttonsPos,MUIA_Cycle_Active,&bp);
get(labelPos,MUIA_Cycle_Active,&lp);
get(borderless,MUIA_Selected,&br);
get(sunny,MUIA_Selected,&su);
get(raised,MUIA_Selected,&ra);
get(scaled,MUIA_Selected,&sc);
get(keys,MUIA_Selected,&k);
get(bspacer,MUIA_Selected,&bs);
get(fixed,MUIA_Selected,&fi);
get(free,MUIA_Selected,&fr);
get(h0,MUIA_Selected,&hl0);
get(s4,MUIA_Selected,&sl4);
get(rb,MUIA_Selected,&rbl);
get(rs,MUIA_Selected,&rsl);
get(ri,MUIA_Selected,&ril);
rem = 0;
if (rbl) rem |= MUIV_TheBar_RemoveSpacers_Bar;
if (rsl) rem |= MUIV_TheBar_RemoveSpacers_Button;
if (ril) rem |= MUIV_TheBar_RemoveSpacers_Image;
DoMethod(mg,MUIM_Group_InitChange);
DoMethod(sb,MUIM_Group_InitChange);
SetAttrs(sb,MUIA_TheBar_Columns, c,
MUIA_TheBar_Rows, r,
MUIA_TheBar_ViewMode, vm,
MUIA_TheBar_Borderless, br,
MUIA_TheBar_Sunny, su,
MUIA_TheBar_Raised, ra,
MUIA_TheBar_Scaled, sc,
MUIA_TheBar_EnableKeys, k,
MUIA_TheBar_BarSpacer, bs,
MUIA_TheBar_RemoveSpacers,rem,
MUIA_TheBar_LabelPos, lp,
TAG_DONE);
DoMethod(sb,MUIM_TheBar_SetAttr,0,MUIA_TheBar_Attr_Hide,hl0);
DoMethod(sb,MUIM_TheBar_SetAttr,4,MUIA_TheBar_Attr_Sleep,sl4);
DoMethod(sb,MUIM_TheBar_SetAttr,6,MUIA_TheBar_Attr_Disabled,fr);
DoMethod(sb,MUIM_Group_ExitChange);
DoMethod(mg,MUIM_Group_ExitChange);
}
if (sigs)
{
sigs = Wait(sigs | SIGBREAKF_CTRL_C);
if (sigs & SIGBREAKF_CTRL_C) break;
}
}
MUI_DisposeObject(app);
res = RETURN_OK;
}
else
{
printf("%s: can't create application\n",argv[0]);
res = RETURN_FAIL;
}
CLOSELIB(MUIMasterBase, IMUIMaster);
}
else
{
printf("%s: Can't open muimaster.library ver 19 or higher\n",argv[0]);
res = RETURN_ERROR;
}
CLOSELIB(IntuitionBase, IIntuition);
}
else
{
printf("%s: Can't open intuition.library ver 39 or higher\n",argv[0]);
res = RETURN_ERROR;
}
return res;
}
int
main(UNUSED int argc,char **argv)
{
int res;
if ((IntuitionBase = (APTR)OpenLibrary("intuition.library",39)) != NULL &&
GETINTERFACE("main", IIntuition, IntuitionBase))
{
if ((MUIMasterBase = OpenLibrary("muimaster.library",19)) != NULL &&
GETINTERFACE("main", IMUIMaster, MUIMasterBase))
{
Object *app, *win, *sb, *appearance, *labelPos, *borderless, *sunny, *raised, *scaled, *update;
if ((app = ApplicationObject,
MUIA_Application_Title, "TheBar Demo4",
MUIA_Application_Version, "$VER: TheBarDemo4 1.0 (24.6.2003)",
MUIA_Application_Copyright, "Copyright 2003 by Alfonso Ranieri",
MUIA_Application_Author, "Alfonso Ranieri <*****@*****.**>",
MUIA_Application_Description, "TheBar example",
MUIA_Application_Base, "THEBAREXAMPLE",
MUIA_Application_UsedClasses, usedClasses,
SubWindow, win = WindowObject,
MUIA_Window_ID, MAKE_ID('M','A','I','N'),
MUIA_Window_Title, "TheBar Demo4",
WindowContents, VGroup,
Child, sb = TheBarObject,
MUIA_Group_Horiz, TRUE,
MUIA_TheBar_IgnoreAppearance, TRUE,
MUIA_TheBar_EnableKeys, TRUE,
MUIA_TheBar_Buttons, buttons,
MUIA_TheBar_StripBrush, &cbrush,
MUIA_TheBar_StripCols, 16,
MUIA_TheBar_StripRows, 3,
MUIA_TheBar_StripHSpace, 0,
MUIA_TheBar_StripVSpace, 0,
End,
Child, VGroup,
GroupFrameT("Settings"),
Child, HGroup,
Child, Label2("Appearance"),
Child, appearance = MUI_MakeObject(MUIO_Cycle,NULL,appearances),
Child, Label2("Label pos"),
Child, labelPos = MUI_MakeObject(MUIO_Cycle,NULL,labelPoss),
End,
Child, HGroup,
Child, HSpace(0),
Child, Label1("Borderless"),
Child, borderless = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, HSpace(0),
Child, Label1("Sunny"),
Child, sunny = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, HSpace(0),
Child, Label1("Raised"),
Child, raised = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, HSpace(0),
Child, Label1("Scaled"),
Child, scaled = MUI_MakeObject(MUIO_Checkmark,NULL),
Child, HSpace(0),
End,
End,
Child, update = MUI_MakeObject(MUIO_Button,"_Update"),
End,
End,
End) != NULL)
{
ULONG sigs = 0;
LONG id;
DoMethod(win,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,MUIV_Notify_Application,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
DoMethod(update,MUIM_Notify,MUIA_Pressed,FALSE,app,2,MUIM_Application_ReturnID,TAG_USER);
set(win,MUIA_Window_Open,TRUE);
while ((id = DoMethod(app,MUIM_Application_NewInput,&sigs))!=MUIV_Application_ReturnID_Quit)
{
if (id==(LONG)TAG_USER)
{
IPTR appearanceV = 0,
labelPosV = 0,
borderlessV = 0,
sunnyV = 0,
raisedV = 0,
scaledV = 0;
get(appearance,MUIA_Cycle_Active,&appearanceV);
get(labelPos,MUIA_Cycle_Active,&labelPosV);
get(borderless,MUIA_Selected,&borderlessV);
get(sunny,MUIA_Selected,&sunnyV);
get(raised,MUIA_Selected,&raisedV);
get(scaled,MUIA_Selected,&scaledV);
SetAttrs(sb,MUIA_TheBar_ViewMode, appearanceV,
MUIA_TheBar_LabelPos, labelPosV,
MUIA_TheBar_Borderless, borderlessV,
MUIA_TheBar_Sunny, sunnyV,
MUIA_TheBar_Raised, raisedV,
MUIA_TheBar_Scaled, scaledV,
TAG_DONE);
}
if (sigs)
{
sigs = Wait(sigs | SIGBREAKF_CTRL_C);
if (sigs & SIGBREAKF_CTRL_C) break;
}
}
MUI_DisposeObject(app);
res = RETURN_OK;
}
else
{
printf("%s: can't create application\n",argv[0]);
res = RETURN_FAIL;
}
CLOSELIB(MUIMasterBase, IMUIMaster);
}
else
{
printf("%s: Can't open muimaster.library ver 19 or higher\n",argv[0]);
res = RETURN_ERROR;
}
CLOSELIB(IntuitionBase, IIntuition);
}
else
{
printf("%s: Can't open intuition.library ver 39 or higher\n",argv[0]);
res = RETURN_ERROR;
}
return res;
}
/*** Methods ****************************************************************/
Object * NetPEditor__OM_NEW(Class *CLASS, Object *self, struct opSet *message)
{
Object *deviceString, *IPString, *maskString, *gateString,
*DNSString[2], *hostString, *domainString, *DHCPState, *autostart;
DHCPCycle[0] = _(MSG_IP_MODE_MANUAL);
DHCPCycle[1] = _(MSG_IP_MODE_DHCP);
NetworkTabs[0] = _(MSG_TAB_IP_CONFIGURATION);
NetworkTabs[1] = _(MSG_TAB_COMPUTER_NAME);
self = (Object *)DoSuperNewTags
(
CLASS, self, NULL,
MUIA_PrefsEditor_Name, __(MSG_NAME),
MUIA_PrefsEditor_Path, (IPTR)"AROSTCP/arostcp.prefs",
Child, RegisterGroup((IPTR)NetworkTabs),
Child, (IPTR)ColGroup(2),
Child, (IPTR)Label2(__(MSG_DEVICE)),Child, (IPTR)PopaslObject,
MUIA_Popasl_Type, ASL_FileRequest,
ASLFO_MaxHeight, 100,
MUIA_Popstring_String, (IPTR)(deviceString = (Object *)StringObject, TextFrame, MUIA_Background, MUII_TextBack, End),
MUIA_Popstring_Button, (IPTR)PopButton(MUII_PopUp),
End,
Child, (IPTR)Label2(__(MSG_IP_MODE)), Child, (IPTR)(DHCPState = (Object *)CycleObject, MUIA_Cycle_Entries, (IPTR)DHCPCycle, End),
Child, (IPTR)Label2(__(MSG_IP)), Child, (IPTR)(IPString = (Object *)StringObject, TextFrame, MUIA_String_Accept, (IPTR)"0123456789.", End),
Child, (IPTR)Label2(__(MSG_MASK)),Child, (IPTR)(maskString = (Object *)StringObject, TextFrame, MUIA_String_Accept, (IPTR)"0123456789.", End),
Child, (IPTR)Label2(__(MSG_GATE)),Child, (IPTR)(gateString = (Object *)StringObject, TextFrame, MUIA_String_Accept, (IPTR)"0123456789.", End),
Child, (IPTR)Label2(__(MSG_DNS1)),Child, (IPTR)(DNSString[0] = (Object *)StringObject, TextFrame, MUIA_String_Accept, (IPTR)"0123456789.", End),
Child, (IPTR)Label2(__(MSG_DNS2)),Child, (IPTR)(DNSString[1] = (Object *)StringObject, TextFrame, MUIA_String_Accept, (IPTR)"0123456789.", End),
Child, (IPTR)Label2(__(MSG_AUTOSTART_STACK)),
Child, (IPTR)HGroup,
Child, (IPTR)(autostart = MUI_MakeObject(MUIO_Checkmark, NULL)),
Child, (IPTR)HVSpace,
End,
End,
Child, (IPTR)ColGroup(2),
Child, (IPTR)Label2(__(MSG_HOST_NAME)), Child, (IPTR)(hostString = (Object *)StringObject, TextFrame, MUIA_String_Accept, (IPTR)"0123456789abcdefghijklmnopqrstuvwxyz-", End),
Child, (IPTR)Label2(__(MSG_DOMAIN_NAME)), Child, (IPTR)(domainString = (Object *)StringObject, TextFrame, MUIA_String_Accept, (IPTR)"0123456789abcdefghijklmnopqrstuvwxyz-.", End),
End,
End, // register
TAG_DONE
);
if (self != NULL) {
struct NetPEditor_DATA *data = INST_DATA(CLASS, self);
data->netped_deviceString = deviceString;
data->netped_IPString = IPString;
data->netped_maskString = maskString;
data->netped_gateString = gateString;
data->netped_DNSString[0] = DNSString[0];
data->netped_DNSString[1] = DNSString[1];
data->netped_hostString = hostString;
data->netped_domainString = domainString;
data->netped_DHCPState = DHCPState;
data->netped_Autostart = autostart;
/*-- Setup notifications -------------------------------------------*/
DoMethod
(
deviceString, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
IPString, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
maskString, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
gateString, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
DNSString[0], MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
DNSString[1], MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
hostString, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
domainString, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
autostart, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
(IPTR)self, 3, MUIM_Set, MUIA_PrefsEditor_Changed, TRUE
);
DoMethod
(
DHCPState, MUIM_Notify, MUIA_Cycle_Active, MUIV_EveryTime,
(IPTR)self, 1, MUIM_NetPEditor_IPModeChanged
);
}
return self;
}
static ULONG CreateObj(Object *o, SW_IDATA *idata, struct TagItem *ti)
{
Object *g, *to, *b_Add = NULL, *b_Del, *b_Edit, *b_SelAll, *b_Xfer;
set(o, MUIA_Group_Horiz, FALSE);
// -- set init-time attrs for saved/postdir -------------------------------
idata->SWA_NPostList_PostDir =
(idata->SWA_NPostList_Saved = GetTagUL(SWA_NPostList_Saved, FALSE, ti)) ?
SWV_NPostList_PostSvDir : SWV_NPostList_DefPostDir;
DoMethod(o, OM_ADDMEMBER,
to = SWUI_FrameText(GetS(SWS_L_TopTitle), 0,
(HGroup,
Child, (Object *)
DoMethod(idata->SWA_NPostList_ListCol,
SWM_ListCol_Popup,
'-', GetS(SWS_H_ListCol)),
Child, (Object *)
DoMethod(idata->SWA_NPostList_ListCol,
SWM_ListCol_ClipBt,
'c', GetS(SWS_H_Clip)),
End), NULL));
if (!to) return FAILURE;
DoMethod(o, OM_ADDMEMBER,
idata->SWA_NList_LV = ListviewObject,
MUIA_CycleChain, 1,
MUIA_ShortHelp, GetS(SWS_H_List),
MUIA_Listview_Input, TRUE,
MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
MUIA_Listview_DragType, MUIV_Listview_DragType_Immediate,
MUIA_Listview_List, idata->SWA_NList_L = ObjListObject,
InputListFrame,
SWA_ObjList_Object, o,
MUIA_List_Format, DoMethod(idata->SWA_NPostList_ListCol,
SWM_ListCol_BuildFmt),
MUIA_List_DragSortable, TRUE,
MUIA_List_Title, TRUE,
MUIA_List_DisplayHook, &idata->DspHook,
MUIA_List_DestructHook, &idata->DstHook,
MUIA_List_CompareHook, &idata->CmpHook,
End,
End);
if (!idata->SWA_NList_LV) return FAILURE;
SWM_SetListColNotify(idata->SWA_NPostList_ListCol, idata->SWA_NList_L);
DoMethod(idata->SWA_NList_L, MUIM_Notify,
MUIA_List_Entries, MUIV_EveryTime,
to, 4, MUIM_SetAsString, MUIA_Text_Contents,
GetS(SWS_L_TopTitle), MUIV_TriggerValue);
idata->SWA_AppBase_TopObj = GetTagObj(SWA_AppBase_TopObj, NULL, ti);
if (idata->SWA_NPostList_Saved) {
DoMethod(o, OM_ADDMEMBER,
g = VGroup,
MUIA_Background, MUII_GroupBack,
Child, ColGroup(2),
Child, Label2(GetS(SWS_L_Subj)),
Child, s_Subj = MkTO(),
Child, Label2(GetS(SWS_L_Grp)),
Child, s_Grp = MkTO(),
End,
Child, HGroup,
MUIA_Group_SameSize, TRUE,
Child, b_Xfer = MkBt(SWS_B_MoveToOut, SWS_H_MoveToOut),
Child, b_Del = MkBt(SWS_B_Del, SWS_H_Del),
Child, b_Edit = MkBt(SWS_B_Edit, SWS_H_Edit),
Child, b_SelAll = MkBt(SWS_B_SelAll, SWS_H_SelAll),
End,
End);
s_SubjGAttr = MUIA_Text_Contents;
s_GrpGAttr = MUIA_Text_Contents;
LDoM(o, idata, b_Edit, SWM_NPost_Edit, TRUE);
DoMethod(idata->SWA_NList_LV, DCLK,
o, 7, SWM_Root_ListDoMethod, idata->SWA_NList_L,
SWV_ListDoMethod_Active, SWV_ListDoMethod_Entry, 2,
SWM_NPost_Edit, TRUE);
} else {
DoMethod(o, OM_ADDMEMBER,
g = VGroup,
MUIA_Background, MUII_GroupBack,
Child, ColGroup(2),
Child, Label2(GetS(SWS_L_Subj)),
Child, s_Subj = StringObject,
StringFrame,
MUIA_CycleChain, 1,
MUIA_HorizWeight, 5000,
MUIA_String_MaxLen, 8192,
End,
Child, Label2(GetS(SWS_L_Grp)),
Child, idata->GLPop = NewObject(NGListClass(), NULL,
SWA_AppBase_TopObj,
idata->SWA_AppBase_TopObj,
SWA_NGList_HelpL,
GetS(SWS_NG_H_Left),
SWA_NGList_HelpR,
GetS(SWS_NG_H_Right),
TAG_DONE),
End,
Child, HGroup,
MUIA_Group_SameSize, TRUE,
Child, b_Add = MkBt(SWS_B_Add, SWS_H_Add),
Child, b_Del = MkBt(SWS_B_Del, SWS_H_Del),
Child, b_Edit = MkBt(SWS_B_Edit, SWS_H_Edit),
Child, idata->b_Post = MkBt(SWS_B_Post, SWS_H_Post),
Child, b_SelAll = MkBt(SWS_B_SelAll, SWS_H_SelAll),
Child, b_Xfer = MkBt(SWS_B_MoveToSent,SWS_H_MoveToSent),
End,
End);
s_Grp = SWGetObj(idata->GLPop, SWA_NGList_Str);
LDoM(o, idata, b_Edit, SWM_NPost_Edit, FALSE);
DoMethod(idata->SWA_NList_LV, DCLK,
o, 7, SWM_Root_ListDoMethod, idata->SWA_NList_L,
SWV_ListDoMethod_Active, SWV_ListDoMethod_Entry, 2,
SWM_NPost_Edit, FALSE);
}
s_SubjAttr = SWA_NPost_Subj;
s_GrpAttr = SWA_NPost_Grp;
if (!g) return FAILURE;
DoMethod(b_SelAll, NOTP, idata->SWA_NList_L, 4,
MUIM_List_Select, MUIV_List_Select_All, MUIV_List_Select_On, NULL);
DoMethod(b_Xfer, NOTP, o, 1, SWM_NPostList_XferSel);
if (b_Add) {
DoMethod(b_Add, NOTP, o, 2, SWM_NList_Add, NULL);
DoMethod(b_Add, NOTP, MUIV_Notify_Window, 3,
MUIM_Set, MUIA_Window_ActiveObject, s_Subj);
}
LDoM(o, idata, b_Del, SWM_NPost_Delete, 0);
DoMethod(b_Del, NOTP, o, 1, SWM_NList_RemoveSel);
if (idata->b_Post) {
DoMethod(idata->b_Post, NOTP, o, 1, SWM_NPostList_Post);
}
if (s_Subj) {
SetAttrs(s_Subj,
MUIA_Disabled, TRUE,
MUIA_String_AttachedList, idata->SWA_NList_LV,
TAG_DONE);
}
if (s_Grp) {
SetAttrs(s_Grp,
MUIA_Disabled, TRUE,
MUIA_String_AttachedList, idata->SWA_NList_LV,
TAG_DONE);
}
setlent(o, SWA_ObjNoChildCopy, TRUE);
DoMethod(o, SWM_NPostList_OnOffLine,
SWGetUL(NN_TCPList(idata), SWA_NTCPList_Online));
DoMethod(NN_TCPList(idata), MUIM_Notify, SWA_NTCPList_Online,
MUIV_EveryTime, o,2,SWM_NPostList_OnOffLine, MUIV_TriggerValue);
DoMethod(o, MUIM_Notify, MUIA_AppMessage, MUIV_EveryTime,
o, 2, SWM_NPostList_AppMessage, MUIV_TriggerValue);
return SUCCESS;
}
void main( void )
{
int Done = FALSE;
ULONG sig;
static STRPTR styleoptions[] = { "IRC", "Email", "HTML", NULL };
if( !( MUIMasterBase = OpenLibrary( MUIMASTER_NAME, 19 ) ) )
return;
if( app = ApplicationObject,
MUIA_Application_Title, "TextInputDemo",
MUIA_Application_Version, "$VER: TextInput Demo 2.0",
MUIA_Application_Copyright, "© 1997-99 by Oliver Wagner, All Rights Reserved",
MUIA_Application_Author, "Oliver Wagner",
MUIA_Application_Description, "Demo for Textinput.mcc",
MUIA_Application_Base, "TEXTINPUT-DEMO",
SubWindow, win = WindowObject,
MUIA_Window_ID, 42,
MUIA_Window_Title, "TextInput Demo",
WindowContents, VGroup,
Child, HGroup,
Child, Label1( "Style:" ),
Child, Cycle( styleoptions ),
End,
Child, HGroup, GroupFrameT( "Single line" ),
Child, ColGroup( 2 ),
Child, Label2( "Input:" ),
Child, ti1 = TextinputObject, StringFrame, MUIA_CycleChain, 1,
MUIA_ControlChar, 'a',
MUIA_Textinput_Multiline, FALSE,
MUIA_Textinput_Contents, C1,
End,
Child, Label2( "NoInput:" ),
Child, ti2 = TextinputObject, TextFrame,
MUIA_Background, MUII_TextBack,
MUIA_Textinput_NoInput, TRUE,
MUIA_Textinput_Contents, C1,
End,
End,
End,
Child, VGroup, GroupFrameT( "Multi line with scroll" ),
Child, timl1 = TextinputscrollObject, StringFrame, MUIA_CycleChain, 1,
MUIA_ControlChar, 'b',
MUIA_Textinput_Multiline, TRUE,
MUIA_Textinput_Contents, C2,
End,
Child, bt_get = SimpleButton( "Get contents (to shell window)" ),
End,
Child, HGroup, GroupFrameT( "NoInput multi line with Scroll" ),
Child, timl2 = TextinputscrollObject, TextFrame, MUIA_Background,MUII_TextBack,MUIA_CycleChain, 1,
MUIA_ControlChar, 'c',
MUIA_Textinput_NoInput, TRUE,
MUIA_Textinput_Multiline, TRUE,
MUIA_Textinput_AutoExpand, TRUE,
MUIA_Textinput_Contents, C2,
MUIA_Textinput_MinVersion, 12,
MUIA_Textinput_WordWrap, 60,
End,
End,
Child, HGroup, GroupFrameT( "Old stringgadget" ),
Child, String( C1, 256 ),
End,
End,
End,
End )
{
DoMethod( win, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
app, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
);
DoMethod( bt_get, MUIM_Notify, MUIA_Pressed, FALSE,
app, 2, MUIM_Application_ReturnID, 2
);
DoMethod( ti1, MUIM_Notify, MUIA_String_Contents, MUIV_EveryTime,
ti2, 3, MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
);
DoMethod( timl1, MUIM_Notify, MUIA_String_Contents, MUIV_EveryTime,
timl2, 3, MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
);
DoMethod( ti1, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
ti1, 3, MUIM_Set, MUIA_Textinput_Contents, ""
);
set( win, MUIA_Window_Open, TRUE );
while( !Done )
{
LONG id;
id = DoMethod( app, MUIM_Application_Input, &sig );
switch( id )
{
case MUIV_Application_ReturnID_Quit:
Done = TRUE;
case 2:
{
char *p;
get( timl1, MUIA_Textinput_Contents, &p );
PutStr( ">>>>>\n" );
PutStr( p );
PutStr( "<<<<<\n" );
}
break;
}
if( sig )
if( Wait( sig | SIGBREAKF_CTRL_C ) & SIGBREAKF_CTRL_C )
Done = TRUE;
}
MUI_DisposeObject( app );
}
CloseLibrary( MUIMasterBase );
}
Object *olabel2(ULONG id)
{
return Label2((ULONG)getString(id));
}
/// US_New
// Creates user list window
static struct US_ClassData *US_New(BOOL supervisor)
{
struct US_ClassData *data;
ENTER();
if((data = calloc(1, sizeof(struct US_ClassData))) != NULL)
{
data->Supervisor = supervisor;
data->GUI.WI = WindowObject,
MUIA_Window_Title, tr(MSG_MA_MUsers),
MUIA_Window_ScreenTitle, CreateScreenTitle(data->ScreenTitle, sizeof(data->ScreenTitle), tr(MSG_MA_MUsers)),
MUIA_HelpNode, "Windows/Userswindow",
MUIA_Window_ID, MAKE_ID('U','S','E','R'),
WindowContents, VGroup,
Child, NListviewObject,
MUIA_CycleChain, TRUE,
MUIA_NListview_NList, data->GUI.LV_USERS = UserListObject,
End,
End,
Child, VGroup, GroupFrameT(tr(MSG_MA_Settings)),
Child, ColGroup(2),
Child, Label2(tr(MSG_US_UserName)),
Child, data->GUI.ST_USER = MakeString(SIZE_NAME, tr(MSG_US_UserName)),
Child, Label2(tr(MSG_US_Password)),
Child, data->GUI.ST_PASSWD = MakePassString(tr(MSG_US_Password)),
Child, Label2(tr(MSG_US_MailDirectory)),
Child, data->GUI.PO_MAILDIR = PopaslObject,
MUIA_Popasl_Type,ASL_FileRequest,
MUIA_Popstring_String,data->GUI.ST_MAILDIR = MakeString(SIZE_PATH,tr(MSG_US_MailDirectory)),
MUIA_Popstring_Button,PopButton(MUII_PopDrawer),
ASLFR_DrawersOnly, TRUE,
End,
End,
Child, VGroup,
Child, MakeCheckGroup((Object **)&data->GUI.CH_USEADDR, tr(MSG_US_GlobalAddrBook)),
Child, MakeCheckGroup((Object **)&data->GUI.CH_USEDICT, tr(MSG_US_GlobalDict)),
Child, MakeCheckGroup((Object **)&data->GUI.CH_ROOT,tr(MSG_US_SuperVisor)),
End,
Child, VGroup,
MUIA_ShowMe, supervisor,
Child, MakeCheckGroup((Object **)&data->GUI.CH_CLONE, tr(MSG_US_CopyConfig)),
End,
End,
Child, ColGroup(2),
MUIA_ShowMe, supervisor,
Child, data->GUI.BT_ADD = MakeButton(tr(MSG_US_AddUser)),
Child, data->GUI.BT_DEL = MakeButton(tr(MSG_US_DelUser)),
End,
End,
End;
if(data->GUI.WI != NULL)
{
DoMethod(G->App, OM_ADDMEMBER, data->GUI.WI);
SetHelp(data->GUI.ST_USER ,MSG_HELP_US_ST_USER);
SetHelp(data->GUI.ST_MAILDIR,MSG_HELP_US_ST_MAILDIR);
SetHelp(data->GUI.ST_PASSWD ,MSG_HELP_US_ST_PASSWD);
SetHelp(data->GUI.CH_USEADDR,MSG_HELP_US_CH_USEADDR);
SetHelp(data->GUI.CH_USEDICT,MSG_HELP_US_CH_USEDICT);
SetHelp(data->GUI.CH_CLONE ,MSG_HELP_US_CH_CLONE);
SetHelp(data->GUI.CH_ROOT ,MSG_HELP_US_CH_ROOT);
SetHelp(data->GUI.BT_ADD ,MSG_HELP_US_BT_ADD);
SetHelp(data->GUI.BT_DEL ,MSG_HELP_US_BT_DEL);
DoMethod(data->GUI.LV_USERS, MUIM_Notify,MUIA_NList_Active, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_GetUSEntryHook);
DoMethod(data->GUI.ST_USER, MUIM_Notify,MUIA_String_Contents, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_PutUSEntryHook);
DoMethod(data->GUI.ST_MAILDIR,MUIM_Notify,MUIA_String_Contents, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_PutUSEntryHook);
DoMethod(data->GUI.ST_PASSWD, MUIM_Notify,MUIA_String_Contents, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_PutUSEntryHook);
DoMethod(data->GUI.CH_USEADDR,MUIM_Notify,MUIA_Selected, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_PutUSEntryHook);
DoMethod(data->GUI.CH_USEDICT,MUIM_Notify,MUIA_Selected, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_PutUSEntryHook);
DoMethod(data->GUI.CH_ROOT, MUIM_Notify,MUIA_Selected, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_PutUSEntryHook);
DoMethod(data->GUI.CH_CLONE, MUIM_Notify,MUIA_Selected, MUIV_EveryTime,MUIV_Notify_Application,2,MUIM_CallHook,&US_PutUSEntryHook);
DoMethod(data->GUI.BT_ADD, MUIM_Notify,MUIA_Pressed, FALSE ,MUIV_Notify_Application,2,MUIM_CallHook,&US_AddHook);
DoMethod(data->GUI.BT_DEL, MUIM_Notify,MUIA_Pressed, FALSE ,MUIV_Notify_Application,2,MUIM_CallHook,&US_DelHook);
DoMethod(data->GUI.WI, MUIM_Notify,MUIA_Window_CloseRequest,TRUE ,MUIV_Notify_Application,2,MUIM_CallHook,&US_CloseHook);
}
else
{
free(data);
data = NULL;
}
}
RETURN(data);
return data;
}
