1 files changed, 57 insertions, 0 deletions
diff --git a/cmd/demo-gtk3/main.ha b/cmd/demo-gtk3/main.ha
new file mode 100644
index 0000000..a106b5c
--- /dev/null
+++ b/cmd/demo-gtk3/main.ha
@@ -0,0 +1,57 @@
+use gi::gio;
+use gi::glib;
+use gi::gobject;
+use gi::gtk;
+use os;
+use rt;
+use types::c;
+
+fn about_clicked(btn: *gtk::Button, data: *opaque) void = {
+	let dialog = gtk::about_dialog_new(): *gtk::AboutDialog;
+	const authors: []*c::char = [
+		c::nulstr("Harriet?\0"),
+		null: *c::char,
+	];
+	gtk::about_dialog_set_license_type(
+		dialog,
+		gtk::License::MPL_2_0,
+	);
+	gtk::about_dialog_set_authors(
+		dialog,
+		authors: *[*]*c::char: **c::char,
+	);
+	gtk::about_dialog_set_website(
+		dialog,
+		c::nulstr("https://git.sr.ht/~yerinalexey/hare-gi\0"),
+	);
+	gtk::widget_show_all(dialog);
+};
+
+fn activate(app: *gio::Application, data: *opaque) void = {
+	const app = app: *gtk::Application;
+
+	let button = gtk::button_new_with_label(c::nulstr("About\0")): *gtk::Button;
+	gtk::button_connect_clicked(button, &about_clicked, null);
+
+	let headerbar = gtk::header_bar_new(): *gtk::HeaderBar;
+	gtk::header_bar_set_title(headerbar, c::nulstr("hare-gi demo\0"));
+	gtk::header_bar_set_show_close_button(headerbar, glib::TRUE);
+	gtk::header_bar_pack_end(headerbar, button);
+
+	let window = gtk::application_window_new(app): *gtk::ApplicationWindow;
+	gtk::window_set_titlebar(window, headerbar);
+	gtk::widget_show_all(window);
+};
+
+export fn main() void = {
+	let app = gtk::application_new(
+		c::nulstr("hare_gi.example\0"),
+		gio::ApplicationFlags::FLAGS_NONE,
+	): *gtk::Application;
+	gio::application_connect_activate(app, &activate, null);
+	const status = gio::application_run(
+		app, rt::argc: int, rt::argv: **c::char,
+	);
+	gobject::object_unref(app);
+	os::exit(status);
+};