From 595b40b5063e44b3a45045a97a240bdb50663a29 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 14 Jul 2008 18:00:29 -0500
Subject: [PATCH] ui.gadgets.tabs: rewrite <tabbed>
---
extra/ui/gadgets/tabs/tabs.factor | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/extra/ui/gadgets/tabs/tabs.factor b/extra/ui/gadgets/tabs/tabs.factor
index ce7e68c622..d9e322eed3 100755
--- a/extra/ui/gadgets/tabs/tabs.factor
+++ b/extra/ui/gadgets/tabs/tabs.factor
@@ -48,9 +48,13 @@ DEFER: (del-page)
[ names>> index ] 2keep (del-page) ;
: <tabbed> ( assoc -- tabbed )
- tabbed new-frame
- [ g 0 <model> >>model
- <pile> 1 >>fill [ >>toggler ] keep swap @left grid-add
- [ keys >vector g swap >>names ]
- [ values g model>> <book> [ >>content ] keep swap @center grid-add ] bi
- g redo-toggler g ] with-gadget ;
+ tabbed new-frame
+ 0 <model> >>model
+ <pile> 1 >>fill >>toggler
+ dup toggler>> @left grid-add*
+ swap
+ [ keys >vector >>names ]
+ [ values over model>> <book> >>content dup content>> @center grid-add* ]
+ bi
+ dup redo-toggler ;
+