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

ui.gadgets.tabs: Fixed error; irc.ui.commands: Added /me

db4
U-WSCHLIEP-PC\wschliep 2008-11-22 23:11:44 -05:00
parent 4e0292c3ed
commit 72de2ff4fa
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/irc/ui/commands/commands.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2008 William Schlieper ! Copyright (C) 2008 William Schlieper
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel arrays irc.client irc.messages irc.ui namespaces ; USING: accessors kernel sequences arrays irc.client
irc.messages irc.ui namespaces ;
IN: irc.ui.commands IN: irc.ui.commands
@ -10,6 +11,9 @@ IN: irc.ui.commands
[ window>> client>> profile>> nickname>> <own-message> print-irc ] [ window>> client>> profile>> nickname>> <own-message> print-irc ]
[ chat>> speak ] 2bi ; [ chat>> speak ] 2bi ;
: me ( string -- ) ! Placeholder until I make /me look different
"ACTION " 1 prefix prepend 1 suffix say ;
: join ( string -- ) : join ( string -- )
irc-tab get window>> join-channel ; irc-tab get window>> join-channel ;

10
extra/ui/gadgets/tabs/tabs.factor
View File

@ -12,9 +12,9 @@ TUPLE: tabbed < frame names toggler content ;
DEFER: (del-page) DEFER: (del-page)
:: add-toggle ( model n name toggler -- ) :: add-toggle ( n name model toggler -- )
<frame> <frame>
n name toggler parent>> '[ _ _ _ (del-page) ] "X" swap <bevel-button> n name toggler parent>> '[ drop _ _ _ (del-page) ] "X" swap <bevel-button>
@right grid-add @right grid-add
n model name <toggle-button> @center grid-add n model name <toggle-button> @center grid-add
toggler swap add-gadget drop ; toggler swap add-gadget drop ;
@ -23,7 +23,7 @@ DEFER: (del-page)
[ names>> ] [ model>> ] [ toggler>> ] tri [ names>> ] [ model>> ] [ toggler>> ] tri
[ clear-gadget ] keep [ clear-gadget ] keep
[ [ length ] keep ] 2dip [ [ length ] keep ] 2dip
'[ [ _ ] 2dip _ add-toggle ] 2each ; '[ _ _ add-toggle ] 2each ;
: refresh-book ( tabbed -- ) : refresh-book ( tabbed -- )
model>> [ ] change-model ; model>> [ ] change-model ;
@ -39,8 +39,8 @@ DEFER: (del-page)
: add-page ( page name tabbed -- ) : add-page ( page name tabbed -- )
[ names>> push ] 2keep [ names>> push ] 2keep
[ [ model>> swap ] [ [ names>> length 1 - swap ]
[ names>> length 1 - swap ] [ model>> ]
[ toggler>> ] tri add-toggle ] [ toggler>> ] tri add-toggle ]
[ content>> swap add-gadget drop ] [ content>> swap add-gadget drop ]
[ refresh-book ] tri ; [ refresh-book ] tri ;