ui.gadgets.editors: adding delete-to-start-of-document and delete-to-end-of-document.

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index db9a27f5d8e648e07019caee159367f692febd81..ad4cf6b77b19bb229a1b307a8ab9ca56c48ac4c1 100644 (file)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -359,6 +359,12 @@ M: editor gadget-text* editor-string % ;
 : delete-to-end-of-line ( editor -- ) 
     one-line-elt editor-delete ;
 
+: delete-to-start-of-document ( editor -- )
+    doc-elt editor-delete ;
+
+: delete-to-end-of-document ( editor -- )
+    doc-elt editor-delete ;
+
 : com-undo ( editor -- ) model>> undo ;
 
 : com-redo ( editor -- ) model>> redo ;