Dany Thinnes
9b77a59866
* Fehler aus Video 0.3-1 behoben * Menü "Projekt" hinzugefügt * ASL Requester implementiert * Funktion zu Menüpunkt "Neu" implementiert * Funktion zu Menüpunkt "Laden ..." implementiert * Funktion zu Menüpunkt "Speichern" implementiert * Funktion zu Menüpunkt "Speichern als ..." implementiert * Funktion zu Menüpunkt "Beenden" implementiert Planung für Version 0.4 - Titel dem Dateinamen anpasst - Bei Änderung "*" hinter den Dateinamen - Menüpunkt für Zeilennummer einfügen
42 lines
891 B
C
42 lines
891 B
C
Object *requesterNew(char *titel)
|
|
{
|
|
Object *obj;
|
|
|
|
obj = RequesterObject,
|
|
REQ_TitleText, titel,
|
|
EndMember;
|
|
|
|
return obj;
|
|
}
|
|
|
|
ULONG OpenRequesterTags(Object *obj, struct Window *win, ULONG Tag1, ...)
|
|
{
|
|
struct orRequest msg[1];
|
|
|
|
msg->MethodID = RM_OPENREQ;
|
|
msg->or_Window = win;
|
|
msg->or_Screen = NULL;
|
|
msg->or_Attrs = (struct TagItem *)&Tag1;
|
|
|
|
return DoMethodA(obj, (Msg)msg);
|
|
}
|
|
|
|
ULONG beendenReq(char *text, Object *obj, struct Window *win)
|
|
{
|
|
return OpenRequesterTags( obj,
|
|
win,
|
|
REQ_Type, REQTYPE_INFO,
|
|
REQ_BodyText, text,
|
|
REQ_GadgetText, "_Ja|_Nein|_Abbruch",
|
|
TAG_DONE);
|
|
}
|
|
|
|
ULONG frageReq(char *text, char *gadgets, Object *obj, struct Window *win)
|
|
{
|
|
return OpenRequesterTags( obj,
|
|
win,
|
|
REQ_Type, REQTYPE_INFO,
|
|
REQ_BodyText, text,
|
|
REQ_GadgetText, gadgets,
|
|
TAG_DONE);
|
|
} |