1 /* Copyright (c) 1997-1999 Miller Puckette.
2 * For information on usage and redistribution, and for a DISCLAIMER OF ALL
3 * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */
5 /* g_7_guis.c written by Thomas Musil (c) IEM KUG Graz Austria 2000-2001 */
6 /* thanks to Miller Puckette, Guenther Geiger and Krzystof Czaja */
11 #include "../../pdbox.h"
14 #include "g_all_guis.h"
23 #include "g_all_guis.h"
33 /* ---------- cnv my gui-canvas for a window ---------------- */
35 t_widgetbehavior my_canvas_widgetbehavior
;
36 static t_class
*my_canvas_class
;
38 /* widget helper functions */
40 void my_canvas_draw_new(t_my_canvas
*x
, t_glist
*glist
)
46 int xpos
=text_xpix(&x
->x_gui
.x_obj
, glist
);
47 int ypos
=text_ypix(&x
->x_gui
.x_obj
, glist
);
48 t_canvas
*canvas
=glist_getcanvas(glist
);
50 sys_vgui(".x%x.c create rectangle %d %d %d %d -fill #%6.6x -outline #%6.6x -tags %xRECT\n",
52 xpos
+ x
->x_vis_w
, ypos
+ x
->x_vis_h
,
53 x
->x_gui
.x_bcol
, x
->x_gui
.x_bcol
, x
);
54 sys_vgui(".x%x.c create rectangle %d %d %d %d -outline #%6.6x -tags %xBASE\n",
56 xpos
+ x
->x_gui
.x_w
, ypos
+ x
->x_gui
.x_h
,
58 sys_vgui(".x%x.c create text %d %d -text {%s} -anchor w \
59 -font {%s %d bold} -fill #%6.6x -tags %xLABEL\n",
60 canvas
, xpos
+x
->x_gui
.x_ldx
, ypos
+x
->x_gui
.x_ldy
,
61 strcmp(x
->x_gui
.x_lab
->s_name
, "empty")?x
->x_gui
.x_lab
->s_name
:"",
62 x
->x_gui
.x_font
, x
->x_gui
.x_fontsize
, x
->x_gui
.x_lcol
, x
);
66 void my_canvas_draw_move(t_my_canvas
*x
, t_glist
*glist
)
72 int xpos
=text_xpix(&x
->x_gui
.x_obj
, glist
);
73 int ypos
=text_ypix(&x
->x_gui
.x_obj
, glist
);
74 t_canvas
*canvas
=glist_getcanvas(glist
);
76 sys_vgui(".x%x.c coords %xRECT %d %d %d %d\n",
77 canvas
, x
, xpos
, ypos
, xpos
+ x
->x_vis_w
,
79 sys_vgui(".x%x.c coords %xBASE %d %d %d %d\n",
80 canvas
, x
, xpos
, ypos
,
81 xpos
+ x
->x_gui
.x_w
, ypos
+ x
->x_gui
.x_h
);
82 sys_vgui(".x%x.c coords %xLABEL %d %d\n",
83 canvas
, x
, xpos
+x
->x_gui
.x_ldx
,
88 void my_canvas_draw_erase(t_my_canvas
* x
, t_glist
* glist
)
94 t_canvas
*canvas
=glist_getcanvas(glist
);
96 sys_vgui(".x%x.c delete %xBASE\n", canvas
, x
);
97 sys_vgui(".x%x.c delete %xRECT\n", canvas
, x
);
98 sys_vgui(".x%x.c delete %xLABEL\n", canvas
, x
);
102 void my_canvas_draw_config(t_my_canvas
* x
, t_glist
* glist
)
108 t_canvas
*canvas
=glist_getcanvas(glist
);
110 sys_vgui(".x%x.c itemconfigure %xRECT -fill #%6.6x -outline #%6.6x\n", canvas
, x
,
111 x
->x_gui
.x_bcol
, x
->x_gui
.x_bcol
);
112 sys_vgui(".x%x.c itemconfigure %xBASE -outline #%6.6x\n", canvas
, x
,
113 x
->x_gui
.x_fsf
.x_selected
?IEM_GUI_COLOR_SELECTED
:x
->x_gui
.x_bcol
);
114 sys_vgui(".x%x.c itemconfigure %xLABEL -font {%s %d bold} -fill #%6.6x -text {%s} \n",
115 canvas
, x
, x
->x_gui
.x_font
, x
->x_gui
.x_fontsize
, x
->x_gui
.x_lcol
,
116 strcmp(x
->x_gui
.x_lab
->s_name
, "empty")?x
->x_gui
.x_lab
->s_name
:"");
120 void my_canvas_draw_select(t_my_canvas
* x
, t_glist
* glist
)
126 t_canvas
*canvas
=glist_getcanvas(glist
);
128 if(x
->x_gui
.x_fsf
.x_selected
)
130 sys_vgui(".x%x.c itemconfigure %xBASE -outline #%6.6x\n", canvas
, x
, IEM_GUI_COLOR_SELECTED
);
134 sys_vgui(".x%x.c itemconfigure %xBASE -outline #%6.6x\n", canvas
, x
, x
->x_gui
.x_bcol
);
139 void my_canvas_draw(t_my_canvas
*x
, t_glist
*glist
, int mode
)
141 if(mode
== IEM_GUI_DRAW_MODE_MOVE
)
142 my_canvas_draw_move(x
, glist
);
143 else if(mode
== IEM_GUI_DRAW_MODE_NEW
)
144 my_canvas_draw_new(x
, glist
);
145 else if(mode
== IEM_GUI_DRAW_MODE_SELECT
)
146 my_canvas_draw_select(x
, glist
);
147 else if(mode
== IEM_GUI_DRAW_MODE_ERASE
)
148 my_canvas_draw_erase(x
, glist
);
149 else if(mode
== IEM_GUI_DRAW_MODE_CONFIG
)
150 my_canvas_draw_config(x
, glist
);
153 /* ------------------------ cnv widgetbehaviour----------------------------- */
155 static void my_canvas_getrect(t_gobj
*z
, t_glist
*glist
, int *xp1
, int *yp1
, int *xp2
, int *yp2
)
157 t_my_canvas
*x
= (t_my_canvas
*)z
;
159 *xp1
= text_xpix(&x
->x_gui
.x_obj
, glist
);
160 *yp1
= text_ypix(&x
->x_gui
.x_obj
, glist
);
161 *xp2
= *xp1
+ x
->x_gui
.x_w
;
162 *yp2
= *yp1
+ x
->x_gui
.x_h
;
165 static void my_canvas_save(t_gobj
*z
, t_binbuf
*b
)
167 t_my_canvas
*x
= (t_my_canvas
*)z
;
171 iemgui_save(&x
->x_gui
, srl
, bflcol
);
172 binbuf_addv(b
, "ssiisiiisssiiiiiii", gensym("#X"),gensym("obj"),
173 (t_int
)x
->x_gui
.x_obj
.te_xpix
, (t_int
)x
->x_gui
.x_obj
.te_ypix
,
174 gensym("cnv"), x
->x_gui
.x_w
, x
->x_vis_w
, x
->x_vis_h
,
175 srl
[0], srl
[1], srl
[2], x
->x_gui
.x_ldx
, x
->x_gui
.x_ldy
,
176 iem_fstyletoint(&x
->x_gui
.x_fsf
), x
->x_gui
.x_fontsize
,
177 bflcol
[0], bflcol
[2], iem_symargstoint(&x
->x_gui
.x_isa
));
181 static void my_canvas_properties(t_gobj
*z
, t_glist
*owner
)
187 t_my_canvas
*x
= (t_my_canvas
*)z
;
191 iemgui_properties(&x
->x_gui
, srl
);
192 sprintf(buf
, "pdtk_iemgui_dialog %%s MY_CANVAS \
193 ------selectable_dimensions(pix):------ %d %d size: 0.0 0.0 empty \
194 ------visible_rectangle(pix)(pix):------ %d width: %d height: %d \
195 %d empty empty %d %d empty %d \
201 x
->x_vis_w
, x
->x_vis_h
, 0,/*no_schedule*/
202 -1, -1, -1, -1,/*no linlog, no init, no multi*/
203 srl
[0]->s_name
, srl
[1]->s_name
,
204 srl
[2]->s_name
, x
->x_gui
.x_ldx
, x
->x_gui
.x_ldy
,
205 x
->x_gui
.x_fsf
.x_font_style
, x
->x_gui
.x_fontsize
,
206 0xffffff & x
->x_gui
.x_bcol
, -1/*no frontcolor*/, 0xffffff & x
->x_gui
.x_lcol
);
207 gfxstub_new(&x
->x_gui
.x_obj
.ob_pd
, x
, buf
);
211 static void my_canvas_get_pos(t_my_canvas
*x
)
213 if(x
->x_gui
.x_fsf
.x_snd_able
&& x
->x_gui
.x_snd
->s_thing
)
215 x
->x_at
[0].a_w
.w_float
= text_xpix(&x
->x_gui
.x_obj
, x
->x_gui
.x_glist
);
216 x
->x_at
[1].a_w
.w_float
= text_ypix(&x
->x_gui
.x_obj
, x
->x_gui
.x_glist
);
217 pd_list(x
->x_gui
.x_snd
->s_thing
, &s_list
, 2, x
->x_at
);
221 static void my_canvas_dialog(t_my_canvas
*x
, t_symbol
*s
, int argc
, t_atom
*argv
)
226 int a
= (int)atom_getintarg(0, argc
, argv
);
227 int w
= (int)atom_getintarg(2, argc
, argv
);
228 int h
= (int)atom_getintarg(3, argc
, argv
);
230 int sr_flags
= iemgui_dialog(&x
->x_gui
, srl
, argc
, argv
);
237 x
->x_gui
.x_isa
.x_loadinit
= 0;
241 x
->x_gui
.x_h
= x
->x_gui
.x_w
;
248 (*x
->x_gui
.x_draw
)(x
, x
->x_gui
.x_glist
, IEM_GUI_DRAW_MODE_CONFIG
);
249 (*x
->x_gui
.x_draw
)(x
, x
->x_gui
.x_glist
, IEM_GUI_DRAW_MODE_MOVE
);
252 static void my_canvas_size(t_my_canvas
*x
, t_symbol
*s
, int ac
, t_atom
*av
)
254 int i
= (int)atom_getintarg(0, ac
, av
);
264 iemgui_size((void *)x
, &x
->x_gui
);
267 static void my_canvas_delta(t_my_canvas
*x
, t_symbol
*s
, int ac
, t_atom
*av
)
268 {iemgui_delta((void *)x
, &x
->x_gui
, s
, ac
, av
);}
270 static void my_canvas_pos(t_my_canvas
*x
, t_symbol
*s
, int ac
, t_atom
*av
)
271 {iemgui_pos((void *)x
, &x
->x_gui
, s
, ac
, av
);}
273 static void my_canvas_vis_size(t_my_canvas
*x
, t_symbol
*s
, int ac
, t_atom
*av
)
281 i
= (int)atom_getintarg(0, ac
, av
);
287 i
= (int)atom_getintarg(1, ac
, av
);
292 if(glist_isvisible(x
->x_gui
.x_glist
))
293 (*x
->x_gui
.x_draw
)(x
, x
->x_gui
.x_glist
, IEM_GUI_DRAW_MODE_MOVE
);
296 static void my_canvas_color(t_my_canvas
*x
, t_symbol
*s
, int ac
, t_atom
*av
)
297 {iemgui_color((void *)x
, &x
->x_gui
, s
, ac
, av
);}
299 static void my_canvas_send(t_my_canvas
*x
, t_symbol
*s
)
300 {iemgui_send(x
, &x
->x_gui
, s
);}
302 static void my_canvas_receive(t_my_canvas
*x
, t_symbol
*s
)
303 {iemgui_receive(x
, &x
->x_gui
, s
);}
305 static void my_canvas_label(t_my_canvas
*x
, t_symbol
*s
)
306 {iemgui_label((void *)x
, &x
->x_gui
, s
);}
308 static void my_canvas_label_pos(t_my_canvas
*x
, t_symbol
*s
, int ac
, t_atom
*av
)
309 {iemgui_label_pos((void *)x
, &x
->x_gui
, s
, ac
, av
);}
311 static void my_canvas_label_font(t_my_canvas
*x
, t_symbol
*s
, int ac
, t_atom
*av
)
312 {iemgui_label_font((void *)x
, &x
->x_gui
, s
, ac
, av
);}
314 static void *my_canvas_new(t_symbol
*s
, int argc
, t_atom
*argv
)
316 t_my_canvas
*x
= (t_my_canvas
*)pd_new(my_canvas_class
);
317 int bflcol
[]={-233017, -1, -66577};
318 int a
=IEM_GUI_DEFAULTSIZE
, w
=100, h
=60;
320 int ldx
=20, ldy
=12, i
=0;
322 int ldx
=20, ldy
=12, f
=2, i
=0;
333 iem_inttosymargs(&x
->x_gui
.x_isa
, 0);
334 iem_inttofstyle(&x
->x_gui
.x_fsf
, 0);
336 if(((argc
>= 10)&&(argc
<= 13))
337 &&IS_A_FLOAT(argv
,0)&&IS_A_FLOAT(argv
,1)&&IS_A_FLOAT(argv
,2))
339 a
= (int)atom_getintarg(0, argc
, argv
);
340 w
= (int)atom_getintarg(1, argc
, argv
);
341 h
= (int)atom_getintarg(2, argc
, argv
);
343 if((argc
>= 12)&&(IS_A_SYMBOL(argv
,3)||IS_A_FLOAT(argv
,3))&&(IS_A_SYMBOL(argv
,4)||IS_A_FLOAT(argv
,4)))
346 iemgui_new_getnames(&x
->x_gui
, 3, argv
);
348 else if((argc
== 11)&&(IS_A_SYMBOL(argv
,3)||IS_A_FLOAT(argv
,3)))
351 iemgui_new_getnames(&x
->x_gui
, 3, argv
);
353 else iemgui_new_getnames(&x
->x_gui
, 3, 0);
355 if(((argc
>= 10)&&(argc
<= 13))
356 &&(IS_A_SYMBOL(argv
,i
+3)||IS_A_FLOAT(argv
,i
+3))&&IS_A_FLOAT(argv
,i
+4)
357 &&IS_A_FLOAT(argv
,i
+5)&&IS_A_FLOAT(argv
,i
+6)
358 &&IS_A_FLOAT(argv
,i
+7)&&IS_A_FLOAT(argv
,i
+8)
359 &&IS_A_FLOAT(argv
,i
+9))
361 /* disastrously, the "label" sits in a different part of the
362 message. So we have to track its location separately (in
363 the slot x_labelbindex) and initialize it specially here. */
364 iemgui_new_dogetname(&x
->x_gui
, i
+3, argv
);
365 x
->x_gui
.x_labelbindex
= i
+4;
366 ldx
= (int)atom_getintarg(i
+4, argc
, argv
);
367 ldy
= (int)atom_getintarg(i
+5, argc
, argv
);
368 iem_inttofstyle(&x
->x_gui
.x_fsf
, atom_getintarg(i
+6, argc
, argv
));
369 fs
= (int)atom_getintarg(i
+7, argc
, argv
);
370 bflcol
[0] = (int)atom_getintarg(i
+8, argc
, argv
);
371 bflcol
[2] = (int)atom_getintarg(i
+9, argc
, argv
);
373 if((argc
== 13)&&IS_A_FLOAT(argv
,i
+10))
375 iem_inttosymargs(&x
->x_gui
.x_isa
, atom_getintarg(i
+10, argc
, argv
));
377 x
->x_gui
.x_draw
= (t_iemfunptr
)my_canvas_draw
;
378 x
->x_gui
.x_fsf
.x_snd_able
= 1;
379 x
->x_gui
.x_fsf
.x_rcv_able
= 1;
380 x
->x_gui
.x_glist
= (t_glist
*)canvas_getcurrent();
381 if (!strcmp(x
->x_gui
.x_snd
->s_name
, "empty"))
382 x
->x_gui
.x_fsf
.x_snd_able
= 0;
383 if (!strcmp(x
->x_gui
.x_rcv
->s_name
, "empty"))
384 x
->x_gui
.x_fsf
.x_rcv_able
= 0;
388 x
->x_gui
.x_h
= x
->x_gui
.x_w
;
395 if(x
->x_gui
.x_fsf
.x_font_style
== 1) strcpy(x
->x_gui
.x_font
, "helvetica");
396 else if(x
->x_gui
.x_fsf
.x_font_style
== 2) strcpy(x
->x_gui
.x_font
, "times");
397 else { x
->x_gui
.x_fsf
.x_font_style
= 0;
398 strcpy(x
->x_gui
.x_font
, "courier"); }
399 if (x
->x_gui
.x_fsf
.x_rcv_able
)
400 pd_bind(&x
->x_gui
.x_obj
.ob_pd
, x
->x_gui
.x_rcv
);
401 x
->x_gui
.x_ldx
= ldx
;
402 x
->x_gui
.x_ldy
= ldy
;
405 x
->x_gui
.x_fontsize
= fs
;
406 iemgui_all_colfromload(&x
->x_gui
, bflcol
);
407 x
->x_at
[0].a_type
= A_FLOAT
;
408 x
->x_at
[1].a_type
= A_FLOAT
;
409 iemgui_verify_snd_ne_rcv(&x
->x_gui
);
413 static void my_canvas_ff(t_my_canvas
*x
)
415 if(x
->x_gui
.x_fsf
.x_rcv_able
)
416 pd_unbind(&x
->x_gui
.x_obj
.ob_pd
, x
->x_gui
.x_rcv
);
418 gfxstub_deleteforkey(x
);
422 void g_mycanvas_setup(void)
424 my_canvas_class
= class_new(gensym("cnv"), (t_newmethod
)my_canvas_new
,
425 (t_method
)my_canvas_ff
, sizeof(t_my_canvas
), CLASS_NOINLET
, A_GIMME
, 0);
426 class_addcreator((t_newmethod
)my_canvas_new
, gensym("my_canvas"), A_GIMME
, 0);
427 class_addmethod(my_canvas_class
, (t_method
)my_canvas_dialog
, gensym("dialog"), A_GIMME
, 0);
428 class_addmethod(my_canvas_class
, (t_method
)my_canvas_size
, gensym("size"), A_GIMME
, 0);
429 class_addmethod(my_canvas_class
, (t_method
)my_canvas_delta
, gensym("delta"), A_GIMME
, 0);
430 class_addmethod(my_canvas_class
, (t_method
)my_canvas_pos
, gensym("pos"), A_GIMME
, 0);
431 class_addmethod(my_canvas_class
, (t_method
)my_canvas_vis_size
, gensym("vis_size"), A_GIMME
, 0);
432 class_addmethod(my_canvas_class
, (t_method
)my_canvas_color
, gensym("color"), A_GIMME
, 0);
433 class_addmethod(my_canvas_class
, (t_method
)my_canvas_send
, gensym("send"), A_DEFSYM
, 0);
434 class_addmethod(my_canvas_class
, (t_method
)my_canvas_receive
, gensym("receive"), A_DEFSYM
, 0);
435 class_addmethod(my_canvas_class
, (t_method
)my_canvas_label
, gensym("label"), A_DEFSYM
, 0);
436 class_addmethod(my_canvas_class
, (t_method
)my_canvas_label_pos
, gensym("label_pos"), A_GIMME
, 0);
437 class_addmethod(my_canvas_class
, (t_method
)my_canvas_label_font
, gensym("label_font"), A_GIMME
, 0);
438 class_addmethod(my_canvas_class
, (t_method
)my_canvas_get_pos
, gensym("get_pos"), 0);
440 my_canvas_widgetbehavior
.w_getrectfn
= my_canvas_getrect
;
441 my_canvas_widgetbehavior
.w_displacefn
= iemgui_displace
;
442 my_canvas_widgetbehavior
.w_selectfn
= iemgui_select
;
443 my_canvas_widgetbehavior
.w_activatefn
= NULL
;
444 my_canvas_widgetbehavior
.w_deletefn
= iemgui_delete
;
445 my_canvas_widgetbehavior
.w_visfn
= iemgui_vis
;
446 my_canvas_widgetbehavior
.w_clickfn
= NULL
;
447 class_setwidget(my_canvas_class
, &my_canvas_widgetbehavior
);
448 class_sethelpsymbol(my_canvas_class
, gensym("my_canvas"));
449 class_setsavefn(my_canvas_class
, my_canvas_save
);
450 class_setpropertiesfn(my_canvas_class
, my_canvas_properties
);