#:\rakudogit>cp d:\upp4_6_2014\out\MyApps\MSC9.Dll.Gui.Sse2\ultimatewindll.dll .

#D:\rakudogit>perl6 -I lib2\lib D:\m\p6\nativecalltest.p6
use NativeCall;


sub GetCurrentProcessId() returns int32 is native("kernel32") { * }

sub PromptOK(Str)  is native("ultimatewindll") { * }

sub TopWindow() is native("ultimatewindll") { * }

say GetCurrentProcessId();


class Size is repr('CPointer') { }
class Callback is repr('CPointer') { }
class TopStyle is repr('CPointer') { }
class TopWindow is repr('CPointer') {

multi sub TopWindow_GetMinSize(TopWindow) returns Size is symbol('TopWindow_GetMinSize_c') is native("ultimatewindll") { * }

multi method GetMinSize() returns Size {
 return TopWindow_GetMinSize (self);}

multi sub TopWindow_GetStdSize(TopWindow) returns Size is symbol('TopWindow_GetStdSize_c') is native("ultimatewindll") { * }

multi method GetStdSize() returns Size {
 return TopWindow_GetStdSize (self);}

multi sub TopWindow_Activate(TopWindow) is symbol('TopWindow_Activate_c') is native("ultimatewindll") { * }

multi method Activate() {
 TopWindow_Activate (self);}

multi sub TopWindow_Deactivate(TopWindow) is symbol('TopWindow_Deactivate_c') is native("ultimatewindll") { * }

multi method Deactivate() {
 TopWindow_Deactivate (self);}

multi sub TopWindow_Accept(TopWindow) returns int32 is symbol('TopWindow_Accept_c') is native("ultimatewindll") { * }

multi method Accept() returns int32 {
 return TopWindow_Accept (self);}

multi sub TopWindow_Reject(TopWindow) is symbol('TopWindow_Reject_c') is native("ultimatewindll") { * }

multi method Reject() {
 TopWindow_Reject (self);}

multi sub TopWindow_Paint(TopWindow,OpaquePointer $w) is symbol('TopWindow_Paint_c') is native("ultimatewindll") { * }

multi method Paint(OpaquePointer $w) {
 TopWindow_Paint (self,$w);}

multi sub TopWindow_IsShowEnabled(TopWindow) returns int32 is symbol('TopWindow_IsShowEnabled_c') is native("ultimatewindll") { * }

multi method IsShowEnabled() returns int32 {
 return TopWindow_IsShowEnabled (self);}

multi sub TopWindow_Key(TopWindow,OpaquePointer $key,int32 $count) returns int32 is symbol('TopWindow_Key_c') is native("ultimatewindll") { * }

multi method Key(OpaquePointer $key,int32 $count) returns int32 {
 return TopWindow_Key (self,$key,$count);}

multi sub TopWindow_Close(TopWindow) is symbol('TopWindow_Close_c') is native("ultimatewindll") { * }

multi method Close() {
 TopWindow_Close (self);}

multi sub TopWindow_GetDesc(TopWindow) returns Str is symbol('TopWindow_GetDesc_c') is native("ultimatewindll") { * }

multi method GetDesc() returns Str {
 return TopWindow_GetDesc (self);}

multi sub TopWindow_ChildGotFocus(TopWindow) is symbol('TopWindow_ChildGotFocus_c') is native("ultimatewindll") { * }

multi method ChildGotFocus() {
 TopWindow_ChildGotFocus (self);}

multi sub TopWindow_ShutdownWindow(TopWindow) is symbol('TopWindow_ShutdownWindow_c') is native("ultimatewindll") { * }

multi method ShutdownWindow() {
 TopWindow_ShutdownWindow (self);}

multi sub TopWindow_Backup(TopWindow) is symbol('TopWindow_Backup_c') is native("ultimatewindll") { * }

multi method Backup() {
 TopWindow_Backup (self);}

multi sub TopWindow_Restore(TopWindow) is symbol('TopWindow_Restore_c') is native("ultimatewindll") { * }

multi method Restore() {
 TopWindow_Restore (self);}

multi sub TopWindow_Break(TopWindow,int32 $ID) is symbol('TopWindow_Break_c') is native("ultimatewindll") { * }

multi method Break(int32 $ID) {
 TopWindow_Break (self,$ID);}

multi sub TopWindow_AcceptBreak(TopWindow,int32 $ID) returns int32 is symbol('TopWindow_AcceptBreak_c') is native("ultimatewindll") { * }

multi method AcceptBreak(int32 $ID) returns int32 {
 return TopWindow_AcceptBreak (self,$ID);}

multi sub TopWindow_RejectBreak(TopWindow,int32 $ID) is symbol('TopWindow_RejectBreak_c') is native("ultimatewindll") { * }

multi method RejectBreak(int32 $ID) {
 TopWindow_RejectBreak (self,$ID);}

multi sub TopWindow_WorkAreaTrim(TopWindow) is symbol('TopWindow_WorkAreaTrim_c') is native("ultimatewindll") { * }

multi method WorkAreaTrim() {
 TopWindow_WorkAreaTrim (self);}

multi sub TopWindow_Breaker(TopWindow,int32 $ID) returns Callback is symbol('TopWindow_Breaker_c') is native("ultimatewindll") { * }

multi method Breaker(int32 $ID) returns Callback {
 return TopWindow_Breaker (self,$ID);}

multi sub TopWindow_Acceptor(TopWindow,int32 $ID) returns Callback is symbol('TopWindow_Acceptor_c') is native("ultimatewindll") { * }

multi method Acceptor(int32 $ID) returns Callback {
 return TopWindow_Acceptor (self,$ID);}

multi sub TopWindow_Rejector(TopWindow,int32 $ID) returns Callback is symbol('TopWindow_Rejector_c') is native("ultimatewindll") { * }

multi method Rejector(int32 $ID) returns Callback {
 return TopWindow_Rejector (self,$ID);}

multi sub TopWindow_Acceptor(TopWindow,OpaquePointer $m,int32 $ID) returns TopWindow is symbol('TopWindow_Acceptor_2_c') is native("ultimatewindll") { * }

multi method Acceptor(OpaquePointer $m,int32 $ID) returns TopWindow {
 return TopWindow_Acceptor (self,$m,$ID);}

multi sub TopWindow_Rejector(TopWindow,OpaquePointer $m,int32 $ID) returns TopWindow is symbol('TopWindow_Rejector_2_c') is native("ultimatewindll") { * }

multi method Rejector(OpaquePointer $m,int32 $ID) returns TopWindow {
 return TopWindow_Rejector (self,$m,$ID);}

multi sub TopWindow_SetMinSize(TopWindow,OpaquePointer $sz) is symbol('TopWindow_SetMinSize_c') is native("ultimatewindll") { * }

multi method SetMinSize(OpaquePointer $sz) {
 TopWindow_SetMinSize (self,$sz);}

multi sub TopWindow_Open(TopWindow,OpaquePointer $owner) is symbol('TopWindow_Open_c') is native("ultimatewindll") { * }

multi method Open(OpaquePointer $owner) {
 TopWindow_Open (self,$owner);}

multi sub TopWindow_Open(TopWindow) is symbol('TopWindow_Open_2_c') is native("ultimatewindll") { * }

multi method Open() {
 TopWindow_Open (self);}

multi sub TopWindow_OpenMain(TopWindow) is symbol('TopWindow_OpenMain_c') is native("ultimatewindll") { * }

multi method OpenMain() {
 TopWindow_OpenMain (self);}

multi sub TopWindow_Run(TopWindow,int32 $appmodal) returns int32 is symbol('TopWindow_Run_c') is native("ultimatewindll") { * }

multi method Run(int32 $appmodal) returns int32 {
 return TopWindow_Run (self,$appmodal);}

multi sub TopWindow_Execute(TopWindow) returns int32 is symbol('TopWindow_Execute_c') is native("ultimatewindll") { * }

multi method Execute() returns int32 {
 return TopWindow_Execute (self);}

multi sub TopWindow_Minimize(TopWindow,int32 $effect) is symbol('TopWindow_Minimize_c') is native("ultimatewindll") { * }

multi method Minimize(int32 $effect) {
 TopWindow_Minimize (self,$effect);}

multi sub TopWindow_Maximize(TopWindow,int32 $effect) is symbol('TopWindow_Maximize_c') is native("ultimatewindll") { * }

multi method Maximize(int32 $effect) {
 TopWindow_Maximize (self,$effect);}

multi sub TopWindow_Overlap(TopWindow,int32 $effect) is symbol('TopWindow_Overlap_c') is native("ultimatewindll") { * }

multi method Overlap(int32 $effect) {
 TopWindow_Overlap (self,$effect);}

multi sub TopWindow_Title(TopWindow,OpaquePointer $_title) returns TopWindow is symbol('TopWindow_Title_c') is native("ultimatewindll") { * }

multi method Title(OpaquePointer $_title) returns TopWindow {
 return TopWindow_Title (self,$_title);}

multi sub TopWindow_Title(TopWindow,OpaquePointer $s) returns TopWindow is symbol('TopWindow_Title_2_c') is native("ultimatewindll") { * }

multi method Title(OpaquePointer $s) returns TopWindow {
 return TopWindow_Title (self,$s);}

multi sub TopWindow_Sizeable(TopWindow,int32 $b) returns TopWindow is symbol('TopWindow_Sizeable_c') is native("ultimatewindll") { * }

multi method Sizeable(int32 $b) returns TopWindow {
 return TopWindow_Sizeable (self,$b);}

multi sub TopWindow_MinimizeBox(TopWindow,int32 $b) returns TopWindow is symbol('TopWindow_MinimizeBox_c') is native("ultimatewindll") { * }

multi method MinimizeBox(int32 $b) returns TopWindow {
 return TopWindow_MinimizeBox (self,$b);}

multi sub TopWindow_MaximizeBox(TopWindow,int32 $b) returns TopWindow is symbol('TopWindow_MaximizeBox_c') is native("ultimatewindll") { * }

multi method MaximizeBox(int32 $b) returns TopWindow {
 return TopWindow_MaximizeBox (self,$b);}

multi sub TopWindow_Background(TopWindow,OpaquePointer $prect) returns TopWindow is symbol('TopWindow_Background_c') is native("ultimatewindll") { * }

multi method Background(OpaquePointer $prect) returns TopWindow {
 return TopWindow_Background (self,$prect);}

multi sub TopWindow_ToolWindow(TopWindow,int32 $b) returns TopWindow is symbol('TopWindow_ToolWindow_c') is native("ultimatewindll") { * }

multi method ToolWindow(int32 $b) returns TopWindow {
 return TopWindow_ToolWindow (self,$b);}

multi sub TopWindow_TopMost(TopWindow,int32 $b,int32 $stay_top) returns TopWindow is symbol('TopWindow_TopMost_c') is native("ultimatewindll") { * }

multi method TopMost(int32 $b,int32 $stay_top) returns TopWindow {
 return TopWindow_TopMost (self,$b,$stay_top);}

multi sub TopWindow_IsTopMost(TopWindow) returns int32 is symbol('TopWindow_IsTopMost_c') is native("ultimatewindll") { * }

multi method IsTopMost() returns int32 {
 return TopWindow_IsTopMost (self);}

multi sub TopWindow_FullScreen(TopWindow,int32 $b) returns TopWindow is symbol('TopWindow_FullScreen_c') is native("ultimatewindll") { * }

multi method FullScreen(int32 $b) returns TopWindow {
 return TopWindow_FullScreen (self,$b);}

multi sub TopWindow_FrameLess(TopWindow,int32 $b) returns TopWindow is symbol('TopWindow_FrameLess_c') is native("ultimatewindll") { * }

multi method FrameLess(int32 $b) returns TopWindow {
 return TopWindow_FrameLess (self,$b);}

multi sub TopWindow_Urgent(TopWindow,int32 $b) returns TopWindow is symbol('TopWindow_Urgent_c') is native("ultimatewindll") { * }

multi method Urgent(int32 $b) returns TopWindow {
 return TopWindow_Urgent (self,$b);}

multi sub TopWindow_Icon(TopWindow,OpaquePointer $m) returns TopWindow is symbol('TopWindow_Icon_c') is native("ultimatewindll") { * }

multi method Icon(OpaquePointer $m) returns TopWindow {
 return TopWindow_Icon (self,$m);}

multi sub TopWindow_LargeIcon(TopWindow,OpaquePointer $m) returns TopWindow is symbol('TopWindow_LargeIcon_c') is native("ultimatewindll") { * }

multi method LargeIcon(OpaquePointer $m) returns TopWindow {
 return TopWindow_LargeIcon (self,$m);}

multi sub TopWindow_Icon(TopWindow,OpaquePointer $smallicon,OpaquePointer $largeicon) returns TopWindow is symbol('TopWindow_Icon_2_c') is native("ultimatewindll") { * }

multi method Icon(OpaquePointer $smallicon,OpaquePointer $largeicon) returns TopWindow {
 return TopWindow_Icon (self,$smallicon,$largeicon);}

multi sub TopWindow_StyleDefault(TopWindow) returns TopStyle is symbol('TopWindow_StyleDefault_c') is native("ultimatewindll") { * }

multi method StyleDefault() returns TopStyle {
 return TopWindow_StyleDefault (self);}

multi sub TopWindow_SetStyle(TopWindow,OpaquePointer $s) returns TopWindow is symbol('TopWindow_SetStyle_c') is native("ultimatewindll") { * }

multi method SetStyle(OpaquePointer $s) returns TopWindow {
 return TopWindow_SetStyle (self,$s);}

multi sub TopWindow_SerializePlacement(TopWindow,OpaquePointer $s,int32 $reminimize) is symbol('TopWindow_SerializePlacement_c') is native("ultimatewindll") { * }

multi method SerializePlacement(OpaquePointer $s,int32 $reminimize) {
 TopWindow_SerializePlacement (self,$s,$reminimize);}

multi sub TopWindow_ShutdownWindows(TopWindow) is symbol('TopWindow_ShutdownWindows_c') is native("ultimatewindll") { * }

multi method ShutdownWindows() {
 TopWindow_ShutdownWindows (self);}

multi sub TopWindow_TopWindow(TopWindow) is symbol('TopWindow_TopWindow_c') is native("ultimatewindll") { * }

multi method new() {
 return TopWindow_TopWindow ();}
sub delete_TopWindow(TopWindow) is symbol('delete_TopWindow_c') is native("ultimatewindll") { * }
submethod DESTROY { delete_TopWindow(self);}
}

multi sub Maxisize(OpaquePointer $win,int32 $screencxmax) is symbol('Maxisize_c') is native("ultimatewindll") { * }

multi sub ArrangeOKCancel(OpaquePointer $ok,OpaquePointer $cancel) is symbol('ArrangeOKCancel_c') is native("ultimatewindll") { * }

multi sub SwapOKCancel() returns int32 is symbol('SwapOKCancel_c') is native("ultimatewindll") { * }

multi sub SwapOKCancel_Write(int32 $b) is symbol('SwapOKCancel_Write_c') is native("ultimatewindll") { * }