?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
added concrete implementations of putc(), getc(), getchar() and gets()
[tangerine.git] / workbench / classes / zune / betterstring / mcc / Dispatcher.c
blobe6d3928fa93a34d49a6a8c5896ae71b5aeb8b3fd
1 /***************************************************************************
2
3 BetterString.mcc - A better String gadget MUI Custom Class
4 Copyright (C) 1997-2000 Allan Odgaard
5 Copyright (C) 2005 by BetterString.mcc Open Source Team
6
7 This library is free software; you can redistribute it and/or
8 modify it under the terms of the GNU Lesser General Public
9 License as published by the Free Software Foundation; either
10 version 2.1 of the License, or (at your option) any later version.
11
12 This library is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 Lesser General Public License for more details.
16
17 BetterString class Support Site: http://www.sf.net/projects/bstring-mcc/
18
19 $Id$
20
21 ***************************************************************************/
22
23 #include <string.h>
24
25 #include <clib/alib_protos.h>
26 #include <libraries/gadtools.h>
27 #include <libraries/mui.h>
28 #include <graphics/gfxbase.h>
29 #include <proto/graphics.h>
30 #include <proto/exec.h>
31 #include <proto/intuition.h>
32 #include <proto/locale.h>
33 #include <proto/muimaster.h>
34 #include <proto/utility.h>
35
36 #include "BetterString_mcc.h"
37 #include "private.h"
38
39 /*
40 struct NewMenu PopupMenuData[] =
41 {
42 NM_TITLE, "Stringgadget", NULL, 0L, 0, (APTR)0,
43 NM_ITEM, "Cut", NULL, 0L, 0, (APTR)1,
44 NM_ITEM, "Copy", NULL, 0L, 0, (APTR)2,
45 NM_ITEM, "Paste", NULL, 0L, 0, (APTR)3,
46 NM_ITEM, NM_BARLABEL, NULL, 0L, 0, (APTR)0,
47 NM_ITEM, "Undo", NULL, 0L, 0, (APTR)4,
48 NM_ITEM, "Redo", NULL, 0L, 0, (APTR)5,
49 NM_ITEM, "Original", NULL, 0L, 0, (APTR)6,
50 NM_ITEM, NM_BARLABEL, NULL, 0L, 0, (APTR)0,
51 NM_ITEM, "Complete path", NULL, 0L, 0, (APTR)7,
52 NM_ITEM, "Toggle case", NULL, 0L, 0, (APTR)0,
53 NM_SUB, "Character", NULL, 0L, 0, (APTR)8,
54 NM_SUB, "Word", NULL, 0L, 0, (APTR)9,
55 NM_ITEM, "Arithmetic", NULL, 0L, 0, (APTR)0,
56 NM_SUB, "Increase", NULL, 0L, 0, (APTR)10,
57 NM_SUB, "Decrease", NULL, 0L, 0, (APTR)11,
58 NM_SUB, "To decimal", NULL, 0L, 0, (APTR)12,
59 NM_SUB, "To hexadecimal", NULL, 0L, 0, (APTR)13,
60 NM_END, NULL, NULL, 0L, 0, (APTR)0
61 };
62 */
63
64 #ifndef MUIA_CustomBackfill
65 #define MUIA_CustomBackfill 0x80420a63
66 #endif
67 #ifndef MUIM_Backfill
68 #define MUIM_Backfill 0x80428d73
69 struct MUIP_Backfill { ULONG MethodID; LONG left; LONG top; LONG right; LONG bottom; LONG xoffset; LONG yoffset; };
70 #endif
71
72 ULONG New(struct IClass *cl, Object *obj, struct opSet *msg)
73 {
74 if((obj = (Object *)DoSuperMethodA(cl, obj, (Msg)msg)))
75 {
76 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
77
78 if((data->Pool = CreatePool(MEMF_ANY, 512, 256)))
79 {
80 // kprintf("OM_NEW by %s\n", FindTask(NULL)->tc_Node.ln_Name);
81
82 data->locale = OpenLocale(NULL);
83 data->Contents = (STRPTR)MyAllocPooled(data->Pool, 40);
84 *data->Contents = '\0';
85
86 // data->PopupMenu = MUI_MakeObject(MUIO_MenustripNM, PopupMenuData, NULL);
87 SetAttrs(obj, MUIA_FillArea, FALSE,
88 // MUIA_ContextMenu, data->PopupMenu,
89 // MUIA_CustomBackfill, TRUE,
90 TAG_DONE );
91
92 if(FindTagItem(MUIA_Font, msg->ops_AttrList))
93 data->Flags |= FLG_OwnFont;
94
95 if(FindTagItem(MUIA_Background, msg->ops_AttrList))
96 data->Flags |= FLG_OwnBackground;
97
98 {
99 struct TagItem *tag;
100
101 if((tag = FindTagItem(MUIA_Frame, msg->ops_AttrList)))
102 {
103 if(tag->ti_Data == MUIV_Frame_String)
104 data->Flags |= FLG_SetFrame;
105 }
106 }
107
108 msg->MethodID = OM_SET;
109 Set(cl, obj, (struct opSet *)msg);
110 msg->MethodID = OM_NEW;
111 data->BufferPos = 0;
112
113 return((ULONG)obj);
114 }
115 CoerceMethod(cl, obj, OM_DISPOSE);
116 }
117 return(FALSE);
118 }
119
120 ULONG Dispose(struct IClass *cl, Object *obj, Msg msg)
121 {
122 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
123
124 // kprintf("OM_DISPOSE by %s\n", FindTask(NULL)->tc_Node.ln_Name);
125 /* if(data->PopupMenu)
126 MUI_DisposeObject(data->PopupMenu);
127 */ DeletePool(data->Pool);
128 CloseLocale(data->locale);
129 return(DoSuperMethodA(cl, obj, msg));
130 }
131
132 ULONG Setup(struct IClass *cl, Object *obj, struct MUI_RenderInfo *rinfo)
133 {
134 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
135
136 InitConfig(obj, data);
137 if(DoSuperMethodA(cl, obj, (Msg)rinfo))
138 {
139 /* ULONG color;
140 if(DoMethod(obj, MUIM_GetConfigItem, 132, &color))
141 {
142 UBYTE image[6];
143
144 strcpy(image, "2:");
145 strcat(image, (STRPTR)color);
146 set(obj, MUIA_Background, image);
147 }
148 */
149
150 _flags(obj) |= (1<<7);
151
152 data->ehnode.ehn_Priority = 0;
153 data->ehnode.ehn_Flags = MUI_EHF_GUIMODE;
154 data->ehnode.ehn_Object = obj;
155 data->ehnode.ehn_Class = cl;
156 data->ehnode.ehn_Events = IDCMP_MOUSEBUTTONS | IDCMP_RAWKEY;
157 DoMethod(_win(obj), MUIM_Window_AddEventHandler, &data->ehnode);
158
159 return(TRUE);
160 }
161 return(FALSE);
162 }
163
164 ULONG Cleanup(struct IClass *cl, Object *obj, Msg msg)
165 {
166 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
167
168 DoMethod(_win(obj), MUIM_Window_RemEventHandler, &data->ehnode);
169
170 /* if(data->Flags & FLG_Active)
171 {
172 data->Flags &= ~FLG_Active;
173 data->ehnode.ehn_Events &= ~IDCMP_MOUSEMOVE;
174
175 if(!(data->Flags & FLG_OwnBackground))
176 set(obj, MUIA_Background, data->InactiveBackground);
177 }
178 */
179 FreeConfig(muiRenderInfo(obj), data);
180 return(DoSuperMethodA(cl, obj, msg));
181 }
182
183 ULONG AskMinMax (struct IClass *cl, Object *obj, struct MUIP_AskMinMax *msg)
184 {
185 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
186 WORD Height;
187
188 DoSuperMethodA(cl, obj, (Msg)msg);
189
190 struct TextFont *font = data->Font ? data->Font : muiAreaData(obj)->mad_Font;
191 Height = font->tf_YSize;
192 msg->MinMaxInfo->MinHeight += Height;
193 msg->MinMaxInfo->DefHeight += Height;
194 msg->MinMaxInfo->MaxHeight += Height;
195
196 if(data->Width)
197 {
198 ULONG width = data->Width * MyTextLength(font, "n", 1);
199
200 msg->MinMaxInfo->MinWidth += width;
201 msg->MinMaxInfo->DefWidth += width;
202 msg->MinMaxInfo->MaxWidth += width;
203 }
204 else
205 {
206 msg->MinMaxInfo->MinWidth += 10;
207 msg->MinMaxInfo->DefWidth += 100;
208 msg->MinMaxInfo->MaxWidth = MUI_MAXMAX;
209 }
210 return(0);
211 }
212
213 ULONG Show(struct IClass *cl, Object *obj, Msg msg)
214 {
215 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
216 struct MUI_AreaData *ad = muiAreaData(obj);
217 struct BitMap *friendBMp = muiRenderInfo(obj)->mri_RastPort->BitMap;
218 WORD width, height, depth;
219 struct TextFont *font = data->Font ? data->Font : ad->mad_Font;
220
221 DoSuperMethodA(cl, obj, msg);
222
223 width = ad->mad_Box.Width - ad->mad_subwidth;
224 height = font->tf_YSize;
225 depth = ((struct Library *)GfxBase)->lib_Version >= 39 ? GetBitMapAttr(friendBMp, BMA_DEPTH) : friendBMp->Depth;
226
227 InitRastPort(&data->rport);
228 data->rport.BitMap = MUIG_AllocBitMap(width+40, height, depth, (ULONG)NULL, friendBMp);
229 SetFont(&data->rport, font);
230 SetDrMd(&data->rport, JAM1);
231
232 data->Flags |= FLG_Shown;
233 return(TRUE);
234 }
235
236 ULONG Hide(struct IClass *cl, Object *obj, Msg msg)
237 {
238 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
239
240 #ifdef __AROS__
241 if (data->Flags & FLG_Shown)
242 {
243 DeinitRastPort(&data->rport);
244 }
245 #endif
246
247 data->Flags &= ~FLG_Shown;
248 MUIG_FreeBitMap(data->rport.BitMap);
249 return(DoSuperMethodA(cl, obj, msg));
250 }
251
252 ULONG mDraw(struct IClass *cl, Object *obj, struct MUIP_Draw *msg)
253 {
254 DoSuperMethodA(cl, obj, (Msg)msg);
255
256 if(msg->flags & MADF_DRAWUPDATE)
257 {
258 PrintString(cl, obj);
259 }
260
261 if(msg->flags & MADF_DRAWOBJECT)
262 {
263 PrintString(cl, obj);
264 }
265
266 return(0);
267 }
268
269 DISPATCHERPROTO(_Dispatcher)
270 {
271 DISPATCHER_INIT
272
273 struct InstData *data = (struct InstData *)INST_DATA(cl, obj);
274 ULONG result = TRUE;
275
276 switch(msg->MethodID)
277 {
278 case OM_NEW:
279 return(New(cl, obj, (struct opSet *)msg));
280 case MUIM_Setup:
281 return(Setup(cl, obj, (struct MUI_RenderInfo *)msg));
282 case MUIM_Show:
283 return(Show(cl, obj, msg));
284 case MUIM_AskMinMax:
285 return(AskMinMax(cl, obj, (struct MUIP_AskMinMax *)msg));
286 case MUIM_Draw:
287 return(mDraw(cl, obj, (struct MUIP_Draw *)msg));
288 case OM_GET:
289 return(Get(cl, obj, (struct opGet *)msg));
290 case OM_SET:
291 Set(cl, obj, (struct opSet *)msg);
292 return(DoSuperMethodA(cl, obj, msg));
293 case MUIM_HandleEvent:
294 {
295 if(data->Flags & FLG_Ghosted || !(data->Flags & FLG_Shown))
296 {
297 result = 0;
298 }
299 else
300 {
301 ULONG display_pos = data->DisplayPos;
302 result = HandleInput(cl, obj, (struct MUIP_HandleEvent *)msg);
303 if(display_pos != data->DisplayPos)
304 SetAttrs(obj, MUIA_String_DisplayPos, data->DisplayPos, TAG_DONE);
305
306 if(!result && data->ForwardObject)
307 {
308 ULONG attr = 0;
309
310 switch(((struct MUIP_HandleEvent *)msg)->muikey)
311 {
312 case MUIKEY_TOP:
313 attr = MUIV_List_Active_Top;
314 break;
315 case MUIKEY_BOTTOM:
316 attr = MUIV_List_Active_Bottom;
317 break;
318 case MUIKEY_UP:
319 attr = MUIV_List_Active_Up;
320 break;
321 case MUIKEY_DOWN:
322 attr = MUIV_List_Active_Down;
323 break;
324 case MUIKEY_PAGEUP:
325 attr = MUIV_List_Active_PageUp;
326 break;
327 case MUIKEY_PAGEDOWN:
328 attr = MUIV_List_Active_PageDown;
329 break;
330 }
331 if(attr)
332 {
333 SetAttrs(data->ForwardObject, MUIA_List_Active, attr, TAG_DONE);
334 result = MUI_EventHandlerRC_Eat;
335 }
336 }
337 }
338 }
339 break;
340
341 case MUIM_GoActive:
342 {
343 data->Flags |= FLG_Active;
344 /* DoMethod(_win(obj), MUIM_Window_RemEventHandler, &data->ehnode);
345 data->ehnode.ehn_Events |= IDCMP_RAWKEY;
346 DoMethod(_win(obj), MUIM_Window_AddEventHandler, &data->ehnode);
347 */
348 if(data->Original)
349 MyFreePooled(data->Pool, (APTR)data->Original);
350 if((data->Original = (STRPTR)MyAllocPooled(data->Pool, strlen(data->Contents)+1)))
351 strcpy(data->Original, data->Contents);
352
353 if(!(data->Flags & FLG_OwnBackground))
354 set(obj, MUIA_Background, data->ActiveBackground);
355 else MUI_Redraw(obj, MADF_DRAWUPDATE);
356 }
357 break;
358
359 case MUIM_GoInactive:
360 {
361 // kprintf("0x%lx: GoInactive\n", obj);
362 data->Flags &= ~FLG_Active;
363 DoMethod(_win(obj), MUIM_Window_RemEventHandler, &data->ehnode);
364 data->ehnode.ehn_Events &= ~IDCMP_MOUSEMOVE;
365 DoMethod(_win(obj), MUIM_Window_AddEventHandler, &data->ehnode);
366
367 if(!(data->Flags & FLG_OwnBackground))
368 set(obj, MUIA_Background, data->InactiveBackground);
369 else MUI_Redraw(obj, MADF_DRAWUPDATE);
370 }
371 break;
372
373 case MUIM_Hide:
374 return(Hide(cl, obj, msg));
375 case MUIM_Cleanup:
376 return(Cleanup(cl, obj, msg));
377 case OM_DISPOSE:
378 return(Dispose(cl, obj, msg));
379
380 case MUIM_Export:
381 {
382 ULONG id;
383 struct MUIP_Export *exp_msg = (struct MUIP_Export *)msg;
384
385 if((id = (muiNotifyData(obj)->mnd_ObjectID)))
386 DoMethod(exp_msg->dataspace, MUIM_Dataspace_Add, data->Contents, strlen(data->Contents)+1, id);
387
388 result = 0;
389 }
390 break;
391
392 case MUIM_Import:
393 {
394 ULONG id;
395 struct MUIP_Import *imp_msg = (struct MUIP_Import *)msg;
396
397 if((id = (muiNotifyData(obj)->mnd_ObjectID)))
398 {
399 STRPTR contents = (STRPTR)DoMethod(imp_msg->dataspace, MUIM_Dataspace_Find, id);
400
401 // if(contents)
402 set(obj, MUIA_String_Contents, contents);
403 }
404 result = 0;
405 }
406 break;
407
408 case MUIM_BetterString_ClearSelected:
409 {
410 DeleteBlock(data);
411 data->Flags &= ~FLG_BlockEnabled;
412 }
413 break;
414
415 case MUIM_BetterString_Insert:
416 {
417 UWORD pos;
418 struct MUIP_BetterString_Insert *ins_msg = (struct MUIP_BetterString_Insert *)msg;
419
420 switch(ins_msg->pos)
421 {
422 /* case MUIV_BetterString_Insert_StartOfString:
423 pos = 0;
424 break;
425 */
426 case MUIV_BetterString_Insert_EndOfString:
427 pos = strlen(data->Contents);
428 break;
429
430 case MUIV_BetterString_Insert_BufferPos:
431 pos = data->BufferPos;
432 break;
433
434 default:
435 pos = ins_msg->pos;
436 break;
437 }
438 Overwrite(ins_msg->text, pos, 0, data);
439 data->Flags &= ~FLG_BlockEnabled;
440 MUI_Redraw(obj, MADF_DRAWUPDATE);
441 }
442 break;
443 /*
444 case MUIM_Backfill:
445 {
446 struct MUIP_Backfill *fill_msg = (struct MUIP_Backfill *)msg;
447
448 if(!(data->Flags & FLG_Active))
449 DoMethod(obj, MUIM_DrawBackground, fill_msg->left, fill_msg->top, fill_msg->right-fill_msg->left+1, fill_msg->bottom-fill_msg->top+1, fill_msg->xoffset, fill_msg->yoffset);
450 // printf("%ld, %ld, %ld, %ld\n%ld, %ld\n", fill_msg->left, fill_msg->top, fill_msg->right, fill_msg->bottom, fill_msg->xoffset, fill_msg->yoffset);
451 }
452 */
453 case MUIM_BetterString_FileNameStart:
454 {
455 result = FileNameStart((struct MUIP_BetterString_FileNameStart *)msg);
456 }
457 break;
458
459 default:
460 return(DoSuperMethodA(cl, obj, msg));
461 }
462 return(result);
463
464 DISPATCHER_EXIT
465 }
A totally sweet operating system