### ----------------------------------------------------
### -- Electron
### -- Licenses: MIT
### -- Authors: 
### -- File: examples/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");


