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