### ----------------------------------------------------
### -- GTK::Simple
### -- Licenses: Artistic-2.0
### -- Authors: Jonathan Worthington, Moritz Lenz, Timo Paulssen, Ahmad M. Zawawi, Jonathan Stowe, ab5tract, momozor, Zoffix Znet, Nick Logan, finanalyst aka Richard Hainsworth
### -- File: lib/GTK/Simple/MarkUpLabel.rakumod
### ----------------------------------------------------

use v6;

use NativeCall;
use GTK::Simple::Raw :label;
use GTK::Simple::Common;
use GTK::Simple::Widget;

unit class GTK::Simple::MarkUpLabel does GTK::Simple::Widget;

submethod BUILD(:$text = '') {
    $!gtk_widget = gtk_label_new(''.Str);
    gtk_label_set_markup($!gtk_widget,$text.Str);
}

method text() 
    returns Str 
    is gtk-property(&gtk_label_get_text, &gtk_label_set_markup)
    { * }


