?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
revert between 56095 -> 55830 in arch
[AROS.git] / workbench / libs / asl / gadgets.c
blob46f45b36475b4ad8c02a0fa8edfe418b0105b7eb
1 /*
2 Copyright © 1995-2001, The AROS Development Team. All rights reserved.
3 $Id$
4
5 Desc:
6 Lang: english
7 */
8
9
10 #include <proto/exec.h>
11 #include <proto/dos.h>
12 #include <proto/utility.h>
13 #include <proto/intuition.h>
14 #include <exec/memory.h>
15 #include <intuition/screens.h>
16 #include <intuition/icclass.h>
17 #include <intuition/cghooks.h>
18 #include <intuition/imageclass.h>
19 #include <intuition/gadgetclass.h>
20 #include <string.h>
21
22 #include "asl_intern.h"
23 #include "layout.h"
24
25 #define SDEBUG 0
26 #define DEBUG 0
27
28 #include <aros/debug.h>
29
30 /*******************************************************************************************/
31
32 #ifdef __MORPHOS__
33 /*
34 * temporarily..until included in our includes
35 */
36
37 /********************************************************************************/
38 /* imageclass.h AROS extensions */
39
40 #ifndef SYSIA_WithBorder
41 #define SYSIA_WithBorder IA_FGPen /* default: TRUE */
42 #endif
43
44 #ifndef SYSIA_Style
45 #define SYSIA_Style IA_BGPen /* default: SYSISTYLE_NORMAL */
46
47 #define SYSISTYLE_NORMAL 0
48 #define SYSISTYLE_GADTOOLS 1 /* to get arrow images in gadtools look */
49 #endif
50
51 #endif
52
53 /*******************************************************************************************/
54
55 #define G(x) ((struct Gadget *)(x))
56 #define EG(x) ((struct ExtGadget *)(x))
57
58 /*******************************************************************************************/
59
60 static const struct TagItem arrowinc_to_prop [] =
61 {
62 {GA_ID , ASLSC_Inc },
63 {TAG_DONE }
64 };
65
66 static const struct TagItem arrowdec_to_prop [] =
67 {
68 {GA_ID , ASLSC_Dec },
69 {TAG_DONE }
70 };
71
72 static const struct TagItem prop_to_lv [] =
73 {
74 {PGA_Top , ASLLV_TopPixel},
75 {TAG_DONE }
76 };
77
78 static const struct TagItem lv_to_prop [] =
79 {
80 {ASLLV_TopPixel , PGA_Top },
81 {ASLLV_TotalPixels , PGA_Total },
82 {ASLLV_VisiblePixels, PGA_Visible },
83 {ASLLV_DeltaFactor , ASLSC_DeltaFactor },
84 {TAG_DONE }
85
86 };
87
88 /*******************************************************************************************/
89
90 BOOL makescrollergadget(struct ScrollerGadget *scrollergad, struct LayoutData *ld,
91 struct TagItem *tags, struct AslBase_intern *AslBase)
92 {
93 struct TagItem extraproptags[] =
94 {
95 {PGA_NotifyBehaviour, PG_BEHAVIOUR_NICE},
96 {PGA_RenderBehaviour, PG_BEHAVIOUR_NICE},
97 {TAG_MORE , 0 }
98 };
99
100 struct TagItem *ti, *h_ti, *w_ti;
101 WORD x = 0, y = 0, w = 0, h = 0, aw, ah;
102 UWORD flags = 0;
103 BOOL freehoriz = (GetTagData(PGA_Freedom, FREEVERT, tags) == FREEHORIZ);
104 BOOL result = FALSE;
105
106 if ((ti = FindTagItem(GA_Left, tags)))
107 {
108 x = ti->ti_Data;
109 } else if ((ti = FindTagItem(GA_RelRight, tags)))
110 {
111 x = ti->ti_Data; flags |= GFLG_RELRIGHT;
112 }
113
114 if ((ti = FindTagItem(GA_Top, tags)))
115 {
116 y = ti->ti_Data;
117 } else if ((ti = FindTagItem(GA_RelBottom, tags)))
118 {
119 y = ti->ti_Data; flags |= GFLG_RELBOTTOM;
120 }
121
122 if ((w_ti = FindTagItem(GA_Width, tags)))
123 {
124 w = w_ti->ti_Data;
125 } else if ((w_ti = FindTagItem(GA_RelWidth, tags)))
126 {
127 w = w_ti->ti_Data; flags |= GFLG_RELWIDTH;
128 }
129
130 if ((h_ti = FindTagItem(GA_Height, tags)))
131 {
132 h = h_ti->ti_Data;
133 } else if ((h_ti = FindTagItem(GA_RelHeight, tags)))
134 {
135 h = h_ti->ti_Data; flags |= GFLG_RELHEIGHT;
136 }
137
138 if (freehoriz)
139 {
140 aw = h; ah = h;
141 w -= aw * 2;
142 if (w_ti) w_ti->ti_Data = w;
143 } else {
144 aw = w; ah = w;
145 h -= ah * 2;
146 if (h_ti) h_ti->ti_Data = h;
147 }
148
149 extraproptags[2].ti_Data = (IPTR)tags;
150 if ((scrollergad->prop = NewObjectA(AslBase->aslpropclass, NULL, extraproptags)))
151 {
152 struct TagItem arrow_tags[] =
153 {
154 {GA_Left , freehoriz ? x + w - 1 : x },
155 {GA_Top , freehoriz ? y : y + h - 1 },
156 {GA_Width , aw },
157 {GA_Height , ah },
158 {GA_RelVerify , TRUE },
159 {GA_Immediate , TRUE },
160 {GA_Previous , (IPTR)scrollergad->prop },
161 {GA_ID , ID_ARROWDEC },
162 {TAG_DONE }
163 };
164
165 if (flags & GFLG_RELRIGHT) arrow_tags[0].ti_Tag = GA_RelRight;
166 if (flags & GFLG_RELWIDTH)
167 {
168 arrow_tags[0].ti_Tag = GA_RelRight;
169 if (freehoriz) arrow_tags[0].ti_Data += 2;
170 }
171
172 if (flags & GFLG_RELBOTTOM) arrow_tags[1].ti_Tag = GA_RelBottom;
173 if (flags & GFLG_RELHEIGHT)
174 {
175 arrow_tags[1].ti_Tag = GA_RelBottom;
176 if (!freehoriz) arrow_tags[1].ti_Data += 2;
177 }
178
179 if ((scrollergad->arrow1 = NewObjectA(AslBase->aslarrowclass, NULL, arrow_tags)))
180 {
181 if (freehoriz)
182 {
183 arrow_tags[0].ti_Data += aw;
184 } else {
185 arrow_tags[1].ti_Data += ah;
186 }
187 arrow_tags[6].ti_Data = (IPTR)scrollergad->arrow1;
188 arrow_tags[7].ti_Data = ID_ARROWINC;
189
190 if ((scrollergad->arrow2 = NewObjectA(AslBase->aslarrowclass, NULL, arrow_tags)))
191 {
192 struct TagItem image_tags[] =
193 {
194 {SYSIA_Which , freehoriz ? LEFTIMAGE : UPIMAGE },
195 {SYSIA_DrawInfo , (IPTR)ld->ld_Dri },
196 {SYSIA_Style , SYSISTYLE_GADTOOLS },
197 {IA_Width , aw },
198 {IA_Height , ah },
199 {TAG_DONE }
200 };
201 struct Image *im;
202
203 if ((im = NewObjectA(NULL, SYSICLASS, image_tags)))
204 {
205 SetAttrs(scrollergad->arrow1, GA_Image, (IPTR)im,
206 TAG_DONE);
207
208 image_tags[0].ti_Data = (freehoriz ? RIGHTIMAGE : DOWNIMAGE);
209
210 if ((im = NewObjectA(NULL, SYSICLASS, image_tags)))
211 {
212 #if USE_SAFE_NOTIFYING
213 struct TagItem ic_tags [] =
214 {
215 {ICA_MAP , (IPTR) prop_to_lv },
216 {TAG_DONE }
217 };
218
219 if ((scrollergad->prop_ic = NewObjectA(NULL, ICCLASS, ic_tags)))
220 {
221 ic_tags[0].ti_Data = (IPTR)lv_to_prop;
222
223 if ((scrollergad->listview_ic = NewObjectA(NULL, ICCLASS, ic_tags)))
224 {
225 #endif
226 struct TagItem set_tags [] =
227 {
228 {ICA_TARGET , (IPTR) scrollergad->prop },
229 {ICA_MAP , (IPTR) arrowdec_to_prop },
230 {TAG_DONE }
231 };
232
233 SetAttrs(scrollergad->arrow2, GA_Image, (IPTR)im,
234 TAG_DONE);
235
236 SetAttrsA(scrollergad->arrow1, set_tags);
237 set_tags[1].ti_Data = (IPTR)arrowinc_to_prop;
238 SetAttrsA(scrollergad->arrow2, set_tags);
239
240 result = TRUE;
241
242 #if USE_SAFE_NOTIFYING
243
244 } /* if ((scrollergad->listview_ic = NewObjectA(NULL, ICCLASS, ic_tags))) */
245
246 } /* if ((scrollergad->prop_ic = NewObjectA(NULL, ICCLASS, ic_tags))) */
247
248 #endif
249
250 } /* if ((im = NewObjectA(NULL, SYSICLASS, image_tags))) */
251
252 } /* if ((im = NewObject(NULL, SYSICLASS, image_tags))) */
253
254 } /* if ((scrollergad->arrow2 = NewObjectA(NULL, BUTTONGCLASS, arrow_tags))) */
255
256 } /* if (scrollergad->arrow1 = NewObjectA(NULL, BUTTONGCLASS, arrow_tags)) */
257
258 } /* if ((scrollergad->prop = NewObjectA(AslBase->aslpropclass, NULL, tags))) */
259
260 if (!result) killscrollergadget(scrollergad, AslBase);
261
262 return result;
263 }
264
265 /*******************************************************************************************/
266
267 void killscrollergadget(struct ScrollerGadget *scrollergad, struct AslBase_intern *AslBase)
268 {
269 if (scrollergad->prop) DisposeObject(scrollergad->prop);
270 scrollergad->prop = NULL;
271
272 if (scrollergad->arrow1)
273 {
274 if (G(scrollergad->arrow1)->GadgetRender) DisposeObject(G(scrollergad->arrow1)->GadgetRender);
275 DisposeObject(scrollergad->arrow1);
276 }
277 scrollergad->arrow1 = NULL;
278
279 if (scrollergad->arrow2)
280 {
281 if (G(scrollergad->arrow2)->GadgetRender) DisposeObject(G(scrollergad->arrow2)->GadgetRender);
282 DisposeObject(scrollergad->arrow2);
283 }
284 scrollergad->arrow2 = NULL;
285
286 #if USE_SAFE_NOTIFYING
287 if (scrollergad->prop_ic) DisposeObject(scrollergad->prop_ic);
288 scrollergad->prop_ic = NULL;
289
290 if (scrollergad->listview_ic) DisposeObject(scrollergad->listview_ic);
291 scrollergad->listview_ic = NULL;
292 #endif
293 }
294
295 /*******************************************************************************************/
296
297 void getgadgetcoords(struct Gadget *gad, struct GadgetInfo *gi, WORD *x, WORD *y, WORD *w, WORD *h)
298 {
299 *x = gad->LeftEdge + ((gad->Flags & GFLG_RELRIGHT) ? gi->gi_Domain.Width - 1 : 0);
300 *y = gad->TopEdge + ((gad->Flags & GFLG_RELBOTTOM) ? gi->gi_Domain.Height - 1 : 0);
301 *w = gad->Width + ((gad->Flags & GFLG_RELWIDTH) ? gi->gi_Domain.Width : 0);
302 *h = gad->Height + ((gad->Flags & GFLG_RELHEIGHT) ? gi->gi_Domain.Height : 0);
303 }
304
305 /*******************************************************************************************/
306
307 void getgadgetbounds(struct Gadget *gad, struct GadgetInfo *gi, WORD *x, WORD *y, WORD *w, WORD *h)
308 {
309 if (!(gad->Flags & GFLG_EXTENDED) ||
310 !(EG(gad)->MoreFlags & GMORE_BOUNDS))
311 {
312 return getgadgetcoords(gad, gi, x, y, w, h);
313 }
314
315 *x = EG(gad)->BoundsLeftEdge + ((gad->Flags & GFLG_RELRIGHT) ? gi->gi_Domain.Width - 1 : 0);
316 *y = EG(gad)->BoundsTopEdge + ((gad->Flags & GFLG_RELBOTTOM) ? gi->gi_Domain.Height - 1 : 0);
317 *w = EG(gad)->BoundsWidth + ((gad->Flags & GFLG_RELWIDTH) ? gi->gi_Domain.Width : 0);
318 *h = EG(gad)->BoundsHeight + ((gad->Flags & GFLG_RELHEIGHT) ? gi->gi_Domain.Height : 0);
319 }
320
321 /*******************************************************************************************/
322
323 void connectscrollerandlistview(struct ScrollerGadget *scrollergad, Object *listview,
324 struct AslBase_intern *AslBase)
325 {
326 #if USE_SAFE_NOTIFYING
327
328 struct TagItem ic_tags[] =
329 {
330 {ICA_TARGET , (IPTR)listview },
331 {TAG_DONE }
332 };
333
334 /* ICA_TARGET of prop ic is listview gadget */
335 SetAttrsA(scrollergad->prop_ic, ic_tags);
336
337 /* ICA_TARGET of listview ic is prop gadget */
338 ic_tags[0].ti_Data = (IPTR)scrollergad->prop;
339 SetAttrsA(scrollergad->listview_ic, ic_tags);
340
341 /* ICA_TARGET of listview gadget is listview ic */
342 ic_tags[0].ti_Data = (IPTR)scrollergad->listview_ic;
343 SetAttrsA(listview, ic_tags);
344
345 /* ICA_TARGET of prop gadget is prop ic */
346 ic_tags[0].ti_Data = (IPTR)scrollergad->prop_ic;
347 SetAttrsA(scrollergad->prop, ic_tags);
348
349 #else
350
351 struct TagItem ic_tags[] =
352 {
353 {ICA_TARGET , (IPTR)listview },
354 {ICA_MAP , (IPTR)prop_to_lv },
355 {TAG_DONE }
356 };
357
358 #warning This would not work in AmigaOS, because there gadgetclass is really lame and does not check for notifying loops
359
360 SetAttrsA(scrollergad->prop, ic_tags);
361
362 ic_tags[0].ti_Data = (IPTR)scrollergad->prop;
363 ic_tags[1].ti_Data = (IPTR)lv_to_prop;
364
365 SetAttrsA(listview, ic_tags);
366
367 #endif
368 }
369
370 /*******************************************************************************************/
371
372 void FreeObjects(Object **first, Object **last, struct AslBase_intern *AslBase)
373 {
374 Object **objptr;
375
376 for(objptr = first; objptr != last + 1; objptr++)
377 {
378 if (*objptr)
379 {
380 DisposeObject(*objptr);
381 *objptr = NULL;
382 }
383 }
384 }
385
386 /*******************************************************************************************/
Mirror of AROS' svn.