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

Set default size for browser popup

db4
Slava Pestov 2009-02-20 20:53:08 -06:00
parent ee7bbf8654
commit 1bf9b3b49e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/ui/tools/browser/popups/popups.factor
View File

@ -27,8 +27,12 @@ TUPLE: links-popup < wrapper ;
'[ @ sorted-links ] <filter> '[ @ sorted-links ] <filter>
link-renderer [ second ] <search-table> link-renderer [ second ] <search-table>
[ invoke-primary-operation ] >>action [ invoke-primary-operation ] >>action
[ hide-glass ] >>hook [ drop ] >>hook ! hide-glass ] >>hook
t >>selection-required? ; t >>selection-required?
10 >>min-rows
10 >>max-rows
30 >>min-cols
30 >>max-cols ;
: <links-popup> ( model quot title -- gadget ) : <links-popup> ( model quot title -- gadget )
[ <links-table> COLOR: white <solid> >>interior ] dip [ <links-table> COLOR: white <solid> >>interior ] dip