### ----------------------------------------------------
### -- IUP
### -- Licenses: Artistic-2.0
### -- Authors: Henrique Dias, Tobias Leich, David Warring, Zoffix Znet, Naoum Hankache, Robert Ransbottom, Günter Milder
### -- File: examples/c-message.raku
### ----------------------------------------------------
#!/usr/bin/env raku
# IupMessage Raku Example from the C
use lib 'lib';
use lib $?FILE.IO.cleanup.parent(2).add("lib");
use IUP;

sub MAIN() {
  my $iup = IUP.new;
  $iup.open;
  my $ih = IUP::Handle.new;

  $iup.message("IupMessage Example", "Press the button");

  $iup.close;
}


