moving trunk for module inkscape

(bzr r1)

1 files changed, 681 insertions, 0 deletions

diff --git a/src/sp-flowtext.cpp b/src/sp-flowtext.cpp
new file mode 100644
index 000000000..fbf0efabd
--- /dev/null
+++ b/src/sp-flowtext.cpp
@@ -0,0 +1,681 @@
+/*
+ */
+
+#ifdef HAVE_CONFIG_H
+# include "config.h"
+#endif
+#include <glibmm/i18n.h>
+
+#include "attributes.h"
+#include "xml/repr.h"
+#include "style.h"
+#include "inkscape.h"
+#include "document.h"
+#include "selection.h"
+#include "desktop-handles.h"
+#include "desktop.h"
+#include "desktop-affine.h"
+
+#include "xml/repr.h"
+
+#include "sp-flowdiv.h"
+#include "sp-flowregion.h"
+#include "sp-flowtext.h"
+#include "sp-string.h"
+#include "sp-use.h"
+#include "sp-rect.h"
+#include "text-tag-attributes.h"
+
+
+#include "livarot/Shape.h"
+
+#include "display/nr-arena-glyphs.h"
+
+
+static void sp_flowtext_class_init(SPFlowtextClass *klass);
+static void sp_flowtext_init(SPFlowtext *group);
+static void sp_flowtext_dispose(GObject *object);
+
+static void sp_flowtext_child_added(SPObject *object, Inkscape::XML::Node *child, Inkscape::XML::Node *ref);
+static void sp_flowtext_remove_child(SPObject *object, Inkscape::XML::Node *child);
+static void sp_flowtext_update(SPObject *object, SPCtx *ctx, guint flags);
+static void sp_flowtext_modified(SPObject *object, guint flags);
+static Inkscape::XML::Node *sp_flowtext_write(SPObject *object, Inkscape::XML::Node *repr, guint flags);
+static void sp_flowtext_build(SPObject *object, SPDocument *document, Inkscape::XML::Node *repr);
+static void sp_flowtext_set(SPObject *object, unsigned key, gchar const *value);
+
+static void sp_flowtext_bbox(SPItem const *item, NRRect *bbox, NR::Matrix const &transform, unsigned const flags);
+static void sp_flowtext_print(SPItem *item, SPPrintContext *ctx);
+static gchar *sp_flowtext_description(SPItem *item);
+static NRArenaItem *sp_flowtext_show(SPItem *item, NRArena *arena, unsigned key, unsigned flags);
+static void sp_flowtext_hide(SPItem *item, unsigned key);
+
+static SPItemClass *parent_class;
+
+GType
+sp_flowtext_get_type(void)
+{
+    static GType group_type = 0;
+    if (!group_type) {
+        GTypeInfo group_info = {
+            sizeof(SPFlowtextClass),
+            NULL,   /* base_init */
+            NULL,   /* base_finalize */
+            (GClassInitFunc) sp_flowtext_class_init,
+            NULL,   /* class_finalize */
+            NULL,   /* class_data */
+            sizeof(SPFlowtext),
+            16,     /* n_preallocs */
+            (GInstanceInitFunc) sp_flowtext_init,
+            NULL,   /* value_table */
+        };
+        group_type = g_type_register_static(SP_TYPE_ITEM, "SPFlowtext", &group_info, (GTypeFlags)0);
+    }
+    return group_type;
+}
+
+static void
+sp_flowtext_class_init(SPFlowtextClass *klass)
+{
+    GObjectClass *object_class = (GObjectClass *) klass;
+    SPObjectClass *sp_object_class = (SPObjectClass *) klass;
+    SPItemClass *item_class = (SPItemClass *) klass;
+
+    parent_class = (SPItemClass *)g_type_class_ref(SP_TYPE_ITEM);
+
+    object_class->dispose = sp_flowtext_dispose;
+
+    sp_object_class->child_added = sp_flowtext_child_added;
+    sp_object_class->remove_child = sp_flowtext_remove_child;
+    sp_object_class->update = sp_flowtext_update;
+    sp_object_class->modified = sp_flowtext_modified;
+    sp_object_class->write = sp_flowtext_write;
+    sp_object_class->build = sp_flowtext_build;
+    sp_object_class->set = sp_flowtext_set;
+
+    item_class->bbox = sp_flowtext_bbox;
+    item_class->print = sp_flowtext_print;
+    item_class->description = sp_flowtext_description;
+    item_class->show = sp_flowtext_show;
+    item_class->hide = sp_flowtext_hide;
+}
+
+static void
+sp_flowtext_init(SPFlowtext *group)
+{
+    new (&group->layout) Inkscape::Text::Layout();
+}
+
+static void
+sp_flowtext_dispose(GObject *object)
+{
+    SPFlowtext *group = (SPFlowtext*)object;
+
+    group->layout.~Layout();
+}
+
+static void
+sp_flowtext_child_added(SPObject *object, Inkscape::XML::Node *child, Inkscape::XML::Node *ref)
+{
+    if (((SPObjectClass *) (parent_class))->child_added)
+        (* ((SPObjectClass *) (parent_class))->child_added)(object, child, ref);
+
+    object->requestModified(SP_OBJECT_MODIFIED_FLAG);
+}
+
+/* fixme: hide (Lauris) */
+
+static void
+sp_flowtext_remove_child(SPObject *object, Inkscape::XML::Node *child)
+{
+    if (((SPObjectClass *) (parent_class))->remove_child)
+        (* ((SPObjectClass *) (parent_class))->remove_child)(object, child);
+
+    object->requestModified(SP_OBJECT_MODIFIED_FLAG);
+}
+
+static void
+sp_flowtext_update(SPObject *object, SPCtx *ctx, unsigned flags)
+{
+    SPFlowtext *group = SP_FLOWTEXT(object);
+    SPItemCtx *ictx = (SPItemCtx *) ctx;
+    SPItemCtx cctx = *ictx;
+
+    if (((SPObjectClass *) (parent_class))->update)
+        ((SPObjectClass *) (parent_class))->update(object, ctx, flags);
+
+    if (flags & SP_OBJECT_MODIFIED_FLAG) flags |= SP_OBJECT_PARENT_MODIFIED_FLAG;
+    flags &= SP_OBJECT_MODIFIED_CASCADE;
+
+    GSList *l = NULL;
+    for (SPObject *child = sp_object_first_child(object) ; child != NULL ; child = SP_OBJECT_NEXT(child) ) {
+        g_object_ref(G_OBJECT(child));
+        l = g_slist_prepend(l, child);
+    }
+    l = g_slist_reverse(l);
+    while (l) {
+        SPObject *child = SP_OBJECT(l->data);
+        l = g_slist_remove(l, child);
+        if (flags || (child->uflags & (SP_OBJECT_MODIFIED_FLAG | SP_OBJECT_CHILD_MODIFIED_FLAG))) {
+            if (SP_IS_ITEM(child)) {
+                SPItem const &chi = *SP_ITEM(child);
+                cctx.i2doc = chi.transform * ictx->i2doc;
+                cctx.i2vp = chi.transform * ictx->i2vp;
+                child->updateDisplay((SPCtx *)&cctx, flags);
+            } else {
+                child->updateDisplay(ctx, flags);
+            }
+        }
+        g_object_unref(G_OBJECT(child));
+    }
+
+    group->rebuildLayout();
+
+    // pass the bbox of the flowtext object as paintbox (used for paintserver fills)	
+    NRRect paintbox;
+    sp_item_invoke_bbox(group, &paintbox, NR::identity(), TRUE);
+    for (SPItemView *v = group->display; v != NULL; v = v->next) {
+        group->_clearFlow(NR_ARENA_GROUP(v->arenaitem));
+        group->layout.show(NR_ARENA_GROUP(v->arenaitem), &paintbox);
+    }
+}
+
+static void
+sp_flowtext_modified(SPObject *object, guint flags)
+{
+    SPObject *ft = SP_FLOWTEXT (object);
+    SPObject *region = NULL;
+
+    if (flags & SP_OBJECT_MODIFIED_FLAG) flags |= SP_OBJECT_PARENT_MODIFIED_FLAG;
+    flags &= SP_OBJECT_MODIFIED_CASCADE;
+
+    for (SPObject *o = sp_object_first_child(SP_OBJECT(ft)) ; o != NULL ; o = SP_OBJECT_NEXT(o) ) {
+        if (SP_IS_FLOWREGION(o)) {
+            region = o;
+            break;
+        }
+    }
+
+    if (!region) return;
+
+    if (flags || (region->mflags & (SP_OBJECT_MODIFIED_FLAG | SP_OBJECT_CHILD_MODIFIED_FLAG))) {
+        region->emitModified(flags); // pass down to the region only
+    }
+}
+
+static void
+sp_flowtext_build(SPObject *object, SPDocument *document, Inkscape::XML::Node *repr)
+{
+    object->_requireSVGVersion(Inkscape::Version(1, 2));
+
+    if (((SPObjectClass *) (parent_class))->build) {
+        (* ((SPObjectClass *) (parent_class))->build)(object, document, repr);
+    }
+
+    sp_object_read_attr(object, "inkscape:layoutOptions");     // must happen after css has been read
+}
+
+static void
+sp_flowtext_set(SPObject *object, unsigned key, gchar const *value)
+{
+    SPFlowtext *group = (SPFlowtext *) object;
+
+    switch (key) {
+        case SP_ATTR_LAYOUT_OPTIONS: {
+            // deprecated attribute, read for backward compatibility only
+            SPCSSAttr *opts = sp_repr_css_attr((SP_OBJECT(group))->repr, "inkscape:layoutOptions");
+            {
+                gchar const *val = sp_repr_css_property(opts, "justification", NULL);
+                if (val != NULL && !object->style->text_align.set) {
+                    if ( strcmp(val, "0") == 0 || strcmp(val, "false") == 0 ) {
+                        object->style->text_align.value = SP_CSS_TEXT_ALIGN_LEFT;
+                    } else {
+                        object->style->text_align.value = SP_CSS_TEXT_ALIGN_JUSTIFY;
+                    }
+                    object->style->text_align.set = TRUE;
+                    object->style->text_align.inherit = FALSE;
+                    object->style->text_align.computed = object->style->text_align.value;
+                }
+            }
+            /* no equivalent css attribute for these two (yet)
+            {
+                gchar const *val = sp_repr_css_property(opts, "layoutAlgo", NULL);
+                if ( val == NULL ) {
+                    group->algo = 0;
+                } else {
+                    if ( strcmp(val, "better") == 0 ) {     // knuth-plass, never worked for general cases
+                        group->algo = 2;
+                    } else if ( strcmp(val, "simple") == 0 ) {   // greedy, but allowed lines to be compressed by up to 20% if it would make them fit
+                        group->algo = 1;
+                    } else if ( strcmp(val, "default") == 0 ) {    // the same one we use, a standard greedy
+                        group->algo = 0;
+                    }
+                }
+            }
+            {   // This would probably translate to padding-left, if SPStyle had it.
+                gchar const *val = sp_repr_css_property(opts, "par-indent", NULL);
+                if ( val == NULL ) {
+                    group->par_indent = 0.0;
+                } else {
+                    sp_repr_get_double((Inkscape::XML::Node*)opts, "par-indent", &group->par_indent);
+                }
+            }
+            */
+            sp_repr_css_attr_unref(opts);
+            object->requestModified(SP_OBJECT_MODIFIED_FLAG);
+            break;
+        }
+        default:
+            if (((SPObjectClass *) (parent_class))->set) {
+                (* ((SPObjectClass *) (parent_class))->set)(object, key, value);
+            }
+            break;
+    }
+}
+
+static Inkscape::XML::Node *
+sp_flowtext_write(SPObject *object, Inkscape::XML::Node *repr, guint flags)
+{
+    if ( flags & SP_OBJECT_WRITE_BUILD ) {
+        if ( repr == NULL ) repr = sp_repr_new("svg:flowRoot");
+        GSList *l = NULL;
+        for (SPObject *child = sp_object_first_child(object) ; child != NULL ; child = SP_OBJECT_NEXT(child) ) {
+            Inkscape::XML::Node *c_repr = NULL;
+            if ( SP_IS_FLOWDIV(child) || SP_IS_FLOWPARA(child) || SP_IS_FLOWREGION(child) || SP_IS_FLOWREGIONEXCLUDE(child)) {
+                c_repr = child->updateRepr(NULL, flags);
+            } 
+            if ( c_repr ) l = g_slist_prepend(l, c_repr);
+        }
+        while ( l ) {
+            repr->addChild((Inkscape::XML::Node *) l->data, NULL);
+            Inkscape::GC::release((Inkscape::XML::Node *) l->data);
+            l = g_slist_remove(l, l->data);
+        }
+    } else {
+        for (SPObject *child = sp_object_first_child(object) ; child != NULL ; child = SP_OBJECT_NEXT(child) ) {
+            if ( SP_IS_FLOWDIV(child) || SP_IS_FLOWPARA(child) || SP_IS_FLOWREGION(child) || SP_IS_FLOWREGIONEXCLUDE(child) ) {
+                child->updateRepr(flags);
+            }
+        }
+    }
+
+    if (((SPObjectClass *) (parent_class))->write)
+        ((SPObjectClass *) (parent_class))->write(object, repr, flags);
+
+    return repr;
+}
+
+static void
+sp_flowtext_bbox(SPItem const *item, NRRect *bbox, NR::Matrix const &transform, unsigned const /*flags*/)
+{
+    SPFlowtext *group = SP_FLOWTEXT(item);
+    group->layout.getBoundingBox(bbox, transform);
+}
+
+static void
+sp_flowtext_print(SPItem *item, SPPrintContext *ctx)
+{
+    SPFlowtext *group = SP_FLOWTEXT(item);
+
+    NRRect pbox;
+    sp_item_invoke_bbox(item, &pbox, NR::identity(), TRUE);
+    NRRect bbox;
+    sp_item_bbox_desktop(item, &bbox);
+    NRRect dbox;
+    dbox.x0 = 0.0;
+    dbox.y0 = 0.0;
+    dbox.x1 = sp_document_width(SP_OBJECT_DOCUMENT(item));
+    dbox.y1 = sp_document_height(SP_OBJECT_DOCUMENT(item));
+    NR::Matrix const ctm = sp_item_i2d_affine(item);
+
+    group->layout.print(ctx, &pbox, &dbox, &bbox, ctm);
+}
+
+
+static gchar *sp_flowtext_description(SPItem *item)
+{
+    Inkscape::Text::Layout const &layout = SP_FLOWTEXT(item)->layout;
+    int const nChars = layout.iteratorToCharIndex(layout.end());
+    if (SP_FLOWTEXT(item)->has_internal_frame())
+        return g_strdup_printf(_("<b>Flowed text</b> (%d characters)"), nChars);
+    else 
+        return g_strdup_printf(_("<b>Linked flowed text</b> (%d characters)"), nChars);
+}
+
+static NRArenaItem *
+sp_flowtext_show(SPItem *item, NRArena *arena, unsigned/* key*/, unsigned /*flags*/)
+{
+    SPFlowtext *group = (SPFlowtext *) item;
+    NRArenaGroup *flowed = NRArenaGroup::create(arena);
+    nr_arena_group_set_transparent(flowed, FALSE);
+
+    // pass the bbox of the flowtext object as paintbox (used for paintserver fills)	
+    NRRect paintbox;
+    sp_item_invoke_bbox(item, &paintbox, NR::identity(), TRUE);
+    group->layout.show(flowed, &paintbox);
+
+    return flowed;
+}
+
+static void
+sp_flowtext_hide(SPItem *item, unsigned int key)
+{
+    if (((SPItemClass *) parent_class)->hide)
+        ((SPItemClass *) parent_class)->hide(item, key);
+}
+
+
+/*
+ *
+ */
+
+void SPFlowtext::_buildLayoutInput(SPObject *root, Shape const *exclusion_shape, std::list<Shape> *shapes, SPObject **pending_line_break_object)
+{
+    if (*pending_line_break_object) {
+        if (SP_IS_FLOWREGIONBREAK(*pending_line_break_object))
+            layout.appendControlCode(Inkscape::Text::Layout::SHAPE_BREAK, *pending_line_break_object);
+        else
+            layout.appendControlCode(Inkscape::Text::Layout::PARAGRAPH_BREAK, *pending_line_break_object);
+        *pending_line_break_object = NULL;
+    }
+
+    for (SPObject *child = sp_object_first_child(root) ; child != NULL ; child = SP_OBJECT_NEXT(child) ) {
+        if (SP_IS_STRING(child)) {
+            if (*pending_line_break_object) {
+                if (SP_IS_FLOWREGIONBREAK(*pending_line_break_object))
+                    layout.appendControlCode(Inkscape::Text::Layout::SHAPE_BREAK, *pending_line_break_object);
+                else
+                    layout.appendControlCode(Inkscape::Text::Layout::PARAGRAPH_BREAK, *pending_line_break_object);
+                *pending_line_break_object = NULL;
+            }
+            layout.appendText(SP_STRING(child)->string, root->style, child);
+        } else if (SP_IS_FLOWREGION(child)) {
+            std::vector<Shape*> const &computed = SP_FLOWREGION(child)->computed;
+            for (std::vector<Shape*>::const_iterator it = computed.begin() ; it != computed.end() ; it++) {
+                shapes->push_back(Shape());
+                if (exclusion_shape->hasEdges())
+                    shapes->back().Booleen(*it, const_cast<Shape*>(exclusion_shape), bool_op_diff);
+                else
+                    shapes->back().Copy(*it);
+                layout.appendWrapShape(&shapes->back());
+            }
+        }
+        else if (!SP_IS_FLOWREGIONEXCLUDE(child))
+            _buildLayoutInput(child, exclusion_shape, shapes, pending_line_break_object);
+    }
+
+    if (SP_IS_FLOWDIV(root) || SP_IS_FLOWPARA(root) || SP_IS_FLOWREGIONBREAK(root) || SP_IS_FLOWLINE(root)) {
+        if (!root->hasChildren())
+            layout.appendText("", root->style, root);
+        *pending_line_break_object = root;
+    }
+}
+
+Shape* SPFlowtext::_buildExclusionShape() const
+{
+    Shape *shape = new Shape;
+    Shape *shape_temp = new Shape;
+
+    for (SPObject *child = children ; child != NULL ; child = SP_OBJECT_NEXT(child) ) {
+        // RH: is it right that this shouldn't be recursive?
+        if ( SP_IS_FLOWREGIONEXCLUDE(child) ) {
+            SPFlowregionExclude *c_child = SP_FLOWREGIONEXCLUDE(child);
+            if (c_child->computed == NULL || !c_child->computed->hasEdges())
+                continue;
+            if (shape->hasEdges()) {
+                shape_temp->Booleen(shape, c_child->computed, bool_op_union);
+                std::swap(shape, shape_temp);
+            } else
+                shape->Copy(c_child->computed);
+        }
+    }
+    delete shape_temp;
+    return shape;
+}
+
+void SPFlowtext::rebuildLayout()
+{
+    std::list<Shape> shapes;
+
+    layout.clear();
+    Shape *exclusion_shape = _buildExclusionShape();
+    SPObject *pending_line_break_object = NULL;
+    _buildLayoutInput(this, exclusion_shape, &shapes, &pending_line_break_object);
+    delete exclusion_shape;
+    layout.calculateFlow();
+    //g_print(layout.dumpAsText().c_str());
+}
+
+void SPFlowtext::_clearFlow(NRArenaGroup *in_arena)
+{
+    nr_arena_item_request_render(NR_ARENA_ITEM(in_arena));
+    for (NRArenaItem *child = in_arena->children; child != NULL; ) {
+        NRArenaItem *nchild = child->next;
+
+        nr_arena_glyphs_group_clear(NR_ARENA_GLYPHS_GROUP(child));
+        nr_arena_item_remove_child(NR_ARENA_ITEM(in_arena), child);
+
+        child = nchild;
+    }
+}
+
+void SPFlowtext::convert_to_text()
+{
+    SPDesktop *desktop = SP_ACTIVE_DESKTOP;
+    Inkscape::Selection *selection = SP_DT_SELECTION(desktop);
+    SPItem *item = selection->singleItem();
+    if (!SP_IS_FLOWTEXT(item)) return;
+
+    SPFlowtext *group = SP_FLOWTEXT(item);
+
+    if (!group->layout.outputExists()) return;
+
+    Inkscape::XML::Node *repr = sp_repr_new("svg:text");
+    repr->setAttribute("xml:space", "preserve");
+    repr->setAttribute("style", SP_OBJECT_REPR(group)->attribute("style"));
+    NR::Point anchor_point = group->layout.characterAnchorPoint(group->layout.begin());
+    sp_repr_set_svg_double(repr, "x", anchor_point[NR::X]);
+    sp_repr_set_svg_double(repr, "y", anchor_point[NR::Y]);
+
+    for (Inkscape::Text::Layout::iterator it = group->layout.begin() ; it != group->layout.end() ; ) {
+        
+	    Inkscape::XML::Node *line_tspan = sp_repr_new("svg:tspan");
+        line_tspan->setAttribute("sodipodi:role", "line");
+
+        Inkscape::Text::Layout::iterator it_line_end = it;
+        it_line_end.nextStartOfLine();
+        while (it != it_line_end) {
+
+	        Inkscape::XML::Node *span_tspan = sp_repr_new("svg:tspan");
+            NR::Point anchor_point = group->layout.characterAnchorPoint(it);
+            // use kerning to simulate justification and whatnot
+            Inkscape::Text::Layout::iterator it_span_end = it;
+            it_span_end.nextStartOfSpan();
+            Inkscape::Text::Layout::OptionalTextTagAttrs attrs;
+            group->layout.simulateLayoutUsingKerning(it, it_span_end, &attrs);
+            // set x,y attributes only when we need to
+            bool set_x = false;
+            bool set_y = false;
+            if (!item->transform.test_identity()) {
+                set_x = set_y = true;
+            } else {
+                Inkscape::Text::Layout::iterator it_chunk_start = it;
+                it_chunk_start.thisStartOfChunk();
+                if (it == it_chunk_start) {
+                    set_x = true;
+                    // don't set y so linespacing adjustments and things will still work
+                }
+                Inkscape::Text::Layout::iterator it_shape_start = it;
+                it_shape_start.thisStartOfShape();
+                if (it == it_shape_start)
+                    set_y = true;
+            }
+            if (set_x && !attrs.dx.empty())
+                attrs.dx[0] = 0.0;
+            TextTagAttributes(attrs).writeTo(span_tspan);
+            if (set_x)
+                sp_repr_set_svg_double(span_tspan, "x", anchor_point[NR::X]);  // FIXME: this will pick up the wrong end of counter-directional runs
+            if (set_y)
+                sp_repr_set_svg_double(span_tspan, "y", anchor_point[NR::Y]);
+
+            SPObject *source_obj;
+            Glib::ustring::iterator span_text_start_iter;
+            group->layout.getSourceOfCharacter(it, (void**)&source_obj, &span_text_start_iter);
+            gchar *style_text = sp_style_write_difference((SP_IS_STRING(source_obj) ? source_obj->parent : source_obj)->style, group->style);
+            if (style_text && *style_text) {
+                span_tspan->setAttribute("style", style_text);
+                g_free(style_text);
+            }
+
+            if (SP_IS_STRING(source_obj)) {
+                Glib::ustring *string = &SP_STRING(source_obj)->string;
+                SPObject *span_end_obj;
+                Glib::ustring::iterator span_text_end_iter;
+                group->layout.getSourceOfCharacter(it_span_end, (void**)&span_end_obj, &span_text_end_iter);
+                if (span_end_obj != source_obj) {
+                    if (it_span_end == group->layout.end()) {
+                        span_text_end_iter = span_text_start_iter;
+                        for (int i = group->layout.iteratorToCharIndex(it_span_end) - group->layout.iteratorToCharIndex(it) ; i ; --i)
+                            ++span_text_end_iter;
+                    } else
+                        span_text_end_iter = string->end();    // spans will never straddle a source boundary
+                }
+
+                if (span_text_start_iter != span_text_end_iter) {
+                    Glib::ustring new_string;
+                    while (span_text_start_iter != span_text_end_iter)
+                        new_string += *span_text_start_iter++;    // grr. no substr() with iterators
+                    Inkscape::XML::Node *new_text = sp_repr_new_text(new_string.c_str());
+                    span_tspan->appendChild(new_text);
+                    Inkscape::GC::release(new_text);
+                }
+            }
+            it = it_span_end;
+
+            line_tspan->appendChild(span_tspan);
+	        Inkscape::GC::release(span_tspan);
+        }
+        repr->appendChild(line_tspan);
+	    Inkscape::GC::release(line_tspan);
+    }
+
+    Inkscape::XML::Node *parent = SP_OBJECT_REPR(item)->parent();
+    parent->appendChild(repr);
+    SPItem *new_item = (SPItem *) SP_DT_DOCUMENT(desktop)->getObjectByRepr(repr);
+    sp_item_write_transform(new_item, repr, item->transform);
+    SP_OBJECT(new_item)->updateRepr();
+
+    Inkscape::GC::release(repr);
+    selection->set(new_item);
+    item->deleteObject();
+
+    sp_document_done(SP_DT_DOCUMENT(desktop));
+}
+
+SPItem *SPFlowtext::get_frame(SPItem *after)
+{
+    SPObject *ft = SP_OBJECT (this);
+    SPObject *region = NULL;
+
+    for (SPObject *o = sp_object_first_child(SP_OBJECT(ft)) ; o != NULL ; o = SP_OBJECT_NEXT(o) ) {
+        if (SP_IS_FLOWREGION(o)) {
+            region = o;
+            break;
+        }
+    }
+
+    if (!region) return NULL;
+
+    bool past = false;
+    SPItem *frame = NULL;
+
+    for (SPObject *o = sp_object_first_child(SP_OBJECT(region)) ; o != NULL ; o = SP_OBJECT_NEXT(o) ) {
+        if (SP_IS_ITEM(o)) {
+            if (after == NULL || past) {
+                frame = SP_ITEM(o);
+            } else {
+                if (SP_ITEM(o) == after) {
+                    past = true;
+                }
+            }
+        }
+    }
+
+    if (!frame) return NULL;
+
+    if (SP_IS_USE (frame)) {
+        return sp_use_get_original(SP_USE(frame));
+    } else {
+        return frame;
+    }
+}
+
+bool SPFlowtext::has_internal_frame()
+{
+    SPItem *frame = get_frame(NULL);
+
+    return (frame && SP_OBJECT(this)->isAncestorOf(SP_OBJECT(frame)) && SP_IS_RECT(frame));
+}
+
+
+SPItem *create_flowtext_with_internal_frame (SPDesktop *desktop, NR::Point p0, NR::Point p1)
+{
+    SPDocument *doc = SP_DT_DOCUMENT (desktop);
+
+    Inkscape::XML::Node *root_repr = sp_repr_new("svg:flowRoot");
+    root_repr->setAttribute("xml:space", "preserve"); // we preserve spaces in the text objects we create
+    SPItem *ft_item = SP_ITEM(desktop->currentLayer()->appendChildRepr(root_repr));
+    SPObject *root_object = doc->getObjectByRepr(root_repr);
+    g_assert(SP_IS_FLOWTEXT(root_object));
+
+    Inkscape::XML::Node *region_repr = sp_repr_new("svg:flowRegion");
+    root_repr->appendChild(region_repr);
+    SPObject *region_object = doc->getObjectByRepr(region_repr);
+    g_assert(SP_IS_FLOWREGION(region_object));
+
+    Inkscape::XML::Node *rect_repr = sp_repr_new("svg:rect"); // FIXME: use path!!! after rects are converted to use path
+    region_repr->appendChild(rect_repr);
+
+    SPObject *rect = doc->getObjectByRepr(rect_repr);
+
+    p0 = sp_desktop_dt2root_xy_point(desktop, p0);
+    p1 = sp_desktop_dt2root_xy_point(desktop, p1);
+    using NR::X;
+    using NR::Y;
+    NR::Coord const x0 = MIN(p0[X], p1[X]);
+    NR::Coord const y0 = MIN(p0[Y], p1[Y]);
+    NR::Coord const x1 = MAX(p0[X], p1[X]);
+    NR::Coord const y1 = MAX(p0[Y], p1[Y]);
+    NR::Coord const w  = x1 - x0;
+    NR::Coord const h  = y1 - y0;
+
+    sp_rect_position_set(SP_RECT(rect), x0, y0, w, h);
+    SP_OBJECT(rect)->updateRepr();
+
+    Inkscape::XML::Node *para_repr = sp_repr_new("svg:flowPara");
+    root_repr->appendChild(para_repr);
+    SPObject *para_object = doc->getObjectByRepr(para_repr);
+    g_assert(SP_IS_FLOWPARA(para_object));
+
+    Inkscape::XML::Node *text = sp_repr_new_text("");
+    para_repr->appendChild(text);
+
+    Inkscape::GC::release(root_repr);
+    Inkscape::GC::release(region_repr);
+    Inkscape::GC::release(para_repr);
+    Inkscape::GC::release(rect_repr);
+
+    return ft_item;
+}
+
+
+/*
+  Local Variables:
+  mode:c++
+  c-file-style:"stroustrup"
+  c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
+  indent-tabs-mode:nil
+  fill-column:99
+  End:
+*/
+// vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4 :