diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index 6c233faa46..8304e7c3c7 100644 --- a/TODO.FACTOR.txt +++ b/TODO.FACTOR.txt @@ -61,10 +61,7 @@ - horizontal wheel scrolling - polish OS X menu bar code - variable width word wrap -- use models for the following: - - editor gadgets - - search tool - - slider needs range-model or similar +- slider needs to be modelized + compiler/ffi: diff --git a/library/test/gadgets/line-editor.factor b/library/test/gadgets/line-editor.factor deleted file mode 100644 index d06ad34aee..0000000000 --- a/library/test/gadgets/line-editor.factor +++ /dev/null @@ -1,58 +0,0 @@ -IN: temporary -USING: kernel line-editor namespaces sequences strings test ; - - "editor" set - -[ 14 ] [ 4 5 5 10 (point-update) ] unit-test - -[ 10 ] [ 4 15 15 10 (point-update) ] unit-test - -[ 6 ] [ 0 5 9 10 (point-update) ] unit-test - -[ 5 ] [ 0 5 13 10 (point-update) ] unit-test - -[ 10 ] [ 0 18 23 10 (point-update) ] unit-test - -[ 0 ] [ 0 0 10 10 (point-update) ] unit-test - -[ "Hello world" ] [ - "Hello world" 0 0 "editor" get [ line-replace ] bind - "editor" get [ line-text get ] bind -] unit-test - -[ t ] [ - "editor" get [ caret-pos ] bind - "Hello world" length = -] unit-test - -[ "Hello, crazy world" ] [ - "editor" get [ 0 set-caret-pos ] bind - ", crazy" 5 5 "editor" get [ line-replace ] bind - "editor" get [ line-text get ] bind -] unit-test - -[ 0 ] [ "editor" get [ caret-pos ] bind ] unit-test - -[ "Hello, crazy world" ] [ - "editor" get [ 5 set-caret-pos "Hello world" line-text set ] bind - ", crazy" 5 5 "editor" get [ line-replace ] bind - "editor" get [ line-text get ] bind -] unit-test - -[ "Hello, crazy" ] [ - "editor" get [ caret-pos line-text get head ] bind -] unit-test - -[ "Hellorld" ] -[ - "editor" get [ 0 set-caret-pos "Hello world" line-text set ] bind - 4 7 "editor" get [ line-remove ] bind - "editor" get [ line-text get ] bind -] unit-test - -[ 0 "" ] -[ - "editor" get [ "hello world" set-line-text ] bind - "editor" get [ 0 line-length line-remove ] bind - "editor" get [ caret-pos line-text get ] bind -] unit-test diff --git a/library/test/gadgets/models.factor b/library/test/gadgets/models.factor index 995ad15949..0017ec266d 100644 --- a/library/test/gadgets/models.factor +++ b/library/test/gadgets/models.factor @@ -30,7 +30,7 @@ T{ model-tester f f } "tester" set "model-c" get model-value ] unit-test - "history" set +f "history" set "history" get add-history diff --git a/library/test/test.factor b/library/test/test.factor index 12198f793b..f53302c112 100644 --- a/library/test/test.factor +++ b/library/test/test.factor @@ -84,7 +84,6 @@ SYMBOL: failures "continuations" "errors" "gadgets/document" - "gadgets/line-editor" "gadgets/models" "gadgets/rectangles" "generic"