diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor index fe21dfe4df..5efafdbb7e 100644 --- a/basis/editors/editors.factor +++ b/basis/editors/editors.factor @@ -25,10 +25,14 @@ M: f editor-command HOOK: editor-detached? editor-class ( -- ? ) M: object editor-detached? t ; +HOOK: editor-is-child? editor-class ( -- ? ) +M: object editor-is-child? f ; + : run-and-wait-for-editor ( command -- ) swap >>command editor-detached? >>detached + editor-is-child? [ +new-group+ >>group ] unless run-process 300 milliseconds sleep dup status>> { 0 f } member?