#!/usr/bin/env lisp
;;;
;;; generated by wxGlade
;;;

(asdf:operate 'asdf:load-op 'wxcl)
(use-package "FFI")
(ffi:default-foreign-language :stdc)


;;; begin wxGlade: dependencies
(use-package :wxCL)
(use-package :wxCheckListBox)
(use-package :wxColour)
(use-package :wxEvent)
(use-package :wxEvtHandler)
(use-package :wxFrame)
(use-package :wxListBox)
(use-package :wxSizer)
(use-package :wxWindow)
(use-package :wx_main)
(use-package :wx_wrapper)
;;; end wxGlade

;;; begin wxGlade: extracode
;;; end wxGlade


(defclass Frame194()
        ((top-window :initform nil :accessor slot-top-window)
        (sizer-1 :initform nil :accessor slot-sizer-1)
        (list-box-single :initform nil :accessor slot-list-box-single)
        (list-box-multiple :initform nil :accessor slot-list-box-multiple)
        (list-box-extended :initform nil :accessor slot-list-box-extended)
        (check-list-box-single :initform nil :accessor slot-check-list-box-single)
        (check-list-box-multiple :initform nil :accessor slot-check-list-box-multiple)
        (check-list-box-extended :initform nil :accessor slot-check-list-box-extended)))

(defun make-Frame194 ()
        (let ((obj (make-instance 'Frame194)))
          (init obj)
          (set-properties obj)
          (do-layout obj)
          obj))

(defmethod init ((obj Frame194))
"Method creates the objects contained in the class."
        ;;; begin wxGlade: Frame194.__init__
        (slot-top-window obj).wxWindow_SetSize((800, 600))
        (wxFrame_SetTitle (slot-top-window obj) (_"frame_1"))
        
        (setf (slot-sizer-1 obj) (wxGridSizer_Create 2 3 0 0))
        
        (setf (slot-list-box-single obj) (wxListBox_Create (slot-top-window obj) wxID_ANY -1 -1 -1 -1 1 (vector (_"Listbox wxLB_SINGLE")) wxLB_SINGLE))
        (wxListBox_SetSelection (slot-list-box-single obj) 0)
        (wxSizer_AddWindow (slot-sizer-1 obj) (slot-list-box-single obj) 1 (logior wxALL wxEXPAND) 5 nil)
        
        (setf (slot-list-box-multiple obj) (wxListBox_Create (slot-top-window obj) wxID_ANY -1 -1 -1 -1 1 (vector (_"Listbox wxLB_MULTIPLE")) wxLB_MULTIPLE))
        (wxListBox_SetSelection (slot-list-box-multiple obj) 0)
        (wxSizer_AddWindow (slot-sizer-1 obj) (slot-list-box-multiple obj) 1 (logior wxALL wxEXPAND) 5 nil)
        
        (setf (slot-list-box-extended obj) (wxListBox_Create (slot-top-window obj) wxID_ANY -1 -1 -1 -1 1 (vector (_"Listbox wxLB_EXTENDED")) wxLB_EXTENDED))
        (wxListBox_SetSelection (slot-list-box-extended obj) 0)
        (wxSizer_AddWindow (slot-sizer-1 obj) (slot-list-box-extended obj) 1 (logior wxALL wxEXPAND) 5 nil)
        
        (setf (slot-check-list-box-single obj) (wxCheckListBox_Create (slot-top-window obj) wxID_ANY -1 -1 -1 -1 1 (vector (_"CheckListBox wxLB_SINGLE")) wxLB_SINGLE))
        (wxCheckListBox_SetSelection (slot-check-list-box-single obj) 0)
        (wxSizer_AddWindow (slot-sizer-1 obj) (slot-check-list-box-single obj) 1 (logior wxALL wxEXPAND) 5 nil)
        
        (setf (slot-check-list-box-multiple obj) (wxCheckListBox_Create (slot-top-window obj) wxID_ANY -1 -1 -1 -1 1 (vector (_"CheckListBox wxLB_MULTIPLE")) wxLB_MULTIPLE))
        (wxCheckListBox_SetSelection (slot-check-list-box-multiple obj) 0)
        (wxSizer_AddWindow (slot-sizer-1 obj) (slot-check-list-box-multiple obj) 1 (logior wxALL wxEXPAND) 5 nil)
        
        (setf (slot-check-list-box-extended obj) (wxCheckListBox_Create (slot-top-window obj) wxID_ANY -1 -1 -1 -1 1 (vector (_"CheckListBox wxLB_EXTENDED")) wxLB_EXTENDED))
        (wxCheckListBox_SetSelection (slot-check-list-box-extended obj) 0)
        (wxSizer_AddWindow (slot-sizer-1 obj) (slot-check-list-box-extended obj) 1 (logior wxALL wxEXPAND) 5 nil)
        
        (wxWindow_SetSizer (slot-frame obj) (slot-sizer-1 obj))
        
        (wxFrame_layout (slot-Bug194-Frame self))
        ;;; end wxGlade
        )

;;; end of class Frame194


(defun init-func (fun data evt)
        (let ((Bug194-Frame (make-Frame194)))
        (ELJApp_SetTopWindow (slot-top-window Bug194-Frame))
        (wxWindow_Show (slot-top-window Bug194-Frame))))
;;; end of class MyApp

    (setf (textdomain) "app") ;; replace with the appropriate catalog name
    (defun _ (msgid) (gettext msgid "app"))


(unwind-protect
    (Eljapp_initializeC (wxclosure_Create #'init-func nil) 0 nil)
    (ffi:close-foreign-library "../miscellaneous/wxc-msw2.6.2.dll"))
