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

Make listener a little wider

db4
Slava Pestov 2009-02-15 23:14:26 -06:00
parent 86f7a4c282
commit 33bb7b638b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/tools/listener/listener.factor
View File

@ -169,7 +169,7 @@ M: interactor dispose drop ;
TUPLE: listener-gadget < tool input output scroller ; TUPLE: listener-gadget < tool input output scroller ;
{ 550 700 } listener-gadget set-tool-dim { 600 700 } listener-gadget set-tool-dim
: find-listener ( gadget -- listener ) : find-listener ( gadget -- listener )
[ listener-gadget? ] find-parent ; [ listener-gadget? ] find-parent ;