GTK/開発

シンプルなメッセージダイアログアプリ

GObject-Introspection やバインディングを使うことで多くのプログラミング言語で簡単に GTK+ 3 のメッセージダイアログを作ることができます、また bash を使うこともできます。

以下の例ではシンプルに "Hello world" をメッセージダイアログに表示します。

Ada

• 依存パッケージ: gtkada^AUR
• ビルドするのに必要なパッケージ: gcc-ada
• ビルド: gnatmake hello_world `gtkada-config`

hello_world.adb

with Gtk.Main;
with Gtk.Dialog;           use Gtk.Dialog;
with Gtk.Message_Dialog;   use Gtk.Message_Dialog;

procedure hello_world is
  Dialog   : Gtk_Message_Dialog;
  Response : Gtk_Response_Type;
begin
  Gtk.Main.Init;
  Gtk_New (Dialog   => Dialog,
           Parent   => null,
           Flags    => 0,
           The_Type => Message_Info,
           Buttons  => Buttons_OK,
           Message  => "Hello world!");
  Format_Secondary_Markup (Dialog, "This is an example dialog.");
  Response := Run (Dialog);
end hello_world;

Bash

• 依存パッケージ: zenity

hello_world.sh

#!/bin/bash
zenity --info --title='Hello world!' --text='This is an example dialog.'

BASIC

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: freebasic-gnomeheaders^AUR
• ビルド: fbc hello_world.bas

hello_world.bas

#include "Gir/Gtk-3.0.bi"
Dim As GtkWidget Ptr hello
gtk_init (cast(gint ptr, @__fb_argc__), @__fb_argv__)
hello = gtk_message_dialog_new (NULL, GTK_DIALOG_MODAL, GTK_MESSAGE_INFO, GTK_BUTTONS_OK, "Hello world!")
gtk_message_dialog_format_secondary_text (GTK_MESSAGE_DIALOG (hello), "This is an example dialog.")
gtk_dialog_run (GTK_DIALOG (hello))

Boo

• 依存パッケージ: gtk-sharp-3 (boo^AUR)
• ビルドするのに必要なパッケージ: boo^AUR
• ビルド: booc hello_world.boo
• 実行: mono hello_world.exe (もしくは booi hello_world.boo)

hello_world.boo

import Gtk from "gtk-sharp"
Application.Init()
Hello = MessageDialog(null, DialogFlags.Modal, MessageType.Info, ButtonsType.Close, "Hello world!")
Hello.SecondaryText = "This is an example dialog."
Hello.Run()

C

• 依存パッケージ: gtk3
• ビルド: gcc -o hello_world `pkg-config --cflags --libs gtk+-3.0` hello_world.c

hello_world.c

#include <gtk/gtk.h>
void main (int argc, char *argv[]) {
	gtk_init (&argc, &argv);
        GtkWidget *hello = gtk_message_dialog_new (NULL, GTK_DIALOG_MODAL, GTK_MESSAGE_INFO, GTK_BUTTONS_OK, "Hello world!");
	gtk_message_dialog_format_secondary_text (GTK_MESSAGE_DIALOG (hello), "This is an example dialog.");
        gtk_dialog_run(GTK_DIALOG (hello));
}

C++

• 依存パッケージ: gtkmm3
• ビルド: g++ -o hello_world `pkg-config --cflags --libs gtkmm-3.0` hello_world.cc

hello_world.cc

#include <gtkmm/main.h>
#include <gtkmm/messagedialog.h>
int main(int argc, char *argv[]) {
	Gtk::Main kit(argc, argv);
	Gtk::MessageDialog Hello("Hello world!", false, Gtk::MESSAGE_INFO, Gtk::BUTTONS_OK);
	Hello.set_secondary_text("This is an example dialog.");
	Hello.run();
	return 0;
}

C#

• 依存パッケージ: gtk-sharp-3
• ビルド: mcs -pkg:gtk-sharp-3.0 hello_world.cs
• 実行: mono hello_world.exe

hello_world.cs

using Gtk;
public class HelloWorld {
	static void Main() {
		Application.Init ();
		MessageDialog Hello = new MessageDialog (null, DialogFlags.Modal, MessageType.Info, ButtonsType.Close, "Hello world!");
		Hello.SecondaryText="This is an example dialog.";
		Hello.Run ();
	}
}

Clojure

• 依存パッケージ: java-gnome^AUR, leiningen
• 実行: lein run

project.clj

(defproject hello-world "0.1.0-SNAPSHOT"
  :main hello-world.core
  :dependencies [[org.clojure/clojure "1.10.3"]]
  :resource-paths ["/usr/share/java/gtk.jar"])

src/hello_world/core.clj

(ns hello-world.core
  (:import [org.gnome.gtk Gtk InfoMessageDialog]))

(defonce gtk-init (Gtk/init (make-array String 0)))
  
(defn -main []
  (doto (InfoMessageDialog. nil "Hello world!" "This is an example dialog.").run))

Crystal

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: crystal, crystal-gobject
• ビルド: crystal build hello_world.cr

hello_world.cr

require "gobject/gtk/autorun"

dialog = Gtk::MessageDialog.new text: "Hello world!", message_type: :info, buttons: :ok, secondary_text: "This is an example dialog."
dialog.on_response do
  Gtk.main_quit
end
dialog.show

D

• 依存パッケージ: gtkd
• ビルドするのに必要なパッケージ: dmd
• ビルド: dmd hello_world $(pkg-config --cflags --libs gtkd-2)

hello_world.d

import gtk.Main;
import gtk.MessageDialog;

void main(string[] args)
{
	Main.init(args);
	MessageDialog dialog = new MessageDialog(null, GtkDialogFlags.MODAL, MessageType.INFO, ButtonsType.OK, "Hello world!");
	dialog.run();
}

F#

• 依存パッケージ: gtk-sharp-3
• ビルドするのに必要なパッケージ: fsharp^AUR
• ビルド: fsharpc -r:gtk-sharp.dll -I:/usr/lib/mono/gtk-sharp-3.0/ hello_world.fs
• 実行: mono hello_world.exe

hello_world.fs

open Gtk
Application.Init()
let Hello = new MessageDialog(null, DialogFlags.Modal, MessageType.Info, ButtonsType.Ok, "Hello world!")
Hello.SecondaryText <- "This is an example dialog."
Hello.Run() |> ignore

Fortran

• 依存パッケージ: gtk-3-fortran-git^AUR
• ビルドするのに必要なパッケージ: gcc-fortran
• ビルド: gfortran -o hello_world $(pkg-config --cflags --libs gtk-3-fortran) hello_world.f90

hello_world.f90

program hello_world
  use gtk_hl
  use gtk, only: gtk_init

  integer(c_int) :: resp
  character(40), dimension(2) :: msg

  call gtk_init()
  msg(1) ="Hello world!"
  msg(2) = "This is an example dialog."
  resp = hl_gtk_message_dialog_show(msg, GTK_BUTTONS_OK, type=GTK_MESSAGE_INFO)
end program hello_world

Genie

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: vala
• ビルド: valac --pkg gtk+-3.0 hello_world.gs

hello_world.gs

uses 
	Gtk
init
	Gtk.init (ref args)
	var Hello=new MessageDialog (null, Gtk.DialogFlags.MODAL, Gtk.MessageType.INFO, Gtk.ButtonsType.OK, "Hello world!")
	Hello.format_secondary_text ("This is an example dialog.")
	Hello.run ()

Go

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: gotk3-git^AUR
• ビルド: go build hello_world.go
• (もしくは実行: go run hello_world.go)

hello_world.go

package main
import ("github.com/conformal/gotk3/gtk")

func main() {
	gtk.Init(nil)
	dialog := gtk.MessageDialogNew(nil, gtk.DIALOG_MODAL, gtk.MESSAGE_INFO, gtk.BUTTONS_OK, "Hello world!")
	dialog.FormatSecondaryText("This is an example notification.")
	dialog.Run()
}

Groovy

• 依存パッケージ: groovy, java-gnome^AUR
• ビルド: groovyc -cp /usr/share/java/gtk.jar HelloWorld.groovy && jar cfe HelloWorld.jar HelloWorld HelloWorld.class
• 実行: java -cp /usr/share/groovy/embeddable/groovy-all.jar:/usr/share/java/gtk.jar:HelloWorld.jar HelloWorld または groovy -cp /usr/share/java/gtk.jar HelloWorld.groovy

HelloWorld.groovy

import org.gnome.gtk.*
Gtk.init()
def Hello = new InfoMessageDialog(null, "Hello world!", "This is an example dialog.")
Hello.run()

Haskell

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: haskell-gtk^{[リンク切れ: 置換パッケージ: haskell-gtk3]}
• ビルド: ghc hello_world

hello_world.hs

import Graphics.UI.Gtk
main = do
         initGUI
         dialog <- messageDialogNew Nothing [DialogModal] MessageInfo ButtonsOk "Hello world!"
         messageDialogSetSecondaryText dialog "This is an example dialog."
         _res <- dialogRun dialog
         return 0

IronPython

• 依存パッケージ: gtk-sharp-3, ironpython^AUR
• 実行: ipy hello_world.py

hello_world.py

import clr
clr.AddReference('gtk-sharp')
import Gtk
Gtk.Application.Init()
Hello = Gtk.MessageDialog (None, Gtk.DialogFlags.Modal, Gtk.MessageType.Info, Gtk.ButtonsType.Ok, "Hello world!")
Hello.SecondaryText="This is an example dialog."
Hello.Run()

Java

• 依存パッケージ: java-gnome^AUR
• ビルドするのに必要なパッケージ: java-environment
• ビルド: mkdir HelloWorld && javac -classpath /usr/share/java/gtk.jar -d HelloWorld HelloWorld.java
• 実行: java -classpath /usr/share/java/gtk.jar:HelloWorld HelloWorld

HelloWorld.java

import org.gnome.gtk.Gtk;
import org.gnome.gtk.Dialog;
import org.gnome.gtk.InfoMessageDialog;

public class HelloWorld
{
    public static void main(String[] args) {
        Gtk.init(args);
        Dialog Hello = new InfoMessageDialog(null, "Hello world!", "This is an example dialog.");
        Hello.run();
    }
}

JavaScript

• 依存パッケージ: gtk3, gjs

hello_world.js

#!/usr/bin/gjs
Gtk = imports.gi.Gtk
Gtk.init(null, null)
Hello = new Gtk.MessageDialog({type: Gtk.MessageType.INFO,
                               buttons: Gtk.ButtonsType.OK,
                               text: "Hello world!",
                               "secondary-text": "This is an example dialog."})
Hello.run()

JRuby

• 依存パッケージ: java-gnome^AUR, jruby
• ビルド: jrubyc hello_world.rb && jar cfe hello_world.jar hello_world hello_world.class
• 実行: java -cp /opt/jruby/lib/jruby.jar:hello_world.jar hello_world または jruby hello_world.rb

hello_world.rb

require '/usr/share/java/gtk.jar'
import Java::OrgGnomeGtk::Gtk
import Java::OrgGnomeGtk::Dialog
import Java::OrgGnomeGtk::InfoMessageDialog

Gtk.init(nil)
Hello = InfoMessageDialog.new(nil, "Hello world!", "This is an example dialog.")
Hello.run

Julia

• 依存パッケージ: julia, Gtk.jl
• 実行: julia hello_world.jl

hello_world.jl

using Gtk
info_dialog("Hello world!\n\nThis is an example dialog.")

Jython

• 依存パッケージ: java-gnome^AUR, jython
• 実行: jython -Dpython.path=/usr/share/java/gtk.jar hello_world.py

hello_world.py

from org.gnome.gtk import Gtk, InfoMessageDialog
Gtk.init(None)
Hello=InfoMessageDialog(None, "Hello world!", "This is an example dialog.")
Hello.run()

Kotlin

• 依存パッケージ: java-gnome^AUR
• ビルドするのに必要なパッケージ: kotlin
• ビルド: kotlinc -cp /usr/share/java/gtk.jar HelloWorld.kt -include-runtime -d HelloWorld.jar
• 実行: java -cp /usr/share/java/gtk.jar:HelloWorld.jar HelloWorldKt

HelloWorld.kt

import org.gnome.gtk.*

fun main(args : Array<String>) {
        Gtk.init(args);
        val Hello = InfoMessageDialog(null, "Hello world!", "This is an example dialog.");
        Hello.run();
}

Lua

• 依存パッケージ: gtk3, lua-lgi

hello_world.lua

#!/usr/bin/env lua
lgi = require 'lgi'
Gtk = lgi.require('Gtk')
Gtk.init()
Hello=Gtk.MessageDialog {message_type = Gtk.MessageType.INFO,
                         buttons = Gtk.ButtonsType.OK,
                         text = "Hello world!",
                         secondary_text = "This is an example dialog."}
Hello:run()

Nemerle

• 依存パッケージ: gtk-sharp-3
• ビルドするのに必要なパッケージ: nemerle^AUR
• ビルド: ncc -pkg:gtk-sharp-3.0 -out:hello_world.exe hello_world.n
• 実行: mono hello_world.exe

hello_world.n

using Gtk;
public class HelloWorld {
	static Main() : void {
		Application.Init ();
		def Hello = MessageDialog (null, DialogFlags.Modal, MessageType.Info, ButtonsType.Ok, "Hello world!");
		Hello.SecondaryText = "This is an example dialog.";
		_ = Hello.Run ();
	}
}

OCaml

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: lablgtk3
• ビルド: ocamlopt -I +lablgtk3 lablgtk3.cmxa hello_world.ml -o hello_world

hello_world.ml

let main () =
  GMain.init ();
  let hello = GWindow.message_dialog ~message:"Hello world!" ~message_type:`INFO ~buttons:GWindow.Buttons.ok () in
    hello#set_secondary_text("This is an example dialog.");
    hello#run ()

let _ = main ()

Pascal

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: fpc, Gtk+3.0 bindings
• ビルド: fpc hello_world

hello_world.pas

program	hello_world;
uses	Math, Gtk3;
var	dialog: PGtkWidget;
begin
	SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
	gtk_init(@argc, @argv);
	dialog := gtk_message_dialog_new(nil, GTK_DIALOG_MODAL, GTK_MESSAGE_INFO, GTK_BUTTONS_OK, '%s', ['Hello world!']);
	gtk_message_dialog_format_secondary_text(PGtkMessageDialog(dialog), '%s', ['This is an example dialog.']);
	gtk_dialog_run(PGtkDialog(dialog));
end.

Perl

• 依存パッケージ: perl-gtk3

hello_world.pl

#!/usr/bin/perl
use Gtk3 -init;
my $hello = Gtk3::MessageDialog->new (undef, 'modal', 'info', 'ok', "Hello world!");
$hello->set ('secondary-text' => 'This is an example dialog.');
$hello->run;

Prolog

• 依存パッケージ: plgi^AUR
• 実行: swipl hello_world.pl

hello_world.pl

:- use_module(library(plgi)).
:- plgi_use_namespace('Gtk').

main :-
	g_object_new('GtkMessageDialog',
	             ['message-type'='GTK_MESSAGE_INFO',
	              'buttons'='GTK_BUTTONS_OK',
	              'text'='Hello world!',
	              'secondary-text'='This is an example dialog.'],
	             Dialog),
	gtk_dialog_run(Dialog, _),
	halt.
:- main.

Python

• 依存パッケージ: gtk3, python-gobject (Python 2 の場合 python2-gobject)

hello_world.py

#!/usr/bin/env python
import gi
gi.require_version('Gtk', '3.0')
from gi.repository import Gtk
Gtk.init(None)
Hello=Gtk.MessageDialog(None, Gtk.DialogFlags.MODAL, Gtk.MessageType.INFO, Gtk.ButtonsType.OK, "Hello world!")
Hello.format_secondary_text("This is an example dialog.")
Hello.run()

Ruby

• 依存パッケージ: gtk3, ruby-gir_ffi-gtk^AUR

hello_world.rb

#!/usr/bin/env ruby
require 'gir_ffi-gtk3'
Gtk.init
Hello = Gtk::MessageDialog.new nil, :modal, :info, :ok, "Hello world!"
Hello.secondary_text = "This is an example dialog."
Hello.run

• 依存パッケージ: ruby-gtk3

hello_world.rb

#!/usr/bin/env ruby
require 'gtk3'
Gtk.init
Hello = Gtk::MessageDialog.new(:type => :info,
                               :buttons_type => :ok,
                               :message => "Hello world!")
Hello.secondary_text = "This is an example dialog."
Hello.run

Rust

Gtk-rs を使用。

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: rust
• ビルド: cargo build
• 実行: target/debug/hello_world または cargo run

Cargo.toml

[package]
name = "hello_world"
version = "0.1.0"

[dependencies]
gtk = "^0"

src/main.rs

extern crate gtk;
use gtk::prelude::*;
use gtk::{ButtonsType, DialogFlags, MessageType, MessageDialog, Window};

fn main() {
    let _ = gtk::init();
    MessageDialog::new(None::<&Window>,
                       DialogFlags::empty(),
                       MessageType::Info,
                       ButtonsType::Ok,
                       "Hello world!").run();
}

Scala

• 依存パッケージ: java-gnome^AUR (scala)
• ビルドするのに必要なパッケージ: scala
• ビルド: scalac -cp /usr/share/java/gtk.jar -d HelloWorld.jar HelloWorld.scala
• 実行: java -cp /usr/share/java/gtk.jar:HelloWorld.jar HelloWorld または scala -cp /usr/share/java/gtk.jar HelloWorld.scala

HelloWorld.scala

import org.gnome.gtk._
 
object HelloWorld {
  def main(args: Array[String]) {
    Gtk.init(args)
    var hello = new InfoMessageDialog(null, "Hello world!", "This is an example dialog.")
    hello.run()
  }
}

Vala

• 依存パッケージ: gtk3
• ビルドするのに必要なパッケージ: vala
• ビルド: valac --pkg gtk+-3.0 hello_world.vala

hello_world.vala

using Gtk;
public class HelloWorld {
	static void main (string[] args) {
		Gtk.init (ref args);
		var Hello=new MessageDialog (null, Gtk.DialogFlags.MODAL, Gtk.MessageType.INFO, Gtk.ButtonsType.OK, "Hello world!");
		Hello.format_secondary_text ("This is an example dialog.");
		Hello.run ();
	}
}

Visual Basic

• 依存パッケージ: gtk-sharp-3
• ビルドするのに必要なパッケージ: mono-basic^AUR
• ビルド: vbnc -r:/usr/lib/mono/gtk-sharp-3.0/gtk-sharp.dll hello_world.vb
• 実行: mono hello_world.exe

hello_world.vb

Imports Gtk
Public Class Hello
	Inherits MessageDialog
	Public Sub New
		MyBase.New(Me, DialogFlags.Modal, MessageType.Info, ButtonsType.Close, "Hello world!")
		Me.SecondaryText = "This is an example dialog."
	End Sub
	Public Shared Sub Main
		Application.Init
		Dim Dialog As New Hello
		Dialog.Run
	End Sub
End Class

参照

• GNOME Developer Center
• GTK 3 リファレンスマニュアル
• gtkmm 3 チュートリアル