From 45715f52a8b875ec66e9622c01b2178e49259015 Mon Sep 17 00:00:00 2001 From: William Schlieper Date: Fri, 11 Jul 2008 16:31:35 -0400 Subject: [PATCH] Fixed bug in ui.gadgets.tabs, irc.ui no longer uses delegation --- extra/irc/ui/ui.factor | 4 ++-- extra/ui/gadgets/tabs/tabs.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor index ef2bfd3d55..cc138dad92 100755 --- a/extra/irc/ui/ui.factor +++ b/extra/irc/ui/ui.factor @@ -82,10 +82,10 @@ M: irc-message write-irc [ swap display ] keep ; -TUPLE: irc-editor outstream listener client ; +TUPLE: irc-editor < editor outstream listener client ; : ( pane listener client -- editor ) - [ irc-editor construct-editor + [ irc-editor new-editor swap >>listener swap >>outstream ] dip client>> >>client ; diff --git a/extra/ui/gadgets/tabs/tabs.factor b/extra/ui/gadgets/tabs/tabs.factor index 1b4f633609..7c663f88e3 100755 --- a/extra/ui/gadgets/tabs/tabs.factor +++ b/extra/ui/gadgets/tabs/tabs.factor @@ -51,6 +51,6 @@ DEFER: (del-page) tabbed new-frame [ g 0 >>model 1 >>fill [ >>toggler ] keep swap @left grid-add - [ keys g swap >>names ] + [ keys >vector g swap >>names ] [ values g model>> [ >>content ] keep swap @center grid-add ] bi g redo-toggler g ] with-gadget ;