#!/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 "LispOgg2_MyDialog") (defun init-func (fun data evt) (setf (textdomain) "LispOgg2_app") ;; replace with the appropriate catalog name (defun _ (msgid) (gettext msgid "LispOgg2_app")) (let ((Mp3-To-Ogg (make-LispOgg2_MyDialog))) (ELJApp_SetTopWindow (slot-top-window Mp3-To-Ogg)) (wxWindow_Show (slot-top-window Mp3-To-Ogg)))) (unwind-protect (Eljapp_initializeC (wxclosure_Create #'init-func nil) 0 nil) (ffi:close-foreign-library "../miscellaneous/wxc-msw2.6.2.dll"))