Paste: ui messages problem

Author: kenanb
Mode: factor
Date: Fri, 18 Mar 2011 07:00:09
Plain Text | 
IN: ui-test

: ui-test ( -- )
[
"Hi" <label>
"hi" open-window
] with-ui ;

MAIN: ui-test

if i run this vocab in console listener or inside emacs connected to factor via fuel, i start getting the group of messages below infinitely over and over again, 

(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(O) Word: rethrow
(O) Word: stop
(O) Word: next

Annotation: missing parts in my paste

Author: kenanb
Mode: factor
Date: Fri, 18 Mar 2011 07:04:39
Plain Text | 
sorry, my explanation was wrong, i am trying again:

if i run this vocab in console listener or inside emacs connected to factor via fuel, when i close the window created by the vocab, i start getting the group of messages below infinitely over and over again,

Annotation: flood

Author: ex
Mode: factor
Date: Mon, 21 Mar 2011 16:57:03
Plain Text | 
( scratchpad ) "ui-test" run
Loading resource:work/ui-test/ui-test.factor
( scratchpad ) Error in thread 68 (UI update, [ self ui-thread set-global update-ui-loop ]):

Empty dlist


(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]
Error in thread 68 (UI update, [ self ui-thread set-global update-ui-loop ]):

Empty dlist


(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(O) Word: rethrow
(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]
Error in thread 68 (UI update, [ self ui-thread set-global update-ui-loop ]):

Empty dlist


(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(O) Word: rethrow
(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(O) Word: rethrow
(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]
Error in thread 68 (UI update, [ self ui-thread set-global update-ui-loop ]):

Empty dlist


(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(O) Word: rethrow
(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back
(O) Word: empty-dlist
(O) Method: M\ object throw
(O) Word: rethrow
(O) Word: stop
(O) Word: next
(O) Method: M\ dlist peek-back

....

New Annotation

Summary:
Author:
Mode:
Body: