如何在Windows中为Perl6创建弹出窗口？

Question

我正在使用Windows 7和10 rakudo-star-2019.03-x86_64 (JIT)。我想知道如何在Perl6中创建一个弹出窗口来向用户提供信息？类似于Linux的send-notify或Windows Pro msg（无网络连接）

非常感谢，-T

Answer 1

一个简单的Messagebox是否足够好？然后

use NativeCall;

constant WCHAR              = uint16;
constant INT                = int32;
constant UINT               = uint32;
constant HANDLE             = Pointer[void];
constant LPWCTSTR           = CArray[WCHAR];
constant MB_ICONEXCLAMATION = 0x00000030;

sub MessageBoxW( HANDLE, LPWCTSTR, LPWCTSTR, UINT ) is native('user32') returns INT { * };

MessageBoxW( my $handle, to-c-str("?? Raku is awesome ??"), to-c-str("Hellö W?rld"), MB_ICONEXCLAMATION );

sub to-c-str( Str $str ) returns CArray[WCHAR]
{
    my @str := CArray[WCHAR].new;
    for ( $str.comb ).kv -> $i, $char { @str[$i] = $char.ord; }
    @str[ $str.chars ] = 0;
    @str;
}

对于任何更复杂的事情，我相信，目前GUI可用的唯一选项是Tk的绑定。