[wxCL-cvs] SF.net SVN: wxcl: [511] trunk/wxcl/src/app.lisp
Status: Alpha
Brought to you by:
efuzzyone
From: <efu...@us...> - 2006-07-04 08:00:29
|
Revision: 511 Author: efuzzyone Date: 2006-07-04 01:00:16 -0700 (Tue, 04 Jul 2006) ViewCVS: http://svn.sourceforge.net/wxcl/?rev=511&view=rev Log Message: ----------- depending on cffi to load the library Modified Paths: -------------- trunk/wxcl/src/app.lisp Modified: trunk/wxcl/src/app.lisp =================================================================== --- trunk/wxcl/src/app.lisp 2006-07-04 07:58:26 UTC (rev 510) +++ trunk/wxcl/src/app.lisp 2006-07-04 08:00:16 UTC (rev 511) @@ -31,15 +31,12 @@ (defvar *events-counter* 0) (defun start-app (init-func) + (setf *app-start-func* init-func + *events-table* nil + *events-counter* 0) (unwind-protect - (progn - (cffi:load-foreign-library +library-name+) - (setf *app-start-func* init-func - *events-table* nil - *events-counter* 0) - (ELJApp_InitializeC (wxClosure_Create (cffi:callback initialize-wxcl) *events-counter*) - 0 (cffi:null-pointer))) - (cffi::close-foreign-library +library-name+))) + (ELJApp_InitializeC (wxClosure_Create (cffi:callback initialize-wxcl) *events-counter*) + 0 (cffi:null-pointer)))) (cffi:defcallback initialize-wxcl :void ((evt :pointer) (wxcl-event-id :unsigned-int)) ; (initialize-objects *function-list*) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |