Remove duplicate is repr, add a missing my

and fix the test deprecation warnings
finanalyst · Aug 28, 2015 · 64f1603 · 64f1603
1 parent dc8f299
commit 64f1603
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/lib/GTK/GDK.pm6 b/lib/GTK/GDK.pm6
@@ -59,7 +59,7 @@ sub gdk_event_get_keyval(GdkEvent $event, carrayuint16 $keycode)
     is native(&gdk-lib)
     {*}
 
-class GdkEvent is repr('CPointer') {
+class GdkEvent {
     method keycode {
         my carrayuint16 $tgt .= new;
         $tgt[0] = 0;

diff --git a/lib/GTK/Simple.pm6 b/lib/GTK/Simple.pm6
@@ -135,7 +135,7 @@ role GTK::Simple::Widget {
 
     method events {
         my $window = self.WINDOW;
-        class GdkEventMaskWrapper {
+        my class GdkEventMaskWrapper {
             method set(*@events) {
                 my $mask = gdk_window_get_events($window);
                 $mask +|= [+|] @events;

diff --git a/t/01_sanity.t b/t/01_sanity.t
@@ -3,6 +3,6 @@ use GTK::Simple;
 plan 3;
 
 my $g;
-lives_ok {$g = GTK::Simple::App.new}
-lives_ok {GTK::Simple::Scheduler.new.cue: {$g.exit}}
-lives_ok {$g.run}
+lives-ok {$g = GTK::Simple::App.new}
+lives-ok {GTK::Simple::Scheduler.new.cue: {$g.exit}}
+lives-ok {$g.run}