should set window icon for windows.
This commit is contained in:
@@ -1,10 +1,10 @@
|
||||
(ns advent.core.desktop-launcher
|
||||
(:require [advent.core :refer :all]
|
||||
[advent.utils :as utils]
|
||||
)
|
||||
[play-clj.core :refer :all])
|
||||
(:import [com.badlogic.gdx.backends.lwjgl LwjglApplication LwjglApplicationConfiguration]
|
||||
[org.lwjgl.input Keyboard]
|
||||
[com.badlogic.gdx Gdx])
|
||||
[com.badlogic.gdx Gdx Files$FileType])
|
||||
(:gen-class))
|
||||
|
||||
|
||||
@@ -27,6 +27,11 @@
|
||||
(catch Exception e#))))
|
||||
|
||||
(let [cfg (LwjglApplicationConfiguration.)]
|
||||
#_(println (.exists (files! :classpath "icon/icon_128x128.png")))
|
||||
(.addIcon cfg "icon/icon_128x128.png" Files$FileType/Classpath)
|
||||
(.addIcon cfg "icon/icon_32x32.png" Files$FileType/Classpath)
|
||||
(.addIcon cfg "icon/icon_16x16.png" Files$FileType/Classpath)
|
||||
|
||||
(if false
|
||||
(do
|
||||
(set! (.width cfg) (doto (.width (LwjglApplicationConfiguration/getDesktopDisplayMode)) println))
|
||||
|
||||
Reference in New Issue
Block a user