CL-GTK2 Tutorial

Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>

CL-GTK2 is in alpha stage and is unstable and not feature-complete. It is being developed on x86-64 gentoo linux with SBCL. It should, in general, work with other lisp compilers and on other platforms. CL-GTK2 requires some features not present in the Common Lisp Standard, namely it requires CFFI support with callbacks and long-long support (most modern lisp implementations are supported, including clisp) and it requires CLOS MOP (MetaObject Protocol) which is also is present (or is being added to) most modern lisp implementations.

CL-GTK2 requires Gtk+ version 2.16 or later. CL-GTK2 was tested on SBCL-1.0.18 and SBCL-1.0.28

If you have any difficulties installing or using CL-GTK2, contact me (the author of this tutorial and of CL-GTK2) via email Kalyanov.Dmitry@gmail.com or via jabber mo3r@jabber.ru.

First, install CL-GTK2 dependencies. CL-GTK2 has the following dependencies (CL-GTK2 was tested with specified versions; it would probably not work with earlier versions but should work with later versions):

1. CFFI (version >= 0.10.4)
2. Trivial-Garbage (version >= 0.18)
3. Iterate (version >= 1.4.3)
4. Bordeaux-Threads (version >= 0.6.0)
5. Closer-MOP (version >= 0.55)
6. cl-opengl (if you intend to use cl-gtk2-gtkglext)
7. cl-cairo2 (if you intend to use cl-gtk2-cairo)

CL-GTK2 requires Gtk+ version >= 2.16.

At first, source code should be downloaded. Current version of CL-GTK2 can be downloaded from http://common-lisp.net/project/cl-gtk2/files/cl-gtk2-0.1.1.tar.gz.

git clone git://repo.or.cz/cl-gtk2.git

git clone git://github.com/dmitryvk/cl-gtk2.git

Unpack the CL-GTK2 sources, and add them to asdf:*central-registry*:

(push "/path/to/cl-gtk2/glib/" asdf:*central-registry*)
(push "/path/to/cl-gtk2/pango/" asdf:*central-registry*)
(push "/path/to/cl-gtk2/gdk/" asdf:*central-registry*)
(push "/path/to/cl-gtk2/gtk/" asdf:*central-registry*)
(push "/path/to/cl-gtk2/gtk-glext/" asdf:*central-registry*)
(push "/path/to/cl-gtk2/cairo/" asdf:*central-registry*)

or create symlinks:

cd ~/.sbcl/systems      # or other directory in asdf:*central-registry*
ln -s /path/to/cl-gtk2/glib/cl-gtk2-glib.asd .
ln -s /path/to/cl-gtk2/pango/cl-gtk2-pango.asd .
ln -s /path/to/cl-gtk2/gdk/cl-gtk2-gdk.asd .
ln -s /path/to/cl-gtk2/gtk/cl-gtk2-gtk.asd .
ln -s /path/to/cl-gtk2/gtkglext/cl-gtk2-gtkglext.asd .
ln -s /path/to/cl-gtk2/cairo/cl-gtk2-cairo.asd .

In Gentoo Linux, it is possible to use layman (see Gentoo Overlays Users' Guide) to add lisp and cl-gtk2 overlays that contains neccessary ebuilds:

layman -a lisp
layman --overlays=http://github.com/dmitryvk/cl-gtk2-overlay/raw/master/layman-list.xml -a cl-gtk2
emerge cl-gtk2

Now you should be able to load the CL-GTK2 system:

(asdf:operate 'asdf:load-op :cl-gtk2-gtk)

When the system is loaded, run (gtk-demo:demo-text-editor). A text editor window should pop up.

This is a very simple text editor written in CL-GTK2. Apart from editing the text, it can evaluate expressions: select expression and press the "execute" button. Expression will be evaluated and its result will be put into text view.

Let's start from a simple example.

Start Slime, type the following code in the REPL:

(asdf:operate 'asdf:load-op :cl-gtk2-gtk)

(gtk:within-main-loop
  (let ((window (make-instance 'gtk:gtk-window :title "Hello, world!")))
    (gtk:widget-show window)))

The empty window with title "Hello, world!" should appear.

Let's analyze this example line-by-line.

(asdf:operate 'asdf:load-op :cl-gtk2-gtk) loads the GTK system into Lisp.

CL-GTK2 runs Gtk+ main loop in background thread (because Lisp development is interactive in its nature; if main loop would block the REPL thread, you would have to restart the Lisp image too often). Because all access to Gtk+ should come from Gtk+ thread, we should run the code in that thread. Macro gtk:within-main-loop does exactly that: it schedules the code to be tun in the Gtk+ thread. You should use this macro whenever you want evaluate the code from the REPL or when you start you application.

Next, we create the window with make-instance and set its title property to "Hello, world!".

When the window is created, it is not yet shown on the screen. To show it, we call (gtk:widget-show window).

After this code executes, you should get back to the REPL (rememer, Gtk+ runs in background thread) and the window should appear on the screen.

CL-GTK2 runs the Gtk main loop in background thread. This is done so you could have your application running and interacting with the Lisp system through the REPL.

To execute some code and ensure that Gtk+ main loop is started, WITH-MAIN-LOOP macro is used. It runs the body of code within the Gtk+ main loop. Because all calls to Gtk+ functions require locking, it is neccessary to run this code from th main loop. Because we are running the code in another thread, its dynamic bindings (including *standard-output*) will be lost. To be able to print at REPL, we save reference to the standard output stream in the closure.

Gtk+ objects are created with make-instance and are properly garbage-collected.

Object have properties, which are represented as slots in CL-GTK2. Some properties (slots) of objects are constructor-only properties and can only be set at object construction time. For example, "type" property of GtkWindow can only be set during its creation. To access properties, you may use slot-value function or slot accessor methods. For property Y declared on class X, method X-Y returns the value of the property. Properties are setfable (with exception of read-only and constructor-only properties).

Call to container-add puts button as a child widget into window, and widget-show shows all widgets of window.

In Gtk+, objects have "signals", to which handlers can be attached. When something happens that results in "emitting" the signal (e.g., button being clicked emits "clicked" signal), all handlers of this signal are called. Handler of GtkButton's "clicked" signal has only one argument - the button that was clicked. CL-GTK2 allows attaching any function (including closures) as signal handlers and ensures that closure is freed properly.

GObject

Overview

GObject is an object system that is at the core of Gtk+. GObject provides:

• Objects.
• Classes. Classes define which properties, methods and signals are present in instances of this class and how are they implementation. Classes are grouped into single-inheritance hierarchy. Classes implement zero or more interfaces.
• Interfaces. Interfaces, like classes, define which properties, methods and signals are present in instances of classes that implement this interface but does not specify their implementation.
• Properties. Properties are attributes of objects that have type and can be read or set. Classes provide implementation of getter and setter procedures. Properties may be readable, writable. Some of properties may only be set at object construction time.
• Signals. Signals and callbacks are used to connect event handling code with code that notifies about events.
• Memory management. Objects can be created and destroyed. Memory is managed with reference counting.

Defining GObject classes

G-OBJECT-CLASS metaclass is used to define classes corresponding to GObject classes. G-OBJECT is base class for all classes corresponding to GObject classes.

G-OBJECT-CLASS uses :G-TYPE-NAME option (mandatory) and :G-TYPE-INITIALIZER option (optionally). :G-TYPE-NAME option specifies the GObject class type name that corresponds to the class. :G-TYPE-INITIALIZER specifies the function name that returns the GType of the class.

Classes of G-OBJECT-CLASS metaclass may have regular slots and GObject slots. Such slots correspond to GObject properties. Slot with :ALLOCATION of :GOBJECT-PROPERTY is a GObject slot. Such slot should have :G-PROPERTY-NAME option that specifies the name of the property to which this slot corresponds. :G-PROPERTY-TYPE option may also be used to specify the type of the property. All other properties may be specified, including :ACCESSOR and :INITARG.

G-OBJECT-CLASS metaclass provides slot accessors for GObject slots that read and write corresponding properties of objects.

To define a GObject class, defclass form is used:

(defclass widget (gtk-objetc atk-implementor-iface buildable)
  ((name :allocation :gobject-property
         :g-property-name "name"
         :g-property-type "gchararray"
         :accessor widget-name :initarg :name)
   (parent :allocation :gobject-property
           :g-property-name "parent"
           :g-property-type "GtkContainer"
           :accessor widget-parent
           :initarg :parent)
   ...)
  (:metaclass gobject-class)
  (:g-type-name . "GtkWidget")
  (:g-type-initializer . "gtk_widget_get_type"))

Using GObject classes

Except defining, GObject classes are used as CLOS classes:

• Created with MAKE-INSTANCE, and :INITARGS for slots may be specified.

  (make-instance 'gtk:label :label "Button 1")

• Slots are accessed with SLOT-VALUE and accessors:

  (slot-value l 'label)
        (setf (slot-value l 'label) "Button 2")
        (label-label l)
        (setf (label-label l) "Button 2")

(connect-signal button "clicked" (lambda (button) (format t "Button ~A was clicked~%" button))

(emit-signal button "clicked" button)

(defvar *window*)
(within-main-loop (setf *window* (make-instance 'gtk-window)))
(within-main-loop (container-add *window* (make-instance 'label :label "Hello, world!" :use-markup t)))
(within-main-loop (widget-show *window*))

(defun run ()
  (within-main-loop
    (let ((window (make-instance 'gtk-window :title "Hello, world!"
                                             :type :toplevel
                                             :default-width 300
                                             :default-height 300))
      (widget-show window)))))

(defun run ()
  (within-main-loop
    (let ((window (make-instance 'gtk-window)))
      (g-signal-connect window "delete-event"
                        (lambda (window event)
                          (declare (ignore window event))
                          (gtk-main-quit)))
      (widget-show window))))

(run)
(join-main-loop)