From 694de3fb70b9259f0b3d534fd098118f07a6defa Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Fri, 1 Aug 2008 14:33:20 -0500 Subject: [PATCH] listener: Use color objects --- basis/listener/listener.factor | 5 +++-- extra/colors/colors.factor | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor index 5ff5830e7a..feddbdc042 100755 --- a/basis/listener/listener.factor +++ b/basis/listener/listener.factor @@ -3,7 +3,8 @@ USING: arrays hashtables io kernel math math.parser memory namespaces parser lexer sequences strings io.styles vectors words generic system combinators continuations debugger -definitions compiler.units accessors ; +definitions compiler.units accessors colors ; + IN: listener SYMBOL: quit-flag @@ -41,7 +42,7 @@ M: object stream-read-quot : prompt. ( -- ) "( " in get " )" 3append - H{ { background { 1 0.7 0.7 1 } } } format bl flush ; + H{ { background T{ rgba f 1 0.7 0.7 1 } } } format bl flush ; SYMBOL: error-hook diff --git a/extra/colors/colors.factor b/extra/colors/colors.factor index ae3695cf8b..f88fe6eb05 100644 --- a/extra/colors/colors.factor +++ b/extra/colors/colors.factor @@ -27,7 +27,7 @@ M: hsva >rgba ( hsva -- rgba ) M: gray >rgba ( gray -- rgba ) [ gray>> dup dup ] [ alpha>> ] bi rgba boa ; -M: array >rgba ( array -- rgba ) first4 rgba boa ; +! M: array >rgba ( array -- rgba ) first4 rgba boa ; M: color red>> ( color -- red ) >rgba red>> ; M: color green>> ( color -- green ) >rgba green>> ;