#!/usr/bin/perl

use strict;
use Tk;
use Tk::Label;
use Tk::HList;

package Rudif::Tk::HList;
@Rudif::Tk::HList::ISA = ( 'Tk::HList' );

sub addrow {
    my ( $self, $row, $text ) = @_;
    $self->add($row);
    $self->itemCreate( $row, 0, -text => $text );
}

sub updaterow {
    my ( $self, $row, $text ) = @_;
    $self->itemConfigure( $row, 0, -text => $text );
}

package main;

# your stuff here