Fixed bug in ui.gadgets.tabs, irc.ui no longer uses delegation

db4
William Schlieper 2008-07-11 16:31:35 -04:00
parent 373a7adc6a
commit 45715f52a8
2 changed files with 3 additions and 3 deletions

View File

@ -82,10 +82,10 @@ M: irc-message write-irc
<scrolling-pane>
[ <pane-stream> swap display ] keep ;
TUPLE: irc-editor outstream listener client ;
TUPLE: irc-editor < editor outstream listener client ;
: <irc-editor> ( pane listener client -- editor )
[ <editor> irc-editor construct-editor
[ irc-editor new-editor
swap >>listener swap <pane-stream> >>outstream
] dip client>> >>client ;

View File

@ -51,6 +51,6 @@ DEFER: (del-page)
tabbed new-frame
[ g 0 <model> >>model
<pile> 1 >>fill [ >>toggler ] keep swap @left grid-add
[ keys g swap >>names ]
[ keys >vector g swap >>names ]
[ values g model>> <book> [ >>content ] keep swap @center grid-add ] bi
g redo-toggler g ] with-gadget ;