;;; generated by wxGlade 0.9.9pre on Sun Jul 19 13:03:42 2020
;;;

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


(use-package :my_grid.MyGrid)
(use-package :wxCL)
(use-package :wxColour)
(use-package :wxEvent)
(use-package :wxEvtHandler)
(use-package :wxFrame)
(use-package :wxSizer)
(use-package :wxWindow)
(use-package :wx_main)
(use-package :wx_wrapper)

import my_grid


(defclass TestGlade()
        ((top-window :initform nil :accessor slot-top-window)
        (main-sizer :initform nil :accessor slot-main-sizer)
        (grid :initform nil :accessor slot-grid)))

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

(defmethod init ((obj TestGlade))
"Method creates the objects contained in the class."
        
        (setf (slot-main-sizer obj) (wxBoxSizer_Create wxHORIZONTAL))
        
        (setf (slot-grid obj) (wxGrid_Create (slot-top-window obj) wxID_ANY -1 -1 -1 -1 wxWANTS_CHARS))
        (wxGrid_CreateGrid (slot-grid obj) 0 1 0)
        (wxGrid_SetRowLabelSize (slot-grid obj) 0)
        (wxGrid_SetColLabelSize (slot-grid obj) 0)
        (wxGrid_EnableEditing (slot-grid obj) 0)
        (wxGrid_EnableGridLines (slot-grid obj) 0)
        (wxGrid_EnableDragColSize (slot-grid obj) 0)
        (wxGrid_EnableDragRowSize (slot-grid obj) 0)
        (wxGrid_SetColLabelValue (slot-grid obj) 0 "")
        (wxSizer_AddWindow (slot-main-sizer obj) (slot-grid obj) 1 wxEXPAND 0 nil)
        
        (wxWindow_SetSizer (slot-top-window obj) (slot-main-sizer obj))
        (wxSizer_Fit (slot-main-sizer obj) (slot-top-window obj))
        
        (wxPanel_layout (slot-test-glade self))
        )



