system-alert ( caption text -- )

Vocabulary

ui

Inputs

caption	a string
text	a string

Outputs

None

Word description

Displays an application-modal alert dialog box with the given caption and text.

Notes

Since the window raised by this word is modal, all processing in all Factor threads will halt until the dialog is dismissed. In an application that makes full use of the UI framework, it would be more appropriate to display a pane gadget in a Factor window. This word is meant primarily to be used to display errors in deployed applications with minimal dependencies on the UI library, such as games.

Definition

USING: ui.backend ;

IN: ui

HOOK: system-alert ui-backend ( caption text -- )

Methods

USING: alien.c-types cocoa.application cocoa.classes
cocoa.messages cocoa.runtime combinators kernel ui
ui.backend.cocoa ;

M: cocoa-ui-backend system-alert
    NSAlert { id { id SEL } } "alloc" send
    { id { id SEL } } "init" send
    { id { id SEL } } "autorelease" send [
        {
            [
                swap <NSString>
                { void { id SEL id } } "setInformativeText:"
                send
            ]
            [
                swap <NSString>
                { void { id SEL id } } "setMessageText:" send
            ]
            [
                "OK" <NSString>
                { id { id SEL id } } "addButtonWithTitle:" send
                drop
            ]
            [ { long { id SEL } } "runModal" send drop ]
        } cleave
    ] [ 2drop ] if* ;


USING: alien.strings destructors gtk2.ffi io.encodings.utf8
kernel ui ui.backend.gtk2 ;

M:: gtk2-ui-backend system-alert ( caption text -- )
    [
        f GTK_DIALOG_MODAL GTK_MESSAGE_WARNING GTK_BUTTONS_OK
        caption utf8 string>alien f gtk_message_dialog_new
        &gtk_widget_destroy [
            text utf8 string>alien
            f gtk_message_dialog_format_secondary_text
        ] [ gtk_dialog_run drop ] bi
    ] with-destructors ;