\n" "
\n"
"This program is free software; you can redistribute it and/or modify\n"
"it under the terms of the GNU General Public License as published by\n"
"the Free Software Foundation; either version 2 of the License, or (at\n"
"your option) any later version.\n"
"\n"
"This program is distributed in the hope that it will be useful, but\n"
"WITHOUT ANY WARRANTY; without even the implied warranty of\n"
"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n"
"General Public License for more details.\n"
"\n"
"\n"
"ARexx-Port: %s\n"
"\n"
"\n";
if(f = fopen(TMPINFO,"w"))
{
fprintf(f,
(char *)AboutText,
((char *)xget(app,MUIA_Application_Version))+7+strlen(NAME),
((char *)xget(app,MUIA_Application_Copyright)),
((char *)xget(app,MUIA_Application_Description)),
((char *)xget(app,MUIA_Application_Base)));
fclose(f);
set(data->html, MUIA_HTMLtext_URL, TMPINFO);
}
return(0);
}
///
/// MainWindow_AddURL
ULONG MainWindow_AddURL(struct IClass *cl,Object *obj,struct {ULONG MethodID; ULONG fstr;} *msg)
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
char *url;
ULONG x;
// from string
if(msg->fstr)
{
set(data->html, MUIA_HTMLtext_URL, xget(data->file, MUIA_String_Contents));
}
url = (char *)xget(data->html, MUIA_HTMLtext_URL);
set(data->file, MUIA_String_Contents, url);
// history
if(url && *url)
{
set(data->list, MUIA_List_Quiet, TRUE);
if((x = xget(data->list, MUIA_List_Active))!=MUIV_List_Active_Off)
{
while(x)
{
DoMethod(data->list, MUIM_List_Remove, MUIV_List_Remove_First);
--x;
}
}
DoMethod(data->list,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,&x);
if(stricmp((char *)x,url))
DoMethod(data->list, MUIM_List_InsertSingle, url, MUIV_List_Insert_Top);
set(data->list, MUIA_List_Active, MUIV_List_Active_Top);
set(data->list, MUIA_List_Quiet, FALSE);
}
return(0);
}
///
/// MainWindow_ShowURL
enum
{
SHOW_back,
SHOW_forward,
SHOW_active
};
ULONG MainWindow_ShowURL(struct IClass *cl,Object *obj,struct {ULONG MethodID; ULONG mode;} *msg)
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
ULONG x;
switch(msg->mode)
{
case SHOW_back:
set(data->list, MUIA_List_Active, MUIV_List_Active_Down);
break;
case SHOW_forward:
set(data->list, MUIA_List_Active, MUIV_List_Active_Up);
break;
}
DoMethod(data->list,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,&x);
set(data->html,MUIA_HTMLtext_URL,x);
set(data->file,MUIA_String_Contents,x);
return(0);
}
///
/// MainWindow_ReloadURL
ULONG MainWindow_ReloadURL(struct IClass *cl,Object *obj,Msg msg)
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
DoMethod(data->html, MUIM_HTMLtext_Reload);
return(0);
}
///
/// IntuiMsgFunc
SAVEDS ASM VOID IntuiMsgFunc(REG(a1) struct IntuiMessage *imsg,REG(a2) struct FileRequester *req)
{
if (imsg->Class==IDCMP_REFRESHWINDOW)
DoMethod(req->fr_UserData,MUIM_Application_CheckRefresh);
}
///
/// getfilename
char *getfilename(char *title,BOOL save, char *path)
{
static char buf[512];
struct FileRequester *req;
struct Window *w;
static LONG left=-1,top=-1,width=-1,height=-1;
Object *app = (Object *)xget(win,MUIA_ApplicationObject);
char *res = NULL;
static const struct Hook IntuiMsgHook = { { 0,0 },(VOID *)IntuiMsgFunc,NULL,NULL };
get(win,MUIA_Window_Window,&w);
if (left==-1)
{
left = w->LeftEdge+w->BorderLeft+2;
top = w->TopEdge+w->BorderTop+2;
width = w->Width-w->BorderLeft-w->BorderRight-4;
height = w->Height-w->BorderTop-w->BorderBottom-4;
}
if (req=MUI_AllocAslRequestTags(ASL_FileRequest,
ASLFR_Window, w,
ASLFR_TitleText, title,
ASLFR_InitialLeftEdge, left,
ASLFR_InitialTopEdge , top,
ASLFR_InitialWidth , width,
ASLFR_InitialHeight , height,
ASLFR_InitialDrawer , path,
ASLFR_InitialPattern , "#?.(html|htm)",
ASLFR_DoSaveMode , save,
ASLFR_DoPatterns , TRUE,
ASLFR_RejectIcons , TRUE,
ASLFR_UserData , app,
ASLFR_IntuiMsgFunc , &IntuiMsgHook,
TAG_DONE))
{
set(app,MUIA_Application_Sleep,TRUE);
if (MUI_AslRequestTags(req,TAG_DONE))
{
if (*req->fr_File)
{
res = buf;
stccpy(path,req->fr_Drawer,255);
stccpy(buf,req->fr_Drawer,sizeof(buf));
AddPart(buf,req->fr_File,sizeof(buf));
}
left = req->fr_LeftEdge;
top = req->fr_TopEdge;
width = req->fr_Width;
height = req->fr_Height;
}
MUI_FreeAslRequest(req);
set(app,MUIA_Application_Sleep,FALSE);
}
return(res);
}
///
/// MainWindow_Action
enum
{
ACTION_clipblock,
ACTION_clipsrc,
ACTION_print,
ACTION_viewsrc,
ACTION_editsrc,
ACTION_geturl,
ACTION_printsrc,
};
ULONG MainWindow_Action(struct IClass *cl,Object *obj,struct {ULONG MethodID; ULONG mode;} *msg)
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
char buf[120], *text, tmpname[60];
switch(msg->mode)
{
// Clip block
case ACTION_clipblock:
get(data->html, MUIA_HTMLtext_Block, &text);
WriteClip(text);
break;
// Clip source
case ACTION_clipsrc:
get(data->html, MUIA_HTMLtext_Contents, &text);
WriteClip(text);
break;
// Print text
case ACTION_print:
tmpnam(tmpname);
SaveHTML(data, tmpname);
sprintf(buf, data->cfg.printtext, tmpname);
if(buf[0]) system(buf);
remove(tmpname);
break;
// Print source
case ACTION_printsrc:
SaveHTML(data, "prt:");
break;
// View source
case ACTION_viewsrc:
tmpnam(tmpname);
SaveHTML(data, tmpname);
sprintf(buf, data->cfg.viewsource, tmpname);
if(buf[0]) system(buf);
remove(tmpname);
break;
// Edit source
case ACTION_editsrc:
{
char *url;
get(data->html, MUIA_HTMLtext_URL, &url);
if(url)
{
sprintf(buf, data->cfg.editsource, url);
if(buf[0]) system(buf);
DoMethod(obj, MUIM_MainWindow_ReloadURL, 0);
}
}
break;
// Get URL
case ACTION_geturl:
{
ULONG url;
get(data->html, MUIA_HTMLtext_URL, &url);
return(url);
}
break;
}
return(0);
}
///
/// MainWindow_Find
enum
{
FIND_new = 1,
FIND_word,
FIND_next,
FIND_first
};
ULONG Search(struct MainWindow_Data *data, STRPTR searchstr, ULONG pos, ULONG flags)
{
struct MUIS_HTMLtext_Element *el; //, *ell;
// Object *app = (Object *)xget(data->html,MUIA_ApplicationObject);
// char *str;
if(searchstr && *searchstr)
{
// set(app, MUIA_Application_Sleep, TRUE);
get(data->html, MUIA_HTMLtext_ElementList, &el);
while(el)
{
if(!strnicmp(MACRO_HTMLtext_GetText(el), searchstr, strlen(searchstr)))
{
if(pos)
pos--;
else
{
DoMethod(data->html, MUIM_HTMLtext_Mark, el, el);
DoMethod(data->html, MUIM_HTMLtext_Jump, el);
return(TRUE);
}
}
el = el->next;
}
// set(app, MUIA_Application_Sleep, FALSE);
}
return(FALSE);
}
ULONG MainWindow_Find(struct IClass *cl,Object *obj,struct {ULONG MethodID; ULONG mode; char *str;} *msg)
{
Object *app = (Object *)xget(obj,MUIA_ApplicationObject);
struct MainWindow_Data *data = INST_DATA(cl,obj);
switch(msg->mode)
{
case FIND_new:
// Open window and ask
{
Object *win, *searchstr, *start;
char *str;
set(app,MUIA_Application_Sleep,TRUE); // disable other windows
win =
WindowObject,
MUIA_Window_Title, "Find",
MUIA_Window_ID , MAKE_ID('F','I','N','D'),
WindowContents, VGroup,
Child, LLabel("Find this string:"),
Child, searchstr = StringObject,
StringFrame,
MUIA_CycleChain, 1,
MUIA_String_AdvanceOnCR, TRUE,
MUIA_String_Contents, data->searchstr,
MUIA_ShortHelp, "Will find all words in the text\nbeginning with this string",
End,
Child, start = SimpleButton("_Start"),
End,
End;
if (win) // ok ?
{
DoMethod(app,OM_ADDMEMBER,win); // add window...
DoMethod(win,MUIM_Notify,MUIA_Window_CloseRequest,TRUE ,
app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
DoMethod(start, MUIM_Notify, MUIA_Pressed, FALSE,
app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
set(start,MUIA_CycleChain, 1);
set(win,MUIA_Window_Open,TRUE); // and open it
set(win,MUIA_Window_ActiveObject, searchstr);
{
ULONG sigs = 0;
while (DoMethod(app,MUIM_Application_NewInput,&sigs) != MUIV_Application_ReturnID_Quit)
{
if (sigs)
{
sigs = Wait(sigs | SIGBREAKF_CTRL_C);
if (sigs & SIGBREAKF_CTRL_C) break;
}
}
}
set(win,MUIA_Window_Open,FALSE); // Close window
get(searchstr, MUIA_String_Contents, &str);
stccpy(data->searchstr, str, sizeof(data->searchstr));
// Remove window
DoMethod(app,OM_REMMEMBER,win); // remove
MUI_DisposeObject(win); // and kill it
}
else puts("Couldn't open search window.");
set(app,MUIA_Application_Sleep,FALSE); // wake up the application
}
case FIND_first:
data->searchpos = 0;
break;
case FIND_word:
// Take word from string (AREXX)
stccpy(data->searchstr, msg->str, sizeof(data->searchstr));
data->searchpos = 0;
break;
}
// Suchen und erhöhen
if(!Search(data, data->searchstr, data->searchpos++, 0))
{
// Am Ende angelang wieder das erste zeigen
if(data->searchpos)
{
data->searchpos = 0;
Search(data, data->searchstr, data->searchpos++, 0);
}
else REQ("String can't be found!","*_OK");
}
return(0);
}
///
/// MainWindow_Open
ULONG MainWindow_Open(struct IClass *cl,Object *obj,struct {ULONG MethodID; char *name;} *msg)
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
char *name;
if(msg->name)
{
// name comes as argument
name = msg->name;
}
else
{
// filerequester
name = getfilename("Select local file",FALSE,data->path);
}
if(name)
{
set(data->file, MUIA_String_Contents, name);
DoMethod(obj, MUIM_MainWindow_AddURL, 1);
}
return(0);
}
///
/// MainWindow_Save
ULONG MainWindow_Save(struct IClass *cl,Object *obj,struct {ULONG MethodID; char *name;} *msg)
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
char *name;
if(msg->name)
{
name = msg->name;
}
else
{
name = getfilename("Select local file",TRUE,data->path);
}
SaveHTML(data, name);
return(0);
}
///
/// MainWindow_Dispose
ULONG MainWindow_Dispose(struct IClass *cl,Object *obj,Msg msg)
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
DB("Dispose\n");
// remove toolbar
DisposeToolbar(data);
DB("End Dispose\n");
return(DoSuperMethodA(cl,obj,msg));
}
///
/// MainWindow_New
ULONG MainWindow_New(struct IClass *cl,Object *obj,struct opSet *msg)
{
Object *strip;
struct MainWindow_Data tmp = {0};
/*
static const struct Hook OpenURLHook
= { { NULL,NULL },(VOID *)OpenURL ,NULL,NULL };
*/
static const struct Hook AppMsgHook
= { { NULL,NULL },(VOID *)AppMsgFunc,NULL,NULL };
if (obj = (Object *)DoSuperNew(cl,obj,
MUIA_Window_Title, "MoreHTML © Dirk Holtwick, 1997",
MUIA_Window_ID , MAKE_ID('H','T','M','L'),
MUIA_Window_UseRightBorderScroller, TRUE,
MUIA_Window_UseBottomBorderScroller, TRUE,
MUIA_Window_Menustrip, strip = MUI_MakeObject(MUIO_MenustripNM,MainMenu,0),
MUIA_Window_AppWindow, TRUE,
WindowContents, HGroup,
Child, tmp.tool[2] = VGroup,
MUIA_VertWeight, 1,
Child, VSpace(0),
End,
Child, VGroup,
Child, tmp.tool[0] = HGroup,
Child, HSpace(0),
End,
// Infoline
Child, tmp.infoline = PopobjectObject,
MUIA_Popstring_String, tmp.file = StringObject,
StringFrame,
MUIA_CycleChain, 1,
MUIA_String_MaxLen, 1024,
End,
MUIA_Popstring_Button, PopButton(MUII_PopUp),
MUIA_Popobject_Object, ListviewObject,
MUIA_Listview_List, tmp.list = ListObject,
InputListFrame,
MUIA_List_ConstructHook, MUIV_List_ConstructHook_String,
MUIA_List_DestructHook, MUIV_List_DestructHook_String,
End,
End,
End,
// HTML object with ScrollGroup
Child, tmp.scroll = ScrollgroupObject,
MUIA_CycleChain, 1,
MUIA_Scrollgroup_UseWinBorder, TRUE,
MUIA_Scrollgroup_Contents, tmp.html = HTMLtextObject,
TextFrame,
// MUIA_HTMLtext_OpenURLHook, &OpenURLHook,
End,
End,
Child, tmp.tool[1] = HGroup,
Child, HSpace(0),
End,
End,
Child, tmp.tool[3] = VGroup,
MUIA_VertWeight, 1,
Child, VSpace(0),
End,
End,
TAG_MORE,msg->ops_AttrList))
{
struct MainWindow_Data *data = INST_DATA(cl,obj);
*data = tmp;
data->win = obj;
// Add toolbar
CreateToolbar(data);
// Methods
DoMethod(obj,MUIM_Notify,MUIA_Window_CloseRequest,TRUE ,
obj,2,MUIM_MainWindow_Finish, 0);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_ABOUT ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,1,MUIM_MainWindow_About);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_OPEN ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Open,0);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_SAVE ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Save,0);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_HIDE ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,1,MUIM_MainWindow_Iconify);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_QUIT ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Finish,0);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_FIND ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,3,MUIM_MainWindow_Find,FIND_new,0);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_NEXT ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,3,MUIM_MainWindow_Find,FIND_next,0);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_CPTEXT ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Action,ACTION_clipsrc);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_CPBLOCK ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Action,ACTION_clipblock);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_PRINT ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Action,ACTION_print);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_PRSRC ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Action,ACTION_printsrc);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_VIEW ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Action,ACTION_viewsrc);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_EDIT ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_Action,ACTION_editsrc);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_BACK ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_ShowURL, SHOW_back);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_FORWARD ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,2,MUIM_MainWindow_ShowURL, SHOW_forward);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_RELOAD ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,1,MUIM_MainWindow_ReloadURL);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_CONF ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
obj,1,MUIM_MainWindow_Config, FALSE);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_AMUI ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
MUIV_Notify_Application,2,MUIM_Application_AboutMUI,obj);
DoMethod((Object *)DoMethod(strip,MUIM_FindUData,MEN_MUI ),MUIM_Notify,MUIA_Menuitem_Trigger,MUIV_EveryTime,
MUIV_Notify_Application,2,MUIM_Application_OpenConfigWindow,0);
// Popobj
DoMethod(data->list,MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,
data->infoline,2,MUIM_Popstring_Close,TRUE);
// Clicked
DoMethod(data->html,MUIM_Notify,MUIA_HTMLtext_Clicked,TRUE,
obj,2,MUIM_MainWindow_AddURL,0);
// Title
DoMethod(data->html,MUIM_Notify,MUIA_HTMLtext_Title,MUIV_EveryTime,
obj,3,MUIM_Set,MUIA_Window_Title,MUIV_TriggerValue);
// String
DoMethod(data->file, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
obj,2,MUIM_MainWindow_AddURL,1);
// History
DoMethod(data->list, MUIM_Notify, MUIA_Listview_DoubleClick, MUIV_EveryTime,
obj,2,MUIM_MainWindow_ShowURL,SHOW_active);
// App Msg
DoMethod(obj,MUIM_Notify,MUIA_AppMessage,MUIV_EveryTime,
obj,3,MUIM_CallHook,&AppMsgHook,MUIV_TriggerValue);
set(obj,MUIA_Window_ActiveObject,data->scroll);
set(obj,MUIA_Window_DefaultObject,data->scroll);
return((ULONG)obj);
}
return(0);
}
///
/// MainWindow_Dispatcher
SAVEDS ASM ULONG MainWindow_Dispatcher(REG(a0) struct IClass *cl,REG(a2) Object *obj,REG(a1) Msg msg)
{
switch (msg->MethodID)
{
case OM_NEW : return(MainWindow_New (cl,obj,(APTR)msg));
case OM_DISPOSE : return(MainWindow_Dispose (cl,obj,(APTR)msg));
case MUIM_MainWindow_Finish : return(MainWindow_Finish (cl,obj,(APTR)msg));
case MUIM_MainWindow_Iconify : return(MainWindow_Iconify (cl,obj,(APTR)msg));
case MUIM_MainWindow_About : return(MainWindow_About (cl,obj,(APTR)msg));
case MUIM_MainWindow_AddURL : return(MainWindow_AddURL (cl,obj,(APTR)msg));
case MUIM_MainWindow_ShowURL : return(MainWindow_ShowURL (cl,obj,(APTR)msg));
case MUIM_MainWindow_ReloadURL: return(MainWindow_ReloadURL (cl,obj,(APTR)msg));
case MUIM_MainWindow_Open : return(MainWindow_Open (cl,obj,(APTR)msg));
case MUIM_MainWindow_Save : return(MainWindow_Save (cl,obj,(APTR)msg));
case MUIM_MainWindow_Config : return(MainWindow_Config (cl,obj,(APTR)msg));
case MUIM_MainWindow_Action : return(MainWindow_Action (cl,obj,(APTR)msg));
case MUIM_MainWindow_Find : return(MainWindow_Find (cl,obj,(APTR)msg));
case MUIM_MainWindow_Rexx : return(MainWindow_Rexx (cl,obj,(APTR)msg));
}
return(DoSuperMethodA(cl,obj,msg));
}
///
// ARexx
/// Rexx_URL
SAVEDS ASM LONG Rexx_URL (REG(a2) Object *app)
{
set(app, MUIA_Application_RexxString,
DoMethod(win, MUIM_MainWindow_Action, ACTION_geturl));
return(0);
}
///
/// Rexx_Save
SAVEDS ASM LONG Rexx_Save (REG(a1) struct {char *name;} *msg)
{
if(msg->name)
DoMethod(win, MUIM_MainWindow_Save, msg->name);
else
DoMethod(win, MUIM_MainWindow_Save, 0);
return(0);
}
///
/// Rexx_Open
SAVEDS ASM LONG Rexx_Open(REG(a1) struct {char *name;} *msg)
{
if(msg->name)
DoMethod(win, MUIM_MainWindow_Open, msg->name);
else
DoMethod(win, MUIM_MainWindow_Open, 0);
return(0);
}
///
/// Rexx_Find
SAVEDS ASM LONG Rexx_Find (REG(a1) struct {char *str; LONG first; LONG next;} *msg)
{
if(msg->str)
DoMethod(win, MUIM_MainWindow_Find, FIND_word, msg->str);
else if(msg->first)
DoMethod(win, MUIM_MainWindow_Find, FIND_first, 0);
else if(msg->next)
DoMethod(win, MUIM_MainWindow_Find, FIND_next, 0);
else
DoMethod(win, MUIM_MainWindow_Find, FIND_new, 0);
return(0);
}
///
/// Rexx_Print
SAVEDS ASM LONG Rexx_Print(REG(a1) Msg msg)
{
DoMethod(win, MUIM_MainWindow_Action, ACTION_print);
return(0);
}
///
/// Rexx_View
SAVEDS ASM LONG Rexx_View(REG(a1) Msg msg)
{
DoMethod(win, MUIM_MainWindow_Action, ACTION_viewsrc);
return(0);
}
///
/// Rexx_Reload
SAVEDS ASM LONG Rexx_Reload(REG(a1) Msg msg)
{
DoMethod(win, MUIM_MainWindow_ReloadURL);
return(0);
}
///
/// Rexx_Back
SAVEDS ASM LONG Rexx_Back(REG(a1) Msg msg)
{
DoMethod(win, MUIM_MainWindow_ShowURL, SHOW_back);
return(0);
}
///
/// Rexx_Forward
SAVEDS ASM LONG Rexx_Forward(REG(a1) Msg msg)
{
DoMethod(win, MUIM_MainWindow_ShowURL, SHOW_forward);
return(0);
}
///
/// Rexx_Edit
SAVEDS ASM LONG Rexx_Edit(REG(a1) Msg msg)
{
DoMethod(win, MUIM_MainWindow_Action, ACTION_editsrc);
return(0);
}
///
// Init
/// ExitLibs
VOID ExitLibs(VOID)
{
if (IntuitionBase) CloseLibrary(IntuitionBase);
if (GfxBase ) CloseLibrary(GfxBase );
if (AslBase ) CloseLibrary(AslBase );
if (UtilityBase ) CloseLibrary(UtilityBase );
if (MUIMasterBase) CloseLibrary(MUIMasterBase);
if (DataTypesBase) CloseLibrary(DataTypesBase);
}
///
/// InitLibs
BOOL InitLibs(VOID)
{
MUIMasterBase = OpenLibrary("muimaster.library",11);
UtilityBase = OpenLibrary("utility.library" ,36);
AslBase = OpenLibrary("asl.library" ,36);
GfxBase = OpenLibrary("graphics.library" ,36);
IntuitionBase = OpenLibrary("intuition.library",36);
DataTypesBase = OpenLibrary("datatypes.library",0);
if (MUIMasterBase && UtilityBase && AslBase && GfxBase && IntuitionBase)
return(TRUE);
ExitLibs();
return(FALSE);
}
///
/// ExitClasses
VOID ExitClasses(VOID)
{
if (CL_Dtpic ) MUI_DeleteCustomClass(CL_Dtpic );
if (CL_MainWindow ) MUI_DeleteCustomClass(CL_MainWindow );
}
///
/// InitClasses
BOOL InitClasses(VOID)
{
CL_MainWindow = MUI_CreateCustomClass(NULL,MUIC_Window ,NULL,sizeof(struct MainWindow_Data ) ,MainWindow_Dispatcher );
CL_Dtpic = MUI_CreateCustomClass(NULL,MUIC_Area ,NULL,sizeof(struct DtpicData ) ,DtpicDispatcher );
if (CL_MainWindow && CL_Dtpic)
return(TRUE);
ExitClasses();
return(FALSE);
}
///
/// HandleArgs
const char CLITemplate[] = "URL";
const char CLIHelp[] =
"\n"
"\033[1mmoreHTML " VERS "\033[0m\n"
"(C)opyright by Dirk Holtwick, 1997\n"
"\n"
"Usage: moreHTML