on-button-clicked ( button label-user-data -- )

Vocabulary

gtk-samples.hello-world

Inputs

button	an object
label-user-data	an object

Outputs

None

Definition

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

IN: gtk-samples.hello-world

: on-button-clicked ( button label-user-data -- )
    nip "Hello! :)" utf8 string>alien gtk_label_set_text ;