workbench/libs/openurl/prefs/browsereditwin.c

   1 /*
   2 **  OpenURL - MUI preferences for openurl.library
   3 **
   4 **  Written by Troels Walsted Hansen <troels@thule.no>
   5 **  Placed in the public domain.
   6 **
   7 **  Developed by:
   8 **  - Alfonso Ranieri <alforan@tin.it>
   9 **  - Stefan Kost <ensonic@sonicpulse.de>
  10 **
  11 **  Ported to OS4 by Alexandre Balaban <alexandre@balaban.name>
  12 **
  13 **  Edit browser window
  14 */
  15
  16
  17 #include "OpenURL.h"
  18 #define CATCOMP_NUMBERS
  19 #include "loc.h"
  20 #include "libraries/openurl.h"
  21
  22 /**************************************************************************/
  23
  24 struct data
  25 {
  26
  27     Object                 *browserList;
  28
  29     Object                 *name;
  30     Object                 *path;
  31     Object                 *port;
  32
  33     Object                 *show;
  34     Object                 *toFront;
  35     Object                 *openURL;
  36     Object                 *openURLNW;
  37
  38     Object                 *use;
  39     Object                 *cancel;
  40
  41     struct URL_BrowserNode *bn;
  42
  43     ULONG                  flags;
  44 };
  45
  46 enum
  47 {
  48     FLG_Notifies = 1<<0,
  49 };
  50
  51 /**************************************************************************/
  52
  53 static STRPTR syms[] =
  54 {
  55     "%u",
  56     "%p",
  57     NULL
  58 };
  59
  60 static STRPTR names[] =
  61 {
  62     (STRPTR)MSG_Edit_PopURL,
  63     (STRPTR)MSG_Edit_PopScreen,
  64     NULL
  65 };
  66
  67 static ULONG
  68 mNew(struct IClass *cl,Object *obj,struct opSet *msg)
  69 {
  70     struct data            temp;
  71     struct URL_BrowserNode *bn;
  72     struct TagItem         *attrs = msg->ops_AttrList;
  73
  74     memset(&temp,0,sizeof(temp));
  75
  76     temp.browserList  = (Object *)GetTagData(MUIA_BrowserEditWin_ListObj,(ULONG)NULL,attrs);
  77     if (!temp.browserList) return 0;
  78
  79     bn = temp.bn = (struct URL_BrowserNode *)GetTagData(MUIA_BrowserEditWin_Browser,(ULONG)NULL,attrs);
  80     if (!bn) return 0;
  81
  82
  83     if (obj = (Object *)DoSuperNew(cl,obj,
  84         MUIA_HelpNode,             "BWIN",
  85         MUIA_Window_ID,            MAKE_ID('E','D','B','R'),
  86         MUIA_Window_Title,         getString(MSG_Browser_WinTitle),
  87         MUIA_Window_ScreenTitle,   getString(MSG_App_ScreenTitle),
  88         MUIA_Window_AllowTopMenus, FALSE,
  89
  90         WindowContents, VGroup,
  91             Child, ColGroup(2),
  92                 GroupFrameT(getString(MSG_Edit_Definitions)),
  93
  94                 Child, olabel2(MSG_Edit_Name),
  95                 Child, temp.name = ostring(NAME_LEN,MSG_Edit_Name,MSG_Edit_Name_Help),
  96
  97                 Child, olabel2(MSG_Edit_Path),
  98                 Child, temp.path = opopph(syms,names,PATH_LEN,MSG_Edit_Path,TRUE,MSG_Edit_Path_Help),
  99                 Child, olabel2(MSG_Edit_Port),
 100                 Child, temp.port = opopport(PORT_LEN,MSG_Edit_Port,MSG_Edit_Port_Help),
 101             End,
 102
 103             Child, ColGroup(2),
 104                 GroupFrameT(getString(MSG_Edit_ARexx)),
 105
 106                 Child, olabel2(MSG_Edit_Show),
 107                 Child, temp.show = ostring(SHOWCMD_LEN,MSG_Edit_Show,MSG_Edit_Show_Help),
 108
 109                 Child, olabel2(MSG_Edit_Screen),
 110                 Child, temp.toFront = ostring(TOFRONTCMD_LEN,MSG_Edit_Screen,MSG_Edit_Screen_Help),
 111
 112                 Child, olabel2(MSG_Edit_OpenURL),
 113                 Child, temp.openURL = opopph(syms,names,OPENURLCMD_LEN,MSG_Edit_OpenURL,FALSE,MSG_Edit_OpenURL_Help),
 114                 Child, olabel2(MSG_Edit_NewWin),
 115                 Child, temp.openURLNW = opopph(syms,names,OPENURLWCMD_LEN,MSG_Edit_NewWin,FALSE,MSG_Edit_NewWin_Help),
 116             End,
 117
 118             Child, ColGroup(3),
 119                 Child, temp.use = obutton(MSG_Edit_Use,MSG_Edit_Use_Help),
 120                 Child, RectangleObject, End,
 121                 Child, temp.cancel = obutton(MSG_Edit_Cancel,MSG_Edit_Cancel_Help),
 122             End,
 123         End,
 124         TAG_MORE, attrs))
 125     {
 126         struct data *data = INST_DATA(cl,obj);
 127
 128         CopyMem(&temp,data,sizeof(*data));
 129
 130         set(data->name,MUIA_String_Contents,bn->ubn_Name);
 131         set(data->path,MUIA_String_Contents,bn->ubn_Path);
 132         set(data->port,MUIA_String_Contents,bn->ubn_Port);
 133         set(data->show,MUIA_String_Contents,bn->ubn_ShowCmd);
 134         set(data->toFront,MUIA_String_Contents,bn->ubn_ToFrontCmd);
 135         set(data->openURL,MUIA_String_Contents,bn->ubn_OpenURLCmd);
 136         set(data->openURLNW,MUIA_String_Contents,bn->ubn_OpenURLWCmd);
 137     }
 138
 139     return (ULONG)obj;
 140 }
 141
 142 /**************************************************************************/
 143
 144 static ULONG
 145 mGet(struct IClass *cl,Object *obj,struct opGet *msg)
 146 {
 147     struct data *data = INST_DATA(cl,obj);
 148
 149     switch (msg->opg_AttrID)
 150     {
 151         case MUIA_BrowserEditWin_Browser: *msg->opg_Storage = (ULONG)data->bn; return TRUE;
 152         case MUIA_App_IsSubWin:           *msg->opg_Storage = TRUE; return TRUE;
 153         default: return DoSuperMethodA(cl,obj,(Msg)msg);
 154     }
 155 }
 156
 157 /**************************************************************************/
 158
 159 static ULONG
 160 mWindow_Setup(struct IClass *cl,Object *obj,struct MUIP_Window_Setup *msg)
 161 {
 162     struct data *data = INST_DATA(cl,obj);
 163
 164     if (!DoSuperMethodA(cl,obj,(Msg)msg)) return FALSE;
 165
 166     if (!(data->flags & FLG_Notifies))
 167     {
 168         DoMethod(data->use,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,1,MUIM_BrowserEditWin_Use);
 169         DoMethod(data->cancel,MUIM_Notify,MUIA_Pressed,FALSE,(ULONG)obj,3,MUIM_Set,MUIA_Window_CloseRequest,TRUE);
 170
 171         DoMethod(obj,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,(ULONG)_app(obj),6,MUIM_Application_PushMethod,
 172             (ULONG)_app(obj),3,MUIM_App_CloseWin,MUIA_BrowserEditWin_Browser,(ULONG)data->bn);
 173
 174         data->flags |= FLG_Notifies;
 175     }
 176
 177     return TRUE;
 178 }
 179
 180 /**************************************************************************/
 181
 182 static ULONG
 183 mUse(struct IClass *cl,Object *obj,Msg msg)
 184 {
 185     struct data            *data = INST_DATA(cl,obj);
 186     struct URL_BrowserNode *bn = data->bn;
 187     LONG                   i, visible, first;
 188
 189     bn->ubn_Flags &= ~UNF_NEW;
 190
 191     strcpy((STRPTR)bn->ubn_Name,(STRPTR)xget(data->name,MUIA_String_Contents));
 192     strcpy((STRPTR)bn->ubn_Path,(STRPTR)xget(data->path,MUIA_String_Contents));
 193     strcpy((STRPTR)bn->ubn_Port,(STRPTR)xget(data->port,MUIA_String_Contents));
 194
 195     strcpy((STRPTR)bn->ubn_ShowCmd,(STRPTR)xget(data->show,MUIA_String_Contents));
 196     strcpy((STRPTR)bn->ubn_ToFrontCmd,(STRPTR)xget(data->toFront,MUIA_String_Contents));
 197     strcpy((STRPTR)bn->ubn_OpenURLCmd,(STRPTR)xget(data->openURL,MUIA_String_Contents));
 198     strcpy((STRPTR)bn->ubn_OpenURLWCmd,(STRPTR)xget(data->openURLNW,MUIA_String_Contents));
 199
 200     get(data->browserList,MUIA_List_Visible,&visible);
 201     if (visible!=-1)
 202     {
 203         get(data->browserList,MUIA_List_First,&first);
 204
 205         for (i = first; i < (first + visible); i++)
 206         {
 207             DoMethod(data->browserList,MUIM_List_GetEntry,i,(ULONG)&bn);
 208             if (!bn) break;
 209
 210             if (bn==data->bn)
 211             {
 212                 DoMethod(data->browserList,MUIM_List_Redraw,i);
 213                 break;
 214             }
 215         }
 216     }
 217
 218     set(obj,MUIA_Window_CloseRequest,TRUE);
 219
 220     return TRUE;
 221 }
 222
 223 /**************************************************************************/
 224
 225 M_DISP(dispatcher)
 226 {
 227     M_DISPSTART
 228
 229     switch (msg->MethodID)
 230     {
 231         case OM_NEW:                  return mNew(cl,obj,(APTR)msg);
 232         case OM_GET:                  return mGet(cl,obj,(APTR)msg);
 233
 234         case MUIM_Window_Setup:       return mWindow_Setup(cl,obj,(APTR)msg);
 235
 236         case MUIM_BrowserEditWin_Use: return mUse(cl,obj,(APTR)msg);
 237
 238         default:                      return DoSuperMethodA(cl,obj,msg);
 239     }
 240 }
 241
 242 M_DISPEND(dispatcher)
 243
 244 /**************************************************************************/
 245
 246 ULONG
 247 initBrowserEditWinClass(void)
 248 {
 249     if (g_browserEditWinClass = MUI_CreateCustomClass(NULL,MUIC_Window,NULL,sizeof(struct data),DISP(dispatcher)))
 250     {
 251         localizeStrings(names);
 252
 253         return TRUE;
 254     }
 255
 256     return FALSE;
 257 }
 258
 259 /**************************************************************************/
 260
 261 void
 262 disposeBrowserEditWinClass(void)
 263 {
 264     if (g_browserEditWinClass) MUI_DeleteCustomClass(g_browserEditWinClass);
 265 }
 266
 267 /**************************************************************************/
 268