: del-page ( name tabbed -- )\r
[ names>> index ] 2keep (del-page) ;\r
\r
-: <tabbed> ( assoc -- tabbed )\r
- tabbed new-frame\r
+: new-tabbed ( assoc class -- tabbed )\r
+ new-frame\r
0 <model> >>model\r
<pile> 1 >>fill >>toggler\r
dup toggler>> @left grid-add\r
bi\r
dup redo-toggler ;\r
\r
+: <tabbed> ( assoc -- tabbed ) tabbed new-tabbed ;\r