package Client::Widget;
use strict;

our $FOCUS;  # the widget with current focus
our @ACTIVE_WIDGETS;

# class methods for events
sub feed_sdl_key_down_event    { $FOCUS->key_down ($_[0])    if $FOCUS }
sub feed_sdl_key_up_event      { $FOCUS->key_up ($_[0])      if $FOCUS }
sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS }
sub feed_sdl_button_up_event   { $FOCUS->button_up ($_[0])   if $FOCUS }

sub new {
   my $class = shift;
   my $self = { @_ };
   bless $self, $class;
   return $self;
}

sub focus_in {
   my ($widget) = @_;
   $FOCUS = $widget;
}
sub focus_out {
   my ($widget) = @_;
}
sub key_down {
   my ($widget, $sdlev) = @_;
}
sub key_up {
   my ($widget, $sdlev) = @_;
}
sub button_down {
   my ($widget, $sdlev) = @_;
}
sub button_up {
   my ($widget, $sdlev) = @_;
}
sub draw {
   my ($widget) = @_;
}
sub bbox {
   my ($widget) = @_;
}
1;