/[gtk-cffi]/gtk-cffi/examples/ex5.lisp
ViewVC logotype

Contents of /gtk-cffi/examples/ex5.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Sun Oct 7 12:02:11 2012 UTC (18 months, 2 weeks ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +1 -1 lines
Fixed examples. Changed cell properties for tree-column to be set as :attributes
Fixed double init in g-value.
1 (asdf:oos 'asdf:load-op :gtk-cffi)
2
3 (defpackage #:test
4 (:use #:common-lisp #:gtk-cffi #:g-object-cffi))
5 (in-package #:test)
6
7 (gtk-init)
8
9 (let ((window (make-instance 'window)))
10
11 (setf (gsignal window :destroy) :gtk-main-quit
12 (size-request window) '(400 150))
13
14
15 (setf (bg-pixmap window) "/usr/share/pixmaps/gnome-about-logo.png")
16
17 (show window))
18
19 (gtk-main)

  ViewVC Help
Powered by ViewVC 1.1.5