externals/grill/flext/source flattr_ed.cpp, 1.39, 1.40 flclass.h, 1.62, 1.63 flext.cpp, 1.37, 1.38 - Pd-cvs

30 Jul 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