/[gtk-cffi]/gtk-cffi/gdk/threads.lisp
ViewVC logotype

Contents of /gtk-cffi/gdk/threads.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Mon Apr 25 19:16:07 2011 UTC (2 years, 11 months ago) by rklochkov
Branch: slavsoft, MAIN
CVS Tags: initial, HEAD
Changes since 1.1: +0 -0 lines

Initial release
1 (in-package :gdk-cffi)
2
3 (defcfun "gdk_threads_enter" :void)
4 (defcfun "gdk_threads_leave" :void)
5
6 (defmacro with-threads (&rest body)
7 `(unwind-protect
8 (progn
9 (gdk-threads-enter)
10 ,@body)
11 (gdk-threads-leave)))

  ViewVC Help
Powered by ViewVC 1.1.5