notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dialogue colors for each person.

Browse Source
This commit is contained in:
Bryce Covert
2014-12-16 12:17:49 -08:00
parent 6a8191f49a
commit 72d2b10574
10 changed files with 112 additions and 267 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
desktop/src-common/advent/screens/dialogue.clj
View File

@@ -84,7 +84,7 @@
choice-count (count choices)]
(-> entities
(into (for [[[text] i] (map vector choices (range))]
[i (assoc (label text (style :label font (color :white))) :height 30 :x 30 :y (+ 30 (* choice-height (- choice-count i 1))) :index i)]))
[i (assoc (label text (style :label font (color 0.6 1.0 1.0 1.0))) :height 30 :x 30 :y (+ 30 (* choice-height (- choice-count i 1))) :index i)]))
(assoc :state {:object nil :callback callback :choices choices :font font}))))
:on-touch-up (fn [screen [entities]]
@@ -102,7 +102,7 @@
:when (:object e)]
(if (intersects? e [x y])
(label! e :set-style (style :label (get-in entities [:state :font]) (color :yellow)))
(label! e :set-style (style :label (get-in entities [:state :font]) (color :white))))))))
(label! e :set-style (style :label (get-in entities [:state :font]) (color 0.6 1.0 1.0 1.0))))))))
:on-resize (fn [screen entities]
(size! screen 1280 960)))