### ----------------------------------------------------
### -- IUP
### -- Licenses: Artistic-2.0
### -- Authors: Henrique Dias, Tobias Leich, David Warring, Zoffix Znet, Naoum Hankache, Robert Ransbottom, Günter Milder
### -- File: examples/example3-1.raku
### ----------------------------------------------------
#!/usr/bin/env raku
# :vim ft=raku sw=4 expandtab  # 🦋 ∅ ≡ ∩ ≢ ∈ «␤»
use v6.d;
use lib 'lib';
use lib $?FILE.IO.parent(2).add("lib");

use IUP;

multi MAIN ( ) {
    my $iup = IUP.new;
    $iup.open;

    my $multitext = $iup.text('');
    my $vbox = $iup.vbox( $multitext,);

    $multitext.set-attr( "MULTILINE", "YES");
    $multitext.set-attr( "EXPAND", "YES");
    my $dlg = $iup.dialog($vbox);
    $dlg.set-attr( "TITLE", "Simple Notepad", :copy);
   $dlg.set-attr( "SIZE", "QUARTERxQUARTER");

    $dlg.show( IUP_CENTER, IUP_CENTER);
    $dlg.set-attr( "USERSIZE", '');

    $iup.main-loop();
    $iup.close();
}




