Permalink
Browse files

added max_t method for max_t param

  • Loading branch information...
1 parent 01bc3e5 commit 130c61d04697a0316c9c0ba49e25a15a9338ed78 @Blaizer Blaizer committed Apr 12, 2012
Showing with 10 additions and 0 deletions.
  1. +8 −0 lib/SDLx/Controller.pm
  2. +2 −0 lib/pods/SDLx/Controller.pod
@@ -302,6 +302,14 @@ sub min_t {
$_min_t{ $ref };
}
+sub max_t {
+ my ($self, $arg) = @_;
+ my $ref = refaddr $self;
+ $_max_t{ $ref } = $arg if defined $arg;
+
+ $_max_t{ $ref };
+}
+
sub delay {
my ($self, $arg) = @_;
my $ref = refaddr $self;
@@ -472,11 +472,13 @@ event handler display this, because L</stop> could be called in the meantime.
my $dt = $app->dt;
my $min_t = $app->min_t;
+ my $max_t = $app->max_t;
my $delay = $app->delay;
my $stop_handler = $app->stop_handler;
my $event = $app->event;
$app->dt ($dt);
$app->min_t ($min_t);
+ $app->max_t ($max_t);
$app->delay ($delay);
$app->stop_handler($stop_handler);
$app->event ($event);

0 comments on commit 130c61d

Please sign in to comment.