Permalink
Browse files

Updated the highlight colors to something more reasonable.

  • Loading branch information...
macourtney committed Aug 3, 2011
1 parent 5b6ac14 commit bf5c9ac888804d138dd8409a151426451ce588a5
@@ -3,6 +3,7 @@
[darkexchange.controller.actions.utils :as action-utils]
[darkexchange.controller.trade.view :as view-trade]
[darkexchange.controller.widgets.utils :as widgets-utils]
+ [darkexchange.controller.utils :as controller-utils]
[darkexchange.model.trade :as trade-model]
[darkexchange.model.trade-message :as trade-message-model]
[darkexchange.model.user :as user-model]
@@ -13,8 +14,8 @@
[javax.swing JLabel]
[javax.swing.table TableCellRenderer]))
-(def requires-action-color Color/YELLOW)
-(def unseen-message-color Color/CYAN)
+(def requires-action-color controller-utils/yellow-highlight)
+(def unseen-message-color controller-utils/turquoise-highlight)
(defn find-open-trade-table [main-frame]
(seesaw-core/select main-frame ["#open-trade-table"]))
@@ -21,8 +21,8 @@
[java.awt.event WindowListener]
[javax.swing.table TableCellRenderer]))
-(def my-message-color Color/LIGHT_GRAY)
-(def unviewed-message-color Color/CYAN)
+(def my-message-color controller-utils/gray-highlight)
+(def unviewed-message-color controller-utils/turquoise-highlight)
(defn load-data-label
([trade parent-component trade-key label-key] (load-data-label (trade-key trade) parent-component label-key))
@@ -2,9 +2,14 @@
(:require [clojure.contrib.logging :as logging]
[seesaw.core :as seesaw-core]
[seesaw.table :as seesaw-table])
- (:import [java.awt.event ItemListener]
+ (:import [java.awt Color]
+ [java.awt.event ItemListener]
[javax.swing JComponent]))
+(def yellow-highlight (Color. (float 1) (float 1) (float 0.6)))
+(def turquoise-highlight (Color. (float 0.7) (float 1) (float 1)))
+(def gray-highlight (Color. (float 0.92) (float 0.92) (float 0.92)))
+
(defn find-component [parent-component id]
(seesaw-core/select parent-component [id]))

0 comments on commit bf5c9ac

Please sign in to comment.