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

Diff of /gtk-cffi/examples/ex2.lisp

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

revision 1.4 by rklochkov, Sat Sep 10 16:26:10 2011 UTC revision 1.5 by rklochkov, Sat Dec 31 17:20:56 2011 UTC
# Line 41  Line 41 
41                                     (event :pointer)                                     (event :pointer)
42                                     (module gtk-string))                                     (module gtk-string))
43    (declare (ignore widget))    (declare (ignore widget))
44    (when (eq (gdk-cffi:parse-event event :keyval) :f12)    (when (eq (gdk-cffi:parse-event event :keyval) (gdk-cffi:key :f12))
45      (format t "~a~%" module)      (format t "~a~%" module)
46      (if (string= module "main")      (if (string= module "main")
47          (destroy (gethash "main" *apps*))          (destroy (gethash "main" *apps*))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5