Changeset 112 for widgets/chat.r

Timestamp:

12/31/07 22:18:08 (11 months ago)

Author:

ashley

Message:

Added pill.r
Scroller fixes
Major color / theme management changes (in progress)

Files:

• widgets/chat.r (modified) (8 diffs)

widgets/chat.r

@@ -18 +18 @@
         pane:   []
         data:   []
-        edge:   default-edge
+        edge:   outline-edge
         action: make default-action [
                 on-resize: make function! [face] [
@@ -56 +56 @@
                                 size:   as-pair t1 y
                                 text:   form any [row rows: rows + 1]
-                                color:  colors/btn-up
-                                edge:   make default-edge [size: 0x1]
-                                font:   make default-font-top [color: colors/btn-text align: 'center]
+                                color:  colors/theme-dark
+                                edge:   make outline-edge [size: 0x1]
+                                font:   default-font-heading
                         ]
                         make subface [
@@ -64 +64 @@
                                 size:   as-pair t2 - t1 y
                                 text:   user
-                                edge:   make default-edge [size: 0x1]
+                                edge:   make outline-edge [size: 0x1]
                                 font:   make default-font-top [color: either word? user-color [get user-color] [user-color] style: 'bold]
                         ]
@@ -73 +73 @@
                                 text:   form msg
                                 color:  either word? msg-color [get msg-color] [msg-color]
-                                edge:   make default-edge [size: 0x1]
+                                edge:   make outline-edge [size: 0x1]
                                 font:   default-font
                                 para:   default-para-wrap
@@ -82 +82 @@
                                 span:   all [p/span find p/span #W #X]
                                 text:   form either now/date = date/date [date/time] [date/date]
-                                edge:   make default-edge [size: 0x1]
+                                edge:   make outline-edge [size: 0x1]
                                 font:   default-font-top
                         ]
@@ -147 +147 @@
         ]
 
-        rebind: make function! [] [color: colors/widget]
-
         init:   make function! [/local p] [
                 p: self
@@ -157 +155 @@
                         span:   all [p/span find p/span #W #W]
                         pane:   []
-                        color:  colors/widget
                 ]
                 ;       heading
@@ -164 +161 @@
                         text:   "ID^-User^-Message^-Sent"
                         span:   all [p/span find p/span #W #W]
-                        color:  colors/btn-up
-                        font:   make default-font [color: colors/btn-text style: 'bold]
+                        color:  colors/theme-dark
+                        font:   make default-font [color: colors/page]
                         para:   make default-para [tabs: [0 0 0]]
                 ]