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

ui.gadgets.tabs no longer uses delegation

db4
William Schlieper 2008-07-11 16:06:44 -04:00
parent bedae67732
commit 373a7adc6a
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,11 +4,11 @@
USING: accessors kernel fry math math.vectors sequences arrays vectors assocs USING: accessors kernel fry math math.vectors sequences arrays vectors assocs
hashtables models models.range models.compose combinators hashtables models models.range models.compose combinators
ui ui.gadgets ui.gadgets.buttons ui.gadgets.frames ui.gadgets.packs ui ui.gadgets ui.gadgets.buttons ui.gadgets.frames ui.gadgets.packs
ui.gadgets.incremental ui.gadgets.viewports ui.gadgets.books ; ui.gadgets.grids ui.gadgets.viewports ui.gadgets.books ;
IN: ui.gadgets.tabs IN: ui.gadgets.tabs
TUPLE: tabbed names model toggler content ; TUPLE: tabbed < frame names toggler content ;
DEFER: (del-page) DEFER: (del-page)
@ -48,8 +48,9 @@ DEFER: (del-page)
[ names>> index ] 2keep (del-page) ; [ names>> index ] 2keep (del-page) ;
: <tabbed> ( assoc -- tabbed ) : <tabbed> ( assoc -- tabbed )
tabbed new tabbed new-frame
[ <pile> 1 >>fill g-> (>>toggler) @left frame, [ g 0 <model> >>model
[ keys >vector g (>>names) ] <pile> 1 >>fill [ >>toggler ] keep swap @left grid-add
[ values 0 <model> [ <book> g-> (>>content) @center frame, ] keep ] bi [ keys g swap >>names ]
g swap >>model redo-toggler ] build-frame ; [ values g model>> <book> [ >>content ] keep swap @center grid-add ] bi
g redo-toggler g ] with-gadget ;