removed demo from poppers

db4
Sam Anklesaria 2009-08-05 20:04:14 -05:00
parent d65be18dce
commit 9d3fe3fd9a
1 changed files with 2 additions and 5 deletions

View File

@ -3,7 +3,7 @@
USING: arrays accessors combinators kernel math
models models.combinators namespaces sequences
ui.gadgets ui.gadgets.controls ui.gadgets.layout
ui.gadgets.tracks ui.gestures ui.gadgets.line-support ui ;
ui.gadgets.tracks ui.gestures ui.gadgets.line-support ;
EXCLUDE: ui.gadgets.editors => model-field ;
IN: ui.gadgets.poppers
@ -47,7 +47,4 @@ M: popper model-changed
[ [ value>> [ <popped> ] map ] dip [ f track-add ] reduce request-focus ] bi ;
M: popped pref-dim* editor>> [ pref-dim* first ] [ line-height ] bi 2array ;
M: popper focusable-child* children>> [ t ] [ first ] if-empty ;
: tester ( -- ) { "ha" "ba" "Ra" } <model> <popper> { 100 100 } >>pref-dim "testing" open-window ;
MAIN: tester
M: popper focusable-child* children>> [ t ] [ first ] if-empty ;