(defpackage :fwoar.stack-view
  (:use :cl )
  (:export ))
(in-package :fwoar.stack-view)
(named-readtables:in-readtable :objc-readtable)

(cffi:defcstruct ns-edge-insets 
  (top :double)
  (left :double)
  (bottom :double)
  (right :double))

(cffi:defcfun (make-edge-insets "NSEdgeInsetsMake")
    (:struct ns-edge-insets)
  (top :double)
  (left :double)
  (bottom :double)
  (right :double))

(cffi:defcfun (%set-edge-insets "objc_msgSend")
    :void
  (cls objc-runtime::o-class)
  (sel objc-runtime::o-selector)
  (value (:struct ns-edge-insets)))

(defun set-edge-insets (stack-view top right bottom left)
  (%set-edge-insets stack-view
                    @(setEdgeInsets:)
                    (list 'top (coerce top 'double-float)
                          'left (coerce left 'double-float)
                          'bottom (coerce bottom 'double-float)
                          'right (coerce right 'double-float))))

(defun add-view-to-stack (stack-view child)
  [stack-view @(addView:inGravity:) :pointer child :int 1])