raku - 如何在 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 的唯一选项是 bindings for Tk。