screen.p6

#!/usr/bin/env perl6

use v6;

use lib 'lib';

use Electron;

my $app = Electron::App.instance;
LEAVE {
  $app.destroy if $app.defined;
}

say Electron::Screen.get_cursor_screen_point.perl;

say Electron::Screen.get_primary_display.perl;

say Electron::Screen.get-all-displays.perl;

say Electron::Screen.get-display-nearest-point({x => 0, y => 0}).perl;

say Electron::Screen.get-display-matching({x => 0, y => 0, width => 800, height => 600}).perl;

prompt("Press any key to exit");