diff --git a/extra/ui/gadgets/tabs/tabs.factor b/extra/ui/gadgets/tabs/tabs.factor index 18542f1089..1b4f633609 100755 --- a/extra/ui/gadgets/tabs/tabs.factor +++ b/extra/ui/gadgets/tabs/tabs.factor @@ -4,11 +4,11 @@ USING: accessors kernel fry math math.vectors sequences arrays vectors assocs hashtables models models.range models.compose combinators 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 -TUPLE: tabbed names model toggler content ; +TUPLE: tabbed < frame names toggler content ; DEFER: (del-page) @@ -48,8 +48,9 @@ DEFER: (del-page) [ names>> index ] 2keep (del-page) ; : ( assoc -- tabbed ) - tabbed new - [ 1 >>fill g-> (>>toggler) @left frame, - [ keys >vector g (>>names) ] - [ values 0 [ g-> (>>content) @center frame, ] keep ] bi - g swap >>model redo-toggler ] build-frame ; + tabbed new-frame + [ g 0 >>model + 1 >>fill [ >>toggler ] keep swap @left grid-add + [ keys g swap >>names ] + [ values g model>> [ >>content ] keep swap @center grid-add ] bi + g redo-toggler g ] with-gadget ;