+CanvasFlag::CanvasFlag (MidiRegionView& region,
+ Group& parent,
+ double height,
+ guint outline_color_rgba,
+ guint fill_color_rgba,
+ double x,
+ double y)
+ : Group(parent, x, y)
+ , _text(0)
+ , _height(height)
+ , _outline_color_rgba(outline_color_rgba)
+ , _fill_color_rgba(fill_color_rgba)
+ , _region(region)
+ , _line(0)
+ , _rect(0)
+{
+ /* XXX this connection is needed if ::on_event() is changed to actually do anything */
+ signal_event().connect (sigc::mem_fun (*this, &CanvasFlag::on_event));
+}
+
+void