aboutsummaryrefslogtreecommitdiff
path: root/cyclone/hammer/comment.c
diff options
context:
space:
mode:
Diffstat (limited to 'cyclone/hammer/comment.c')
-rw-r--r--cyclone/hammer/comment.c15
1 files changed, 5 insertions, 10 deletions
diff --git a/cyclone/hammer/comment.c b/cyclone/hammer/comment.c
index 8e3baeb..3fe6ec6 100644
--- a/cyclone/hammer/comment.c
+++ b/cyclone/hammer/comment.c
@@ -13,6 +13,7 @@
#include "m_pd.h"
#include "g_canvas.h"
#include "common/loud.h"
+#include "unstable/forky.h"
/* our proxy of the text_class (not in the API), LATER do not cheat */
static t_class *makeshift_class;
@@ -443,7 +444,7 @@ static void comment_vis(t_gobj *z, t_glist *glist, int vis)
than complying to a Pd's assumption about every visible object
having an rtext (thus preventing canvas_doclick() from sending
garbage warnings). LATER revisit. */
-#ifndef PD_MINOR_VERSION
+#if FORKY_VERSION < 37
rtext_new(glist, t, glist->gl_editor->e_rtext, 0);
#endif
if (glist->gl_havewindow)
@@ -451,7 +452,7 @@ static void comment_vis(t_gobj *z, t_glist *glist, int vis)
}
else
{
-#ifndef PD_MINOR_VERSION
+#if FORKY_VERSION < 37
t_rtext *rt = glist_findrtext(glist, t);
if (rt) rtext_free(rt);
#endif
@@ -488,14 +489,7 @@ static t_widgetbehavior comment_widgetbehavior =
0,
comment_vis,
0,
- /* As of 0.37, pd does not have these last two elements in */
- /* a t_widgetbehavoir anymore. <hans@eds.org> */
-#if PD_MAJOR_VERSION == 0
-#if PD_MINOR_VERSION < 37 || !defined(PD_MINOR_VERSION)
- comment_save,
- 0,
-#endif
-#endif
+ FORKY_WIDGETPADDING
};
/* this fires if a transform request was sent to a symbol we are bound to */
@@ -813,6 +807,7 @@ void comment_setup(void)
class_addmethod(comment_class, (t_method)comment__motionhook,
gensym("_motion"), A_SYMBOL, A_FLOAT, A_FLOAT, 0);
class_setwidget(comment_class, &comment_widgetbehavior);
+ forky_setsavefn(comment_class, comment_save);
makeshift_class = class_new(gensym("text"), 0, 0,
sizeof(t_text),