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

Prettyprinter nesting limit, wheel mouse fix

slava 2006-03-29 02:14:08 +00:00
parent d9a341003c
commit d7efff48d2
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
TODO.FACTOR.txt
View File

@ -3,9 +3,9 @@
- x86 %box-struct - x86 %box-struct
- x86 %write-barrier - x86 %write-barrier
- x11 title bars are funny - x11 title bars are funny
- x11 wheel mouse test
- changelog in the UI - changelog in the UI
- amd64 %box-struct - amd64 %box-struct
- automate .dmg build, put sources there
+ portability: + portability:
@ -20,18 +20,21 @@
- httpd fep - httpd fep
- stream server can hang because of exception handler limitations - stream server can hang because of exception handler limitations
- better i/o scheduler - better i/o scheduler
- out of memory error when printing global namespace
- yield in a loop starves i/o - yield in a loop starves i/o
- "localhost" 50 <client> won't fail - "localhost" 50 <client> won't fail
+ ui/help: + ui/help:
- help search
- reimplement clicking input
- reimplement tab completion
- x11 input methods - x11 input methods
- cocoa: - cocoa:
- global menu bar with useful commands - global menu bar with useful commands
- make the launchpad a palette - make the launchpad a palette
- expired aliens in view hash - expired aliens in view hash
- don't multiplex in the event loop if there is no pending i/o - don't multiplex in the event loop if there is no pending i/o
- horizontal scrolling
- fix mouse-overs... - fix mouse-overs...
- clicks sent twice - clicks sent twice
- speed up ideas: - speed up ideas:

6
library/syntax/prettyprint.factor
View File

@ -300,7 +300,11 @@ M: wrapper pprint* ( wrapper -- )
: pprint ( object -- ) [ pprint* ] with-pprint ; : pprint ( object -- ) [ pprint* ] with-pprint ;
: . ( obj -- ) pprint terpri ; : . ( obj -- )
H{
{ length-limit 1000 }
{ nesting-limit 10 }
} clone [ pprint ] bind terpri ;
: unparse ( object -- str ) [ pprint ] string-out ; : unparse ( object -- str ) [ pprint ] string-out ;

3
library/x11/ui.factor
View File

@ -30,8 +30,7 @@ M: world button-up-event ( event world -- )
>r button&loc r> send-button-up ; >r button&loc r> send-button-up ;
M: world wheel-event ( event world -- ) M: world wheel-event ( event world -- )
>r button&loc >r H{ { 4 -1 } { 5 1 } } hash r> >r button&loc >r 4 = r> r> send-wheel ;
r> send-wheel ;
M: world motion-event ( event world -- ) M: world motion-event ( event world -- )
>r dup XMotionEvent-x swap XMotionEvent-y 0 3array r> >r dup XMotionEvent-x swap XMotionEvent-y 0 3array r>