Fix inappropriately massive flag font.

gtk2_ardour/patch_change.cc

@@ -66,6 +66,7 @@ PatchChange::PatchChange(
 	CANVAS_DEBUG_NAME (_flag, text);
 
 	_flag->Event.connect (sigc::mem_fun (*this, &PatchChange::event_handler));
+	_flag->set_font_description (ARDOUR_UI::config()->get_SmallFont());
 	_flag->set_text(text);
 }
 

libs/canvas/canvas/flag.h

@@ -17,6 +17,8 @@
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
 
+#include <pangomm/fontdescription.h>
+
 #include "canvas/visibility.h"
 #include "canvas/types.h"
 #include "canvas/container.h"
@@ -36,6 +38,8 @@ public:
 	void set_text (std::string const &);
 	void set_height (Distance);
 
+	void set_font_description (Pango::FontDescription);
+
         bool covers (Duple const &) const;
 	
 private:

libs/canvas/flag.cc

@@ -61,6 +61,12 @@ Flag::setup (Distance height, Duple position)
 	set_position (position);
 }
 
+void
+Flag::set_font_description (Pango::FontDescription font_description)
+{
+	_text->set_font_description (font_description);
+}
+
 void
 Flag::set_text (string const & text)
 {