Set default size for browser popup

2009-02-20 20:53:08 -06:00 · 2009-02-20 20:53:08 -06:00 · 1bf9b3b49e
parent ee7bbf8654
commit 1bf9b3b49e
1 changed files with 6 additions and 2 deletions
--- a/basis/ui/tools/browser/popups/popups.factor
+++ b/basis/ui/tools/browser/popups/popups.factor
@ -27,8 +27,12 @@ TUPLE: links-popup < wrapper ;
    '[ @ sorted-links ] <filter>
    link-renderer [ second ] <search-table>
        [ invoke-primary-operation ] >>action
-        [ hide-glass ] >>hook
-        t >>selection-required? ;
+        [ drop ] >>hook ! hide-glass ] >>hook
+        t >>selection-required?
+        10 >>min-rows
+        10 >>max-rows
+        30 >>min-cols
+        30 >>max-cols ;

 : <links-popup> ( model quot title -- gadget )
    [ <links-table> COLOR: white <solid> >>interior ] dip