guile-gtk-general
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 2/6] remove unnecessary code for canvas points


From: Patrick Bernaud
Subject: [PATCH 2/6] remove unnecessary code for canvas points
Date: Sun, 11 Dec 2011 17:38:44 +0100
User-agent: StGit/0.15

Code declared unnecessary in dfc5652478f2343f89bcaf5ec4fdfb06b93ecfff.

* libgnomecanvas/gnome/gw/libgnomecanvas-support.h:
* libgnomecanvas/gnome/gw/libgnomecanvas-support.c
(_wrap_gnome_canvas_points_new, guile_gnome_canvas_points_copy): Remove.
---
 libgnomecanvas/gnome/gw/libgnomecanvas-support.c |   35 ----------------------
 libgnomecanvas/gnome/gw/libgnomecanvas-support.h |    6 ----
 2 files changed, 0 insertions(+), 41 deletions(-)

diff --git a/libgnomecanvas/gnome/gw/libgnomecanvas-support.c 
b/libgnomecanvas/gnome/gw/libgnomecanvas-support.c
index 327de7e..c9c2b00 100644
--- a/libgnomecanvas/gnome/gw/libgnomecanvas-support.c
+++ b/libgnomecanvas/gnome/gw/libgnomecanvas-support.c
@@ -121,38 +121,3 @@ guile_gnome_canvas_points_to_scm (GnomeCanvasPoints 
*points)
                    scm_from_double ((points->coords)[i]));
   return scm;
 }
-
-#ifndef SCM_GNOME_CANVAS_POINTS
-// arg -Werror breaks this nice trick
-//#message POINTS-POINTER
-GnomeCanvasPoints *
-_wrap_gnome_canvas_points_new (SCM scm)
-#define FUNC_NAME "gnome-canvas-points-new"
-{
-  SCM_ASSERT_TYPE (scm_vector_p (scm) == SCM_BOOL_T, scm, SCM_ARG1, FUNC_NAME,
-                  "points");
-  return guile_gnome_scm_to_canvas_points (scm);
-}
-#undef FUNC_NAME
-#else
-//#warning POINTS-SCM
-SCM
-_wrap_gnome_canvas_points_new (SCM scm)
-#define FUNC_NAME "gnome-canvas-points-new"
-{
-  GnomeCanvasPoints *points;
-  SCM spoints;
-  SCM_ASSERT_TYPE (scm_vector_p (scm) == SCM_BOOL_T, scm, SCM_ARG1, FUNC_NAME,
-                  "points");
-  points = guile_gnome_scm_to_canvas_points (scm);
-  return scm_c_gvalue_new_take_boxed (GNOME_TYPE_CANVAS_POINTS, points);
-}
-#endif
-
-GnomeCanvasPoints *
-guile_gnome_canvas_points_copy (GnomeCanvasPoints *points)
-{
-  SCM scm = guile_gnome_canvas_points_to_scm (points);
-  return guile_gnome_scm_to_canvas_points (scm);
-}
-#undef FUNC_NAME
diff --git a/libgnomecanvas/gnome/gw/libgnomecanvas-support.h 
b/libgnomecanvas/gnome/gw/libgnomecanvas-support.h
index 0e6d680..38f0181 100644
--- a/libgnomecanvas/gnome/gw/libgnomecanvas-support.h
+++ b/libgnomecanvas/gnome/gw/libgnomecanvas-support.h
@@ -37,12 +37,6 @@ void _wrap_gnome_canvas_item_affine_relative 
(GnomeCanvasItem *item,
 
 GnomeCanvasPoints *guile_gnome_scm_to_canvas_points (SCM scm);
 SCM guile_gnome_canvas_points_to_scm (GnomeCanvasPoints *points);
-#ifndef SCM_GNOME_CANVAS_POINTS
-GnomeCanvasPoints *_wrap_gnome_canvas_points_new (SCM scm);
-#else
-SCM _wrap_gnome_canvas_points_new (SCM scm);
-#endif
-GnomeCanvasPoints *guile_gnome_canvas_points_copy (GnomeCanvasPoints *points);
 
 #endif /* LIBGNOMECANVAS_SUPPORT_H */
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]