Source

hyperbole / hui-em19-b.el

Diff from to

hui-em19-b.el

 ;;; ************************************************************************
 
 (defconst hproperty:color-list
-  (if (eq window-system 'x)
+  (if (memq window-system '(x gtk)) 
       '( "red" "blue" "paleturquoise4" "mediumpurple2"
 "lightskyblue3" "springgreen2" "salmon" "yellowgreen" "darkorchid2"
 "aquamarine4" "slateblue4" "slateblue1" "olivedrab1" "goldenrod4"
   "Pointer to current color name table to use for Hyperbole buttons.")
 
 (defconst hproperty:good-colors
-  (if (eq window-system 'x)
+  (if (memq window-system '(x gtk))
       '(
 	"medium violet red" "indianred4" "firebrick1" "DarkGoldenrod"
 	"NavyBlue" "darkorchid" "tomato3" "mediumseagreen" "deeppink"