bar.fal

#!falcon -E utf-8

load gtk

m = GtkMain()
function quit()
  m.quit()
  return false
end

w = GtkWindow()
b = GtkButton()
b.set_label("押せ")

function clicked()
  d = GtkMessageDialog(
    w,
    GTK_DIALOG_MODAL,
    GTK_MESSAGE_ERROR,
    GTK_BUTTONS_CLOSE,
    "よくも押したな！",
    nil)
  d.run()
  d.destroy()
end
b.signal_clicked().connect(clicked)
w.add(b)

w.signal_delete_event().connect(quit)
w.show_all()

m.run()