Editors tweaks

release
Slava Pestov 2007-11-23 16:24:57 -05:00
parent 204069e01d
commit 937446c53b
10 changed files with 10 additions and 18 deletions

View File

@ -1,5 +1,5 @@
USING: dlists ui.gadgets kernel ui namespaces io.streams.string
io ui.private ;
io ;
IN: tools.test.ui
! We can't print to stdio here because that might be a pane

View File

@ -1,5 +1,5 @@
USING: ui.gadgets.editors tools.test kernel io io.streams.plain
definitions namespaces ui.gadgets ui.private
definitions namespaces ui.gadgets
ui.gadgets.grids prettyprint documents ui.gestures
tools.test.inference tools.test.ui models ;

View File

@ -2,7 +2,7 @@ IN: temporary
USING: ui.gadgets ui.gadgets.packs ui.gadgets.worlds tools.test
namespaces models kernel tools.test.inference dlists math
math.parser ui sequences hashtables assocs io arrays
prettyprint io.streams.string ui.private ;
prettyprint io.streams.string ;
[ T{ rect f { 10 10 } { 20 20 } } ]
[

View File

@ -1,5 +1,5 @@
IN: temporary
USING: ui.gadgets ui.gadgets.scrollers ui.private
USING: ui.gadgets ui.gadgets.scrollers
namespaces tools.test kernel models ui.gadgets.viewports
ui.gadgets.labels ui.gadgets.grids ui.gadgets.frames
ui.gadgets.sliders math math.vectors arrays sequences

View File

@ -1,6 +1,6 @@
IN: temporary
USING: tools.test tools.test.ui ui.tools.browser
tools.test.inference ui.private ;
tools.test.inference ;
{ 0 1 } [ <browser-gadget> ] unit-test-effect
[ ] [ <browser-gadget> [ ] with-grafted-gadget ] unit-test

View File

@ -1,7 +1,7 @@
USING: continuations documents ui.tools.interactor
ui.tools.listener hashtables kernel namespaces parser sequences
timers tools.test ui.commands ui.gadgets ui.gadgets.editors
ui.gadgets.panes vocabs words tools.test.ui ui.private ;
ui.gadgets.panes vocabs words tools.test.ui ;
IN: temporary
timers [ init-timers ] unless

View File

@ -1,6 +1,6 @@
USING: assocs ui.tools.search help.topics io.files io.styles
kernel namespaces sequences source-files threads timers
tools.test ui.gadgets ui.gestures ui.private vocabs
tools.test ui.gadgets ui.gestures vocabs
vocabs.loader words tools.test.ui debugger ;
IN: temporary

View File

@ -2,7 +2,7 @@ USING: ui.tools ui.tools.interactor ui.tools.listener
ui.tools.search ui.tools.workspace kernel models namespaces
sequences timers tools.test ui.gadgets ui.gadgets.buttons
ui.gadgets.labelled ui.gadgets.presentations
ui.gadgets.scrollers vocabs tools.test.ui ui ui.private ;
ui.gadgets.scrollers vocabs tools.test.ui ui ;
IN: temporary
[

View File

@ -1,6 +1,6 @@
USING: arrays continuations ui.tools.listener ui.tools.walker
ui.tools.workspace inspector kernel namespaces sequences threads
listener tools.test ui ui.gadgets ui.gadgets.worlds ui.private
listener tools.test ui ui.gadgets ui.gadgets.worlds
ui.gadgets.packs vectors ui.tools tools.interpreter
tools.interpreter.debug tools.test.inference tools.test.ui ;
IN: temporary

View File

@ -28,8 +28,6 @@ SYMBOL: windows
: unregister-window ( handle -- )
windows global [ [ first = not ] curry* subset ] change-at ;
<PRIVATE
: raised-window ( world -- )
windows get-global [ second eq? ] curry* find drop
windows get-global [ length 1- ] keep exchange ;
@ -67,8 +65,6 @@ M: world ungraft*
dup world-handle (close-window)
reset-world ;
PRIVATE>
: open-world-window ( world -- )
dup pref-dim over set-gadget-dim dup relayout graft ;
@ -90,8 +86,6 @@ SYMBOL: ui-hook
<dlist> \ layout-queue set-global
V{ } clone windows set-global ;
<PRIVATE
: restore-gadget-later ( gadget -- )
dup gadget-graft-state {
{ { f f } [ ] }
@ -133,7 +127,7 @@ SYMBOL: ui-hook
] { } make ;
: redraw-worlds ( seq -- )
[ dup update-hand draw-world ] each ;
[ dup update-hand [ draw-world ] time ] each ;
: notify ( gadget -- )
dup gadget-graft-state {
@ -146,8 +140,6 @@ SYMBOL: ui-hook
: notify-queued ( -- )
graft-queue [ notify ] dlist-slurp ;
PRIVATE>
: ui-step ( -- )
[
do-timers