external/openurl/prefs/about.c

   1 /***************************************************************************
   2
   3  openurl.library - universal URL display and browser launcher library
   4  Copyright (C) 1998-2005 by Troels Walsted Hansen, et al.
   5  Copyright (C) 2005-2013 by openurl.library Open Source Team
   6
   7  This library is free software; it has been placed in the public domain
   8  and you can freely redistribute it and/or modify it. Please note, however,
   9  that some components may be under the LGPL or GPL license.
  10
  11  This library is distributed in the hope that it will be useful,
  12  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15  openurl.library project: http://sourceforge.net/projects/openurllib/
  16
  17  $Id$
  18
  19 ***************************************************************************/
  20
  21 #include <stdio.h>
  22
  23 #include "openurl.h"
  24
  25 #define CATCOMP_NUMBERS
  26 #include "locale.h"
  27
  28 #include "SDI_hook.h"
  29
  30 #include "version.h"
  31
  32 #include <libraries/openurl.h>
  33
  34 #include "debug.h"
  35
  36 /***********************************************************************/
  37 /*
  38 ** If Urltext.mcc is present use it,
  39 ** otherwise falls back to a text object
  40 */
  41
  42 static Object *ourltext(CONST_STRPTR url, CONST_STRPTR text)
  43 {
  44     Object *o;
  45
  46     ENTER();
  47
  48     o = UrltextObject,
  49         MUIA_Urltext_Text,           text,
  50         MUIA_Urltext_Url,            url,
  51         MUIA_Urltext_SetMax,         FALSE,
  52         MUIA_Urltext_NoOpenURLPrefs, TRUE,
  53     End;
  54
  55     if(o == NULL)
  56     {
  57         o = TextObject,
  58             MUIA_Text_SetMax, FALSE,
  59             MUIA_Text_Contents, (text != NULL) ? text : url,
  60         End;
  61     }
  62
  63     RETURN(o);
  64     return o;
  65 }
  66
  67 /***********************************************************************/
  68
  69 static IPTR mNew(struct IClass *cl,Object *obj,struct opSet *msg)
  70 {
  71     TEXT  buf[256];
  72     Object *ok;
  73
  74     strlcpy(buf, "OpenURL-Prefs " LIB_REV_STRING " [" SYSTEMSHORT "/" CPU "] (" LIB_DATE ")\n" LIB_COPYRIGHT, sizeof(buf));
  75
  76     if ((obj = (Object *)DoSuperNew(cl,obj,
  77             MUIA_Window_Title,          getString(MSG_About_WinTitle),
  78             MUIA_Window_ScreenTitle,    getString(MSG_App_ScreenTitle),
  79             MUIA_Window_IconifyGadget,  FALSE,
  80             MUIA_Window_MenuGadget,     FALSE,
  81             MUIA_Window_SnapshotGadget, FALSE,
  82             MUIA_Window_ConfigGadget,   FALSE,
  83             MUIA_Window_SizeGadget,     FALSE,
  84             MUIA_Window_CloseGadget,    FALSE,
  85             MUIA_Window_AllowTopMenus,  FALSE,
  86
  87             WindowContents, VGroup,
  88                 MUIA_Background, MUII_RequesterBack,
  89
  90                 Child, HGroup,
  91                     Child, HSpace(0),
  92                     Child, TextObject,
  93                         MUIA_Text_Contents, getString(MSG_About_Descr),
  94                     End,
  95                     Child, HSpace(0),
  96                 End,
  97
  98                 Child, RectangleObject, MUIA_FixHeight, 4, End,
  99
 100                 Child, HGroup,
 101                     Child, HSpace(0),
 102                     Child, TextObject,
 103                         MUIA_Text_PreParse, "\33c",
 104                         MUIA_Text_Contents, buf,
 105                     End,
 106                     Child, HSpace(0),
 107                 End,
 108
 109                 Child, HGroup,
 110                     Child, HSpace(0),
 111                     Child, ourltext("http://sourceforge.net/projects/openurllib",NULL),
 112                     Child, HSpace(0),
 113                 End,
 114
 115                 //Child, RectangleObject, MUIA_FixHeight, 4, End,
 116
 117                 Child, RectangleObject, MUIA_Rectangle_HBar, TRUE, End,
 118
 119                 Child, HGroup,
 120                     Child, RectangleObject, MUIA_Weight, 200, End,
 121                     Child, ok = obutton(MSG_About_OK,0),
 122                     Child, RectangleObject, MUIA_Weight, 200, End,
 123                 End,
 124             End,
 125             TAG_MORE, msg->ops_AttrList)))
 126     {
 127         superset(cl,obj,MUIA_Window_ActiveObject,ok);
 128
 129         DoMethod(ok,MUIM_Notify,MUIA_Pressed,FALSE,(IPTR)obj,3,
 130             MUIM_Set,MUIA_Window_CloseRequest,TRUE);
 131     }
 132
 133     return (IPTR)obj;
 134 }
 135
 136 /***********************************************************************/
 137
 138 SDISPATCHER(dispatcher)
 139 {
 140     switch(msg->MethodID)
 141     {
 142         case OM_NEW: return mNew(cl,obj,(APTR)msg);
 143         default:     return DoSuperMethodA(cl,obj,msg);
 144     }
 145 }
 146
 147 /***********************************************************************/
 148
 149 BOOL initAboutClass(void)
 150 {
 151     BOOL success = FALSE;
 152
 153     ENTER();
 154
 155     if((g_aboutClass = MUI_CreateCustomClass(NULL, MUIC_Window, NULL, 0, ENTRY(dispatcher))) != NULL)
 156         success = TRUE;
 157
 158     RETURN(success);
 159     return success;
 160 }
 161
 162 /***********************************************************************/
 163
 164 void disposeAboutClass(void)
 165 {
 166     ENTER();
 167
 168     if(g_aboutClass != NULL)
 169         MUI_DeleteCustomClass(g_aboutClass);
 170
 171     LEAVE();
 172 }
 173
 174 /***********************************************************************/
 175