Skip to content
Browse files

Forgot present! Stuff works!

  • Loading branch information...
1 parent 7e574dc commit b2c32e1a34128b8747fe64c38c75b1b37c685262 @kthakore kthakore committed Mar 1, 2013
Showing with 6 additions and 1 deletion.
  1. +1 −0 src/Core/objects/Renderer.xs
  2. +3 −1 t/001_load.t
  3. +2 −0 t/002_software.t
View
1 src/Core/objects/Renderer.xs
@@ -74,6 +74,7 @@ renderer_set_draw_color (renderer, r, g, b, a)
Uint8 b
Uint8 a
CODE:
+ warn("Color: %d %d %d %d", r, g, b, a);
RETVAL = SDL_SetRenderDrawColor(renderer, r, g, b, a);
OUTPUT:
RETVAL
View
4 t/001_load.t
@@ -34,7 +34,7 @@ my $renderer = SDL2::Renderer->new($win, -1, 0x00000002); #Hardware accelerated
my $rect = SDL2::Rect->new(0,0,4,4);
-warn $renderer->set_draw_color(255,0,0,255);
+warn $renderer->set_draw_color(0,0,0,255);
warn $renderer->clear();
@@ -46,6 +46,8 @@ my $rect2 = SDL2::Rect->new(4,4,10,10);
warn $renderer->draw_rect($rect);
+$renderer->present();
+
SDL2pp::delay(3000);
SDL2pp::quit();
View
2 t/002_software.t
@@ -46,6 +46,8 @@ my $rect2 = SDL2::Rect->new(4,4,10,10);
warn $renderer->draw_rect($rect);
+$renderer->present();
+
SDL2pp::delay(3000);
SDL2pp::quit();

0 comments on commit b2c32e1

Please sign in to comment.
Something went wrong with that request. Please try again.