#!/usr/bin/perl

use Gtk3;
Gtk3->init;

my $w = Gtk3::Window->new;
$w->set_title("TextTag test");
$w->add(my$t = Gtk3::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' => Pango::Weight::BOLD, scale => Pango::AttrType::SCALE));
warn ">> ", Pango::AttrType::SCALE, "\n";
$buffer->insert_with_tags($iter1, " taotoa", $buffer->create_tag(undef, 'foreground' => 'red'));
$w->show_all;
Gtk3->main;
