「GTK/開発」の版間の差分

削除された内容追加された内容

ビジュアルウィキテキスト

インライン

2023年9月2日 (土) 21:20時点における最新版

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

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

参照