#!/usr/local/bin/perl -w

BEGIN {
  our $no_session_check = 0;
  require "preface.pl";
}

use Pronto::MessageList;
use Pronto::FolderTree;
use Gtk::CList;
use Gtk::Dummy;
use HTMLWidget::FolderTree;
use Gtk::Gdk::Pixmap;
use Gtk::Pixmap;

our ($message_clist, $folder_tree, %ft_id, $root_window);

$prefs{WebPixmapDir} = "/pixmaps";

$folder_tree = new HTMLWidget::FolderTree;
$root_window->{button} = new ButtonDummy;

$ft_id{selected} = param('box');

if (!$ft_id{selected}) {
  print header, start_html("No Folder selected"), h1("No Folder selected"), end_html;
  exit 0;
}

$folder_tree->{selection} = ["selected"];

Pronto::MessageList->make_clist();
Pronto::MessageList->make_clist_sigs;
$message_clist->{template} = $template;
Pronto::MessageList->refresh_messages();

print header;

$message_clist->draw(param('session'));

sub set_labels {
  return;
}

sub set_win_title {
  return;
}


package ButtonDummy;

sub new {
  my $class = shift;

  my $self = {};

  return bless $self, $class;
}

sub visible {
  return;
}

sub hide {
  return;
}

sub show {
  return;
}