        (Display/setDisplayMode (DisplayMode. screen-width screen-height))
        (Display/setTitle title)
        (when icon-array
-         (Display/setIcon icon-array))
+         (log/info "Setting icons")
+         (Display/setIcon icon-array)
+         (Thread/sleep 100))
        (Display/create pixel-format context-attributes)
        (Keyboard/create)
        (Mouse/create)

      [id texture-id])))
        
(defn png-bytes [path]
  (let [input-stream (FileInputStream. (str path))
        decoder (PNGDecoder. input-stream)
        width (.getWidth decoder)
        height (.getHeight decoder)
        bytebuf (ByteBuffer/allocateDirect (* width height 4))]
    (.decode decoder bytebuf (* width 4) PNGDecoder$Format/RGBA)
    (.flip bytebuf)
    (.close input-stream)
    bytebuf))

;; Extract native libs and setup system properties
(defn init-natives []

          (loop-with-index col [c line]
            (let [chr        (or (get c :fx-character) (get c :character))
                  chr        (if (and (= layer-id base-layer-id)
                                      (char? chr)
                                      (= (char chr) (char 0)))
                                 \space
                                 chr)
                  highlight  (= @cursor-xy [col (- rows row 1)])
