KumaChan/stdlib/ui/native_event.km

function native-event:[T]
    &(Object, String, Bool) => Source[T]
    native 'qt-event';


type OnResize {
    width:  Number,
    height: Number
};

export function on-resize:
    &(Object) => Source[OnResize]
    &(object) => { native-event (object,'resize',No) };


export function on-close:
    &(Object) => Source[unit]
    &(object) => { native-event (object,'close',Yes) };