diff --git a/TermTk/TTkGui/textcursor.py b/TermTk/TTkGui/textcursor.py
index b65063d8..44e338d5 100644
--- a/TermTk/TTkGui/textcursor.py
+++ b/TermTk/TTkGui/textcursor.py
@@ -455,7 +455,10 @@ class TTkTextCursor():
         currPos = self.position().toNum()
         for p in self._properties:
             if   selection == TTkTextCursor.SelectionType.Document:
-                pass
+                p.position.pos  = 0
+                p.position.line = 0
+                p.anchor.pos    = len(self._document._dataLines[-1])
+                p.anchor.line   = len(self._document._dataLines)-1
             elif selection == TTkTextCursor.SelectionType.LineUnderCursor:
                 line = p.position.line
                 p.position.pos = 0
diff --git a/TermTk/TTkWidgets/texedit.py b/TermTk/TTkWidgets/texedit.py
index 66d56832..e818d43d 100644
--- a/TermTk/TTkWidgets/texedit.py
+++ b/TermTk/TTkWidgets/texedit.py
@@ -528,6 +528,8 @@ class TTkTextEditView(TTkAbstractScrollView):
                     self.undo()
                 elif evt.key == TTkK.Key_Y:
                     self.redo()
+                elif evt.key == TTkK.Key_A:
+                    self._textCursor.select(TTkTextCursor.SelectionType.Document)
             elif evt.key == TTkK.Key_Up:
                 self._textCursor.movePosition(moveMode=moveMode, operation=TTkTextCursor.Up,   textWrap=self._textWrap)
                 self._textCursor.clearColor()