#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib $FindBin::Bin;

use Tk;
use Tk::Canvas;

use CFFClock;

#
# ---------------------------------------------------------------------
# Programme principal
# ---------------------------------------------------------------------
#

my $mw = MainWindow->new;

$mw->title("Pendule CFF");

$mw->geometry("800x800");
#$mw->geometry("500x500");

$mw->minsize(300,300);

#
# Canvas principal
#

my $canvas = $mw->Canvas(

#   -background         => '#d8d8d8',
    -background         => '#e6e6e6',
    -highlightthickness => 0,

)->pack(

    -expand => 1,
    -fill   => 'both',

);

#
# Création de l'horloge
#

my $clock = CFFClock->new(

    canvas => $canvas,

);

#
# Redessin lors du redimensionnement
#

$mw->bind(

    '<Configure>' => sub {

        $clock->resize();

    }

);

#
# Touche F11 = plein écran
#

$mw->bind(

    '<F10>' => sub {

        my $fs = $mw->attributes('-fullscreen');

        $mw->attributes(

            -fullscreen => !$fs

        );

    }

);

#
# Touche ESC = quitter le plein écran
#

$mw->bind(

    '<Escape>' => sub {

        $mw->attributes(

            -fullscreen => 0

        );

    }

);

#
# Lancement de l'animation
#

$clock->start();

MainLoop;