Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / basis / ui / gadgets / tabs / tabs.factor

diff --git a/basis/ui/gadgets/tabs/tabs.factor b/basis/ui/gadgets/tabs/tabs.factor
index 12031e5911124594b083eb3fa205d25de286fc66..50e2df2e9e3ec90696702325d026f6d672fa5af8 100755 (executable)
--- a/basis/ui/gadgets/tabs/tabs.factor
+++ b/basis/ui/gadgets/tabs/tabs.factor
@@ -48,8 +48,8 @@ DEFER: (del-page)
 : 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
@@ -59,3 +59,4 @@ DEFER: (del-page)
     bi\r
     dup redo-toggler ;\r
     \r
+: <tabbed> ( assoc -- tabbed ) tabbed new-tabbed ;\r