steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorforge.org/git/william42

db4
Doug Coleman 2008-08-14 00:25:20 -05:00
parent a84404bc0d 7a701c9501
commit b26c526b90
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/irc/ui/ui.factor
View File

@ -123,8 +123,11 @@ M: irc-listener-end write-irc
M: irc-message write-irc M: irc-message write-irc
drop ; ! catch all unimplemented writes, THIS WILL CHANGE drop ; ! catch all unimplemented writes, THIS WILL CHANGE
: time-happened ( irc-message -- timestamp ) GENERIC: time-happened ( message -- timestamp )
[ timestamp>> ] [ 2drop now ] recover ;
M: irc-message time-happened timestamp>> ;
M: object time-happened drop now ;
: print-irc ( irc-message -- ) : print-irc ( irc-message -- )
[ time-happened timestamp>hms write " " write ] [ time-happened timestamp>hms write " " write ]
@ -188,7 +191,7 @@ M: irc-tab ungraft*
TUPLE: irc-channel-tab < irc-tab userlist ; TUPLE: irc-channel-tab < irc-tab userlist ;
: <irc-channel-tab> ( listener ui-window -- irc-tab ) : <irc-channel-tab> ( listener ui-window -- irc-tab )
irc-tab new-irc-tab irc-channel-tab new-irc-tab
<pile> [ <scroller> @right grid-add ] keep >>userlist ; <pile> [ <scroller> @right grid-add ] keep >>userlist ;
: update-participants ( tab -- ) : update-participants ( tab -- )