[PD-cvs] externals/grill/flext/source flattr_ed.cpp, 1.39, 1.40 flclass.h, 1.62, 1.63 flext.cpp, 1.37, 1.38
Thomas Grill
xovo at users.sourceforge.net
Sat Jul 30 23:59:45 CEST 2005
Update of /cvsroot/pure-data/externals/grill/flext/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23491/source
Modified Files:
flattr_ed.cpp flclass.h flext.cpp
Log Message:
- better handling of click callback
- more compatible handling of attributes in patcher (hiding is now an option - define FLEXT_ATTRHIDE)
Index: flattr_ed.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/flext/source/flattr_ed.cpp,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** flattr_ed.cpp 23 May 2005 16:52:43 -0000 1.39
--- flattr_ed.cpp 30 Jul 2005 21:59:31 -0000 1.40
***************
*** 21,82 ****
#endif
/*
#ifdef PD_DEVEL_VERSION
! #define FLEXT_CLONEWIDGET
#endif
*/
! #ifndef FLEXT_CLONEWIDGET
! // This is problematic... non-public headers!
! // compilation is specific for a compiled version!!
#include <m_imp.h>
#endif
! #include <g_canvas.h>
#include <string.h>
#include <stdio.h>
- static t_widgetbehavior widgetbehavior;
-
- void flext_base::SetGfx(t_classid c)
- {
- t_class *cl = getClass(c);
- // widgetbehavior struct MUST be resident... (static is just ok here)
! #ifndef FLEXT_CLONEWIDGET
! widgetbehavior.w_visfn = cl->c_wb->w_visfn;
! widgetbehavior.w_selectfn = cl->c_wb->w_selectfn;
! widgetbehavior.w_getrectfn = cl->c_wb->w_getrectfn;
! widgetbehavior.w_displacefn = cl->c_wb->w_displacefn;
! widgetbehavior.w_activatefn = cl->c_wb->w_activatefn;
! widgetbehavior.w_deletefn = cl->c_wb->w_deletefn;
! widgetbehavior.w_selectfn = cl->c_wb->w_selectfn;
! #else
! widgetbehavior.w_visfn = text_widgetbehavior.w_visfn;
! widgetbehavior.w_selectfn = text_widgetbehavior.w_selectfn;
! widgetbehavior.w_getrectfn = text_widgetbehavior.w_getrectfn;
! widgetbehavior.w_displacefn = text_widgetbehavior.w_displacefn;
! widgetbehavior.w_activatefn = text_widgetbehavior.w_activatefn;
! widgetbehavior.w_deletefn = text_widgetbehavior.w_deletefn;
! widgetbehavior.w_selectfn = text_widgetbehavior.w_selectfn;
#endif
- #ifndef FLEXT_NOATTREDIT
- attrsetup(c);
- #endif // FLEXT_NOATTREDIT
! widgetbehavior.w_clickfn = cb_click;
! class_setwidget(cl, &widgetbehavior);
! }
#ifndef FLEXT_NOATTREDIT
- #ifndef FLEXT_CLONEWIDGET
- static void (*ori_vis)(t_gobj *c, t_glist *, int vis) = NULL;
- static void (*ori_select)(t_gobj *c, t_glist *, int state) = NULL;
- #endif
-
//! generate the script for the property dialog
static void tclscript()
--- 21,71 ----
#endif
+
+ #if defined(FLEXT_ATTRHIDE) || PD_MINOR_VERSION < 37
+ #define __FLEXT_WIDGETBEHAVIOR
+ #endif
+
+ //////////////////////////////////////////////////////
+ #ifdef __FLEXT_WIDGETBEHAVIOR
+ // we need non-public headers!
+ #pragma message("Attention: non-public headers used - binary is bound to a specific version")
+
+ #include <g_canvas.h>
+
/*
#ifdef PD_DEVEL_VERSION
! #define __FLEXT_CLONEWIDGET
#endif
*/
! #ifndef __FLEXT_CLONEWIDGET
#include <m_imp.h>
#endif
! #endif
! //////////////////////////////////////////////////////
!
#include <string.h>
#include <stdio.h>
! #ifdef FLEXT_ATTRHIDE
! #ifndef __FLEXT_CLONEWIDGET
! static void (*ori_vis)(t_gobj *c, t_glist *, int vis) = NULL;
! static void (*ori_select)(t_gobj *c, t_glist *, int state) = NULL;
! #endif
#endif
! #ifdef FLEXT_ATTRHIDE
! #define ST_DISABLED ""
! #else
! #define ST_DISABLED " -state disabled"
! #endif
#ifndef FLEXT_NOATTREDIT
//! generate the script for the property dialog
static void tclscript()
***************
*** 338,354 ****
"switch $atp {\n"
"0 - 1 {\n" // int or float
! "entry $id.frame.init-$ix -textvariable $var_attr_init\n"
"entry $id.frame.val-$ix -textvariable $var_attr_val\n"
"}\n"
"2 {\n" // boolean
! "checkbutton $id.frame.init-$ix -variable $var_attr_init\n"
"checkbutton $id.frame.val-$ix -variable $var_attr_val\n"
"}\n"
"3 {\n" // symbol
! "entry $id.frame.init-$ix -textvariable $var_attr_init\n"
"entry $id.frame.val-$ix -textvariable $var_attr_val\n"
"}\n"
"4 - 5 {\n" // list or unknown
! "entry $id.frame.init-$ix -textvariable $var_attr_init\n"
"bind $id.frame.init-$ix {<Control-Button-1>} \" flext_textzoom $id.frame.init-$ix $var_attr_init { $title } $an 1\"\n"
"entry $id.frame.val-$ix -textvariable $var_attr_val\n"
--- 327,343 ----
"switch $atp {\n"
"0 - 1 {\n" // int or float
! "entry $id.frame.init-$ix -textvariable $var_attr_init" ST_DISABLED "\n"
"entry $id.frame.val-$ix -textvariable $var_attr_val\n"
"}\n"
"2 {\n" // boolean
! "checkbutton $id.frame.init-$ix -variable $var_attr_init" ST_DISABLED "\n"
"checkbutton $id.frame.val-$ix -variable $var_attr_val\n"
"}\n"
"3 {\n" // symbol
! "entry $id.frame.init-$ix -textvariable $var_attr_init" ST_DISABLED "\n"
"entry $id.frame.val-$ix -textvariable $var_attr_val\n"
"}\n"
"4 - 5 {\n" // list or unknown
! "entry $id.frame.init-$ix -textvariable $var_attr_init" ST_DISABLED "\n"
"bind $id.frame.init-$ix {<Control-Button-1>} \" flext_textzoom $id.frame.init-$ix $var_attr_init { $title } $an 1\"\n"
"entry $id.frame.val-$ix -textvariable $var_attr_val\n"
***************
*** 361,365 ****
// copy buttons
! "button $id.frame.b2i-$ix -text {<-} -height 1 -command \" flext_copyval $var_attr_init $var_attr_val \"\n"
"grid config $id.frame.b2i-$ix -column 2 -row $row -sticky {ew}\n"
"button $id.frame.b2c-$ix -text {->} -height 1 -command \" flext_copyval $var_attr_val $var_attr_init \"\n"
--- 350,354 ----
// copy buttons
! "button $id.frame.b2i-$ix -text {<-} -height 1 -command \" flext_copyval $var_attr_init $var_attr_val \"" ST_DISABLED "\n"
"grid config $id.frame.b2i-$ix -column 2 -row $row -sticky {ew}\n"
"button $id.frame.b2c-$ix -text {->} -height 1 -command \" flext_copyval $var_attr_val $var_attr_init \"\n"
***************
*** 372,377 ****
// radiobuttons
"foreach {i c} {0 black 1 blue 2 red} {\n"
! "radiobutton $id.frame.b$i-$ix -value $i -foreground $c -variable $var_attr_save \n"
! "grid config $id.frame.b$i-$ix -column [expr $i + 6] -row $row \n"
"}\n"
);
--- 361,366 ----
// radiobuttons
"foreach {i c} {0 black 1 blue 2 red} {\n"
! "radiobutton $id.frame.b$i-$ix -value $i -foreground $c -variable $var_attr_save" ST_DISABLED "\n"
! "grid config $id.frame.b$i-$ix -column [expr $i + 6] -row $row\n"
"}\n"
);
***************
*** 446,471 ****
}
! void flext_base::attrsetup(t_classid c)
{
t_class *cl = getClass(c);
! #ifndef FLEXT_CLONEWIDGET
! ori_vis = cl->c_wb->w_visfn;
! ori_select = cl->c_wb->w_selectfn;
#endif
widgetbehavior.w_visfn = cb_GfxVis;
widgetbehavior.w_selectfn = cb_GfxSelect;
#if PD_MINOR_VERSION >= 37
- class_setpropertiesfn(cl,cb_GfxProperties);
class_setsavefn(cl,cb_GfxSave);
#else
- widgetbehavior.w_propertiesfn = cb_GfxProperties;
widgetbehavior.w_savefn = cb_GfxSave;
#endif
tclscript();
}
static size_t escapeit(char *dst,size_t maxlen,const char *src)
{
--- 435,509 ----
}
! #endif
!
!
! #ifdef __FLEXT_WIDGETBEHAVIOR
! static t_widgetbehavior widgetbehavior;
! #endif
!
! void flext_base::SetGfx(t_classid c)
{
t_class *cl = getClass(c);
! // widgetbehavior struct MUST be resident... (static is just ok here)
!
! #ifdef __FLEXT_WIDGETBEHAVIOR
! #ifndef __FLEXT_CLONEWIDGET
! widgetbehavior.w_visfn = cl->c_wb->w_visfn;
! widgetbehavior.w_selectfn = cl->c_wb->w_selectfn;
! widgetbehavior.w_getrectfn = cl->c_wb->w_getrectfn;
! widgetbehavior.w_displacefn = cl->c_wb->w_displacefn;
! widgetbehavior.w_activatefn = cl->c_wb->w_activatefn;
! widgetbehavior.w_deletefn = cl->c_wb->w_deletefn;
! widgetbehavior.w_selectfn = cl->c_wb->w_selectfn;
! widgetbehavior.w_clickfn = cl->c_wb->w_clickfn;
! #else
! widgetbehavior.w_visfn = text_widgetbehavior.w_visfn;
! widgetbehavior.w_selectfn = text_widgetbehavior.w_selectfn;
! widgetbehavior.w_getrectfn = text_widgetbehavior.w_getrectfn;
! widgetbehavior.w_displacefn = text_widgetbehavior.w_displacefn;
! widgetbehavior.w_activatefn = text_widgetbehavior.w_activatefn;
! widgetbehavior.w_deletefn = text_widgetbehavior.w_deletefn;
! widgetbehavior.w_selectfn = text_widgetbehavior.w_selectfn;
! widgetbehavior.w_clickfn = text_widgetbehavior.w_clickfn;
#endif
+ #endif
+
+ #ifdef FLEXT_ATTRHIDE
+ #ifndef __FLEXT_CLONEWIDGET
+ ori_vis = widgetbehavior.w_visfn;
+ ori_select = widgetbehavior.w_selectfn;
+ #endif
widgetbehavior.w_visfn = cb_GfxVis;
widgetbehavior.w_selectfn = cb_GfxSelect;
#if PD_MINOR_VERSION >= 37
class_setsavefn(cl,cb_GfxSave);
#else
widgetbehavior.w_savefn = cb_GfxSave;
#endif
+ #endif // FLEXT_ATTRHIDE
+
+
+ #ifndef FLEXT_NOATTREDIT
+
+ #if PD_MINOR_VERSION >= 37
+ class_setpropertiesfn(cl,cb_GfxProperties);
+ #else
+ widgetbehavior.w_propertiesfn = cb_GfxProperties;
+ #endif
+
tclscript();
+ #endif // FLEXT_NOATTREDIT
+
+ #ifdef __FLEXT_WIDGETBEHAVIOR
+ class_setwidget(cl, &widgetbehavior);
+ #endif
}
+
+ #ifndef FLEXT_NOATTREDIT
+
static size_t escapeit(char *dst,size_t maxlen,const char *src)
{
***************
*** 596,681 ****
}
- //! Strip the attributes off the object command line
- void flext_base::cb_GfxVis(t_gobj *c, t_glist *gl, int vis)
- {
- // show object if it's not a GOP
- if(!gl->gl_isgraph || gl->gl_havewindow) {
- flext_base *th = thisObject(c);
- t_text *x = (t_text *)c;
- FLEXT_ASSERT(x->te_binbuf);
-
- t_binbuf *b = binbuf_new();
- th->BinbufArgs(b,x->te_binbuf,true,false);
-
- // delete old object box text
- binbuf_free(x->te_binbuf);
- // set new one
- x->te_binbuf = b;
-
- t_rtext *rt = glist_findrtext(gl,x);
- rtext_retext(rt);
-
- // now display the changed text with the normal drawing function
- #ifdef FLEXT_CLONEWIDGET
- text_widgetbehavior.w_visfn(c,gl,vis);
- #else
- ori_vis(c,gl,vis);
- #endif
- }
- }
-
- void flext_base::cb_GfxSelect(t_gobj *c,t_glist *gl,int state)
- {
- // show object if it's not a GOP
- if(!gl->gl_isgraph || gl->gl_havewindow) {
- if(state || !gl->gl_editor->e_textdirty) {
- // change text only on selection
- // OR if text has _not_ been changed
- // -> since object will not be recreated we have to get rid
- // of the attribute text
-
- flext_base *th = thisObject(c);
- t_text *x = (t_text *)c;
- FLEXT_ASSERT(x->te_binbuf);
-
- t_binbuf *b = binbuf_new();
- th->BinbufArgs(b,x->te_binbuf,true,false);
- if(state) th->BinbufAttr(b,false);
-
- // delete old object box text
- binbuf_free(x->te_binbuf);
- // set new one
- x->te_binbuf = b;
-
- t_rtext *rt = glist_findrtext(gl,x);
- rtext_retext(rt);
-
- // fix lines
- canvas_fixlinesfor(gl,x);
- }
-
- // call original function
- #ifdef FLEXT_CLONEWIDGET
- text_widgetbehavior.w_selectfn(c,gl,state);
- #else
- ori_select(c,gl,state);
- #endif
- }
- }
-
- void flext_base::cb_GfxSave(t_gobj *c, t_binbuf *b)
- {
- flext_base *th = thisObject(c);
- t_text *t = (t_text *)c;
- binbuf_addv(b, "ssiis", gensym("#X"),gensym("obj"), t->te_xpix, t->te_ypix,MakeSymbol(th->thisName()));
-
- // process the object arguments
- th->BinbufArgs(b,t->te_binbuf,false,true);
- // process the attributes
- th->BinbufAttr(b,true);
- // add end sign
- binbuf_addv(b, ";");
- }
-
bool flext_base::cb_AttrDialog(flext_base *th,int argc,const t_atom *argv)
{
--- 634,637 ----
***************
*** 711,733 ****
FLEXT_ASSERT(ret);
- // AttrDataCont::iterator it = th->attrdata->find(aname);
AttrData *a = th->attrdata->find(aname);
-
if(sv >= 1) {
// if data not present create it
-
- /*
- if(it == th->attrdata->end()) {
- AttrDataCont::pair pair;
- pair.key() = aname;
- pair.data() = new AttrData;
- it = th->attrdata->insert(th->attrdata->begin(),pair);
- }
-
- AttrData &a = *it.data();
- a.SetSave(sv == 2);
- a.SetInit(true);
- a.SetInitValue(icnt,argv+ioffs);
- */
if(!a) {
AttrData *old = th->attrdata->insert(aname,a = new AttrData);
--- 667,673 ----
***************
*** 740,753 ****
}
else {
- /*
- if(it != th->attrdata->end()) {
- AttrData &a = *it.data();
- // if data is present reset flags
- a.SetSave(false);
- a.SetInit(false);
-
- // let init data as is
- }
- */
if(a) {
// if data is present reset flags
--- 680,683 ----
***************
*** 766,769 ****
--- 696,703 ----
}
+ #endif // FLEXT_NOATTREDIT
+
+
+ #ifdef FLEXT_ATTRHIDE
static void BinbufAdd(t_binbuf *b,const t_atom &at,bool transdoll)
***************
*** 802,812 ****
const t_symbol *sym = GetSymbol(la[i]);
const AtomList *lref = NULL;
! /*
! AttrDataCont::iterator it = attrdata->find(sym);
! if(it != attrdata->end()) {
! const AttrData &a = *it.data();
! if(a.IsInit() && a.IsInitValue()) {
! lref = &a.GetInitValue();
! */
AttrData *a = attrdata->find(sym);
if(a) {
--- 736,740 ----
const t_symbol *sym = GetSymbol(la[i]);
const AtomList *lref = NULL;
!
AttrData *a = attrdata->find(sym);
if(a) {
***************
*** 856,861 ****
}
! #endif // FLEXT_NOATTREDIT
! #endif // FLEXT_SYS_PD
--- 784,872 ----
}
! //! Strip the attributes off the object command line
! void flext_base::cb_GfxVis(t_gobj *c, t_glist *gl, int vis)
! {
! if(!gl->gl_isgraph || gl->gl_havewindow) {
! // show object if it's not inside a GOP
! flext_base *th = thisObject(c);
! t_text *x = (t_text *)c;
! FLEXT_ASSERT(x->te_binbuf);
!
! t_binbuf *b = binbuf_new();
! th->BinbufArgs(b,x->te_binbuf,true,false);
!
! // delete old object box text
! binbuf_free(x->te_binbuf);
! // set new one
! x->te_binbuf = b;
!
! t_rtext *rt = glist_findrtext(gl,x);
! rtext_retext(rt);
!
! // now display the changed text with the normal drawing function
! #ifdef __FLEXT_CLONEWIDGET
! text_widgetbehavior.w_visfn(c,gl,vis);
! #else
! ori_vis(c,gl,vis);
! #endif
! }
! // else don't show
! }
!
! void flext_base::cb_GfxSelect(t_gobj *c,t_glist *gl,int state)
! {
! t_text *x = (t_text *)c;
! flext_base *th = thisObject(c);
!
! if(!gl->gl_isgraph || gl->gl_havewindow) {
! if(state || !gl->gl_editor->e_textdirty) {
! // change text only on selection
! // OR if text has _not_ been changed
! // -> since object will not be recreated we have to get rid
! // of the attribute text
!
! FLEXT_ASSERT(x->te_binbuf);
!
! t_binbuf *b = binbuf_new();
! th->BinbufArgs(b,x->te_binbuf,true,false);
! if(state) th->BinbufAttr(b,false);
!
! // delete old object box text
! binbuf_free(x->te_binbuf);
! // set new one
! x->te_binbuf = b;
!
! t_rtext *rt = glist_findrtext(gl,x);
! rtext_retext(rt);
!
! // fix lines
! canvas_fixlinesfor(gl,x);
! }
+ // call original function
+ #ifdef __FLEXT_CLONEWIDGET
+ text_widgetbehavior.w_selectfn(c,gl,state);
+ #else
+ ori_select(c,gl,state);
+ #endif
+ }
+ }
+
+ void flext_base::cb_GfxSave(t_gobj *c, t_binbuf *b)
+ {
+ flext_base *th = thisObject(c);
+ t_text *t = (t_text *)c;
+ binbuf_addv(b, "ssiis", gensym("#X"),gensym("obj"), t->te_xpix, t->te_ypix,MakeSymbol(th->thisName()));
+
+ // process the object arguments
+ th->BinbufArgs(b,t->te_binbuf,false,true);
+ // process the attributes
+ th->BinbufAttr(b,true);
+ // add end sign
+ binbuf_addv(b, ";");
+ }
+
+ #endif // FLEXT_ATTRHIDE
+
+ #endif // FLEXT_SYS_PD
Index: flclass.h
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/flext/source/flclass.h,v
retrieving revision 1.62
retrieving revision 1.63
diff -C2 -d -r1.62 -r1.63
*** flclass.h 19 Jul 2005 13:17:50 -0000 1.62
--- flclass.h 30 Jul 2005 21:59:31 -0000 1.63
***************
*** 913,921 ****
static void SetGfx(t_classid c);
! #if !defined(FLEXT_NOATTREDIT)
// attribute editor
- static void attrsetup(t_classid c);
static bool cb_AttrDialog(flext_base *c,int argc,const t_atom *argv);
static void cb_GfxProperties(t_gobj *c, t_glist *);
static void cb_GfxVis(t_gobj *c, t_glist *gl, int vis);
static void cb_GfxSave(t_gobj *c, t_binbuf *b);
--- 913,923 ----
static void SetGfx(t_classid c);
! #ifndef FLEXT_NOATTREDIT
// attribute editor
static bool cb_AttrDialog(flext_base *c,int argc,const t_atom *argv);
static void cb_GfxProperties(t_gobj *c, t_glist *);
+ #endif
+
+ #ifdef FLEXT_ATTRHIDE
static void cb_GfxVis(t_gobj *c, t_glist *gl, int vis);
static void cb_GfxSave(t_gobj *c, t_binbuf *b);
***************
*** 1023,1027 ****
#if FLEXT_SYS == FLEXT_SYS_PD
! static int cb_click(t_gobj *z, struct _glist *glist,int xpix, int ypix, int shift, int alt, int dbl, int doit);
#endif
--- 1025,1029 ----
#if FLEXT_SYS == FLEXT_SYS_PD
! static void cb_click(t_gobj *z,t_floatarg xpos,t_floatarg ypos,t_floatarg shift,t_floatarg ctrl,t_floatarg alt);
#endif
Index: flext.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/grill/flext/source/flext.cpp,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** flext.cpp 19 Jul 2005 13:17:50 -0000 1.37
--- flext.cpp 30 Jul 2005 21:59:43 -0000 1.38
***************
*** 136,145 ****
t_class *c = getClass(id);
- #if FLEXT_SYS == FLEXT_SYS_PD || FLEXT_SYS == FLEXT_SYS_MAX
add_loadbang(c,cb_loadbang);
! #if FLEXT_SYS == FLEXT_SYS_MAX
add_assist(c,cb_assist);
add_dblclick(c,cb_click);
- #endif
#else
#pragma message ("no implementation of loadbang or assist")
--- 136,145 ----
t_class *c = getClass(id);
add_loadbang(c,cb_loadbang);
! #if FLEXT_SYS == FLEXT_SYS_PD
! class_addmethod(c,(t_method)cb_click,gensym("click"),A_FLOAT,A_FLOAT,A_FLOAT,A_FLOAT,A_FLOAT,A_NULL);
! #elif FLEXT_SYS == FLEXT_SYS_MAX
add_assist(c,cb_assist);
add_dblclick(c,cb_click);
#else
#pragma message ("no implementation of loadbang or assist")
***************
*** 174,185 ****
#if FLEXT_SYS == FLEXT_SYS_PD
! int flext_base::cb_click(t_gobj *c, struct _glist *glist,int xpix, int ypix, int shift, int alt, int dbl, int doit)
{
! if(doit && alt) {
! thisObject(c)->CbClick();
! return 1;
! }
! else
! return 0;
}
#endif
--- 174,180 ----
#if FLEXT_SYS == FLEXT_SYS_PD
! void flext_base::cb_click(t_gobj *c,t_floatarg xpos,t_floatarg ypos,t_floatarg shift,t_floatarg ctrl,t_floatarg alt)
{
! if(alt) thisObject(c)->CbClick();
}
#endif
More information about the Pd-cvs
mailing list