Merge pull request #92 from lehitoskin/tag-filter-focus

Resolve #87
lehitoskin · Aug 25, 2018 · 486b8cf · 486b8cf
2 parents c749fe8 + b9cbe95
commit 486b8cf
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tag-browser.rkt b/tag-browser.rkt
@@ -398,4 +398,9 @@
   (update-tag-browser)
   (unless (send browser-frame is-shown?)
     (send browser-frame center 'both)
+    (send tag-filter-tfield focus)
+    ; select filter contents on-show
+    (let ([txt (send tag-filter-tfield get-editor)])
+      (send txt move-position 'home)
+      (send txt move-position 'end #t))
     (send browser-frame show #t)))