/[gtk-cffi]/gtk-cffi/examples/ex1-new.lisp
ViewVC logotype

Diff of /gtk-cffi/examples/ex1-new.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by rklochkov, Mon Apr 25 19:16:08 2011 UTC revision 1.2 by rklochkov, Fri Aug 26 17:16:13 2011 UTC
# Line 5  Line 5 
5  (in-package #:test-ex1n)  (in-package #:test-ex1n)
6    
7  (gtk-init)  (gtk-init)
8  (defvar *window*  (defparameter *window*
9    (gtk-model    (gtk-model
10     'window :width 80     'window :width 80
11             :title "Hello world!"             :title "Hello world!"
12             :signals '(:destroy :gtk-main-quit)             :signals `(:destroy
13                          :gtk-main-quit
14                          :enter-notify-event
15                          ,(lambda (widget event)
16                            (declare (ignore widget event))
17                            (format t "Entered~%")))
18     ('button :label "Hello!"     ('button :label "Hello!"
19              :signals (list :clicked              :signals (list :clicked
20                             (let ((count 0))                             (let ((count 0))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5