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

Fix unit test failures

slava 2006-12-09 19:29:55 +00:00
parent f25ecca829
commit 5e9fce2437
4 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
TODO.txt
View File

@ -1,13 +1,14 @@
+ 0.87: + 0.87:
- callback scheduling issue - callback scheduling issue
- error window: ENTER hides it - error popup obscures input area
- browser: tile titles should respond to right-clicks and/or have a
menu popup button
- ui docs
+ 0.88: + 0.88:
- lisppaste gui - lisppaste gui
- browser: tile titles should respond to right-clicks and/or have a
menu popup button
- growable data heap - growable data heap
- variable width word wrap - variable width word wrap
- graphical crossref tool - graphical crossref tool
@ -19,9 +20,7 @@
- use crc32 instead of modification date in reload-modules - use crc32 instead of modification date in reload-modules
- models: don't do redundant work - models: don't do redundant work
- top level window positioning on ms windows - top level window positioning on ms windows
- crashes: - httpd crash
- httpd crash
- fep when closing window
- these things are "Too Slow": - these things are "Too Slow":
- make-image - make-image
- workspace-window - workspace-window
@ -36,7 +35,6 @@
- new windows don't always have focus, eg focus follows mouse - new windows don't always have focus, eg focus follows mouse
- recompile get/set/>n/n>/ndrop if needed - recompile get/set/>n/n>/ndrop if needed
- cross-word type inference - cross-word type inference
- ui docs
- some kind of declarative wiring framework for ui - some kind of declarative wiring framework for ui
- if we're printing a block on multiple lines, break at some words like - if we're printing a block on multiple lines, break at some words like
set off on % # , ... and assembler opcodes set off on % # , ... and assembler opcodes

4
core/ui/test/lists.factor
View File

@ -1,4 +1,4 @@
IN: temporary IN: temporary
USING: gadgets-lists models prettyprint math test ; USING: gadgets-lists models prettyprint math test kernel ;
[ ] [ [ ] [ 3 + . ] f <model> <list> list-action ] unit-test [ ] [ [ drop ] [ 3 + . ] f <model> <list> list-action ] unit-test

5
core/ui/tools/operations.factor
View File

@ -129,11 +129,6 @@ M: operation invoke-command
{ +quot+ [ help-gadget call-tool ] } { +quot+ [ help-gadget call-tool ] }
} define-operation } define-operation
[ word? ] H{
{ +name+ "Edit documentation" }
{ +quot+ [ <link> edit ] }
} define-operation
[ word? ] H{ [ word? ] H{
{ +name+ "Usage" } { +name+ "Usage" }
{ +keyboard+ T{ key-down f { A+ } "u" } } { +keyboard+ T{ key-down f { A+ } "u" } }

5
core/ui/tools/test/listener.factor
View File

@ -1,12 +1,15 @@
IN: temporary IN: temporary
USING: gadgets-listener words arrays namespaces test kernel USING: gadgets-listener words arrays namespaces test kernel
freetype timers gadgets-workspace ; freetype timers gadgets-workspace sequences gadgets-text ;
timers [ init-timers ] unless timers [ init-timers ] unless
[ [
<listener-gadget> "listener" set <listener-gadget> "listener" set
{ "kernel" } [ vocab ] map
"listener" get listener-gadget-input set-interactor-use
[ "dup" ] [ \ dup "listener" get word-completion-string ] unit-test [ "dup" ] [ \ dup "listener" get word-completion-string ] unit-test
[ "USE: words word-name" ] [ "USE: words word-name" ]