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

ui.gadgets.tabs: rewrite <tabbed>

db4
Eduardo Cavazos 2008-07-14 18:00:29 -05:00
parent 199a7580d6
commit 595b40b506
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,9 +48,13 @@ DEFER: (del-page)
[ names>> index ] 2keep (del-page) ; [ names>> index ] 2keep (del-page) ;
: <tabbed> ( assoc -- tabbed ) : <tabbed> ( assoc -- tabbed )
tabbed new-frame tabbed new-frame
[ g 0 <model> >>model 0 <model> >>model
<pile> 1 >>fill [ >>toggler ] keep swap @left grid-add <pile> 1 >>fill >>toggler
[ keys >vector g swap >>names ] dup toggler>> @left grid-add*
[ values g model>> <book> [ >>content ] keep swap @center grid-add ] bi swap
g redo-toggler g ] with-gadget ; [ keys >vector >>names ]
[ values over model>> <book> >>content dup content>> @center grid-add* ]
bi
dup redo-toggler ;