#!/usr/bin/perl

use Gtk2;
use Gtk2::Pango;
Gtk2->init;

my $w = Gtk2::Window->new;
$w->set_title("TextTag test");
$w->add(my$t = Gtk2::TextView->new);
my $buffer = $t->get_buffer;
$buffer->set_text('test');
my $iter1 = $buffer->get_end_iter;
# works fine:
$buffer->insert_with_tags($iter1, " toto", $buffer->create_tag(undef, weight => Gtk2::Pango->PANGO_WEIGHT_BOLD, scale => Gtk2::Pango->PANGO_SCALE_LARGE));
warn ">> ", Gtk2::Pango->PANGO_SCALE_LARGE, "\n";
$buffer->insert_with_tags($iter1, " taotoa", $buffer->create_tag(undef, 'foreground' => 'red'));
$w->show_all;
Gtk2->main;
