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

Fixed bug in ui.gadgets.tabs

db4
William Schlieper 2008-07-10 16:40:12 -04:00
parent 56d3031b41
commit f90ac9a691
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,13 +24,16 @@ DEFER: (del-page)
[ [ length ] keep ] 2dip
'[ , _ _ , add-toggle ] 2each ;
: refresh-book ( tabbed -- )
model>> [ ] change-model ;
: (del-page) ( n name tabbed -- )
{ [ [ remove ] change-names redo-toggler ]
[ [ names>> length ] [ model>> ] bi
[ dupd [ names>> length ] [ model>> ] bi
[ [ = ] keep swap [ 1- ] when
[ > ] keep swap [ 1- ] when dup ] change-model ]
[ < ] keep swap [ 1- ] when ] change-model ]
[ content>> nth-gadget unparent ]
[ model>> [ ] change-model ] ! refresh
[ refresh-book ]
} cleave ;
: add-page ( page name tabbed -- )
@ -38,7 +41,8 @@ DEFER: (del-page)
[ [ model>> swap ]
[ names>> length 1 - swap ]
[ toggler>> ] tri add-toggle ]
[ content>> add-gadget ] bi ;
[ content>> add-gadget ]
[ refresh-book ] tri ;
: del-page ( name tabbed -- )
[ names>> index ] 2keep (del-page) ;