#!/usr/bin/env lisp ;;; ;;; generated by wxGlade "faked test version" ;;; ;;; This is an automatically generated file. ;;; Manual changes will be overwritten without warning! (asdf:operate 'asdf:load-op 'wxcl) (use-package "FFI") (ffi:default-foreign-language :stdc) (require "MyAppFrame") (defun init-func (fun data evt) (let ((appframe (make-MyAppFrame))) (ELJApp_SetTopWindow (slot-top-window appframe)) (wxWindow_Show (slot-top-window appframe)))) ;;; end of class MyStartApp (setf (textdomain) "myapp") ;; replace with the appropriate catalog name (defun _ (msgid) (gettext msgid "myapp")) (unwind-protect (Eljapp_initializeC (wxclosure_Create #'init-func nil) 0 nil) (ffi:close-foreign-library "../miscellaneous/wxc-msw2.6.2.dll"))