#!/usr/bin/perl -w
#
# pVoice
#
# For more information go to http://www.pvoice.org where you can
# download a zipfile containing this file, the README and pvoicecommon.pm
#
# See the mentioned  README file for a little documentation
# Since version 0.02.1 you also need pvoicecommon.pm, which is the object-
# package. 

use Tk 800.017;
use Tk::JPEG;

# And on unix-systems it requires the system command 'play' to play the .wav 
# files, and on Win32 systems, it requires Win32::Sound for the same purpose.
#
# Author:		Jouke Visser
# Last modification:	May 28, 2001
#
# pVoice is free for personal use.
# Copyright (c) 2001, Jouke Visser
#
# Changelog:
# 0.01: First release
# 0.02: Little bugfix (arrow-up on first position never showed up)
# 0.02.1: OO-ified the whole thing and parametrisized as much as possible.
use strict;

#------------------------------------------------------------------------------
use pvoicecommon;
# Configuration-stuff
my $pv = new pvoicecommon(
			program_title	=> "pVoice 0.02.1 development",
			bgcolor		=> 'white',
			active_bgcolor	=> 'red',
			sounddir	=> "./data",
			current_category=> "",
			current_page	=> 1,
			indexfile 	=> "index.txt",
			catfile		=> "cat.txt",
			sound_ext	=> "wav",
			img_ext		=> "jpg",
			border_width	=> 10,
			cellpadding	=> 4,
			columns		=> 4,
			rows		=> 4,
			selected_button	=> 0
			);
my $img_ext = $pv->img_ext();
$pv->next_img("volgende.$img_ext");
$pv->prev_img("vorige.$img_ext");
$pv->up_img("omhoog.$img_ext");

# Create the main window
my $main = MainWindow->new(-background => $pv->bgcolor());
# Maximize the window
my ($screenw, $screenh) = ($main->screenwidth, $main->screenheight);
$main->withdraw();
$main->geometry($screenw."x".$screenh."+0+0");
$main->deiconify();
$main->raise();

# Write the title of the window
$main->title($pv->program_title());

#create the window for the images
$pv->mainframe($main->Frame(-background => $pv->bgcolor())->pack());

# Write the header
$pv->mainframe()->gridRowconfigure(0, -weight => 0, -pad => $pv->cellpadding());
my $label=$main->Label(	-text => $pv->program_title(), 
			-background => $pv->bgcolor());
$label->grid(	-in     => $pv->mainframe(),
		-column => 0,
		-row    => 0,
		-columnspan=> $pv->columns()
		);

# Determine the maximum size of each icon
$main->update(); # To determine the height of the $label the window must be updated
$pv->max_height(int(	($main->height() - $label->height())/$pv->rows())-
			(2*($pv->border_width() + $pv->cellpadding())
			));
$pv->max_width(int(	(($main->width)/$pv->columns())-
			2*($pv->border_width() + $pv->cellpadding())
			));

#configure the grid to constant cellsizes
$pv->configurecolumns(startcolumn => 0);
$pv->configurerows(startrow => 1);

# Read the categoryfile and draw the first page with category-buttons
my @categories = $pv->readcategoryfile();
$pv->drawcatpage(\@categories);

# Make the first button active 
$pv->buttons()->[$pv->selected_button()]->configure(-state => 'active');

# Right mouseclick means select next item
$main->bind('<Button-3>', 
	        sub {
	        	$pv->buttons()->[$pv->selected_button()]->configure(
	        					-state => 'normal');
	        	if ($pv->selected_button() < @{$pv->buttons()} -1)
	        		{$pv->selected_button($pv->selected_button()+1)}
	        	else	{$pv->selected_button(0)}
	        	$pv->buttons()->[$pv->selected_button()]->configure(
	        					-state => 'active');
	        	}
	        );

# Left mouseclick means execute current item
$main->bind('<Button-1>', 
		sub {
	        	$pv->buttons()->[$pv->selected_button()]->invoke();
	        	}
	        );
MainLoop();