Add bl filter for nickname

gui.fs

@@ -184,6 +184,13 @@ $FFFFFFFF new-color, FValue posting-bg-col#
     edit-w .text$ nip #800 u> IF
 	prev-text$ edit-w >o to text$ o>
     THEN ;
+: nick-filter ( -- ) edit-w >o
+    0 >r BEGIN  text$ r@ safe/string  WHILE
+	    c@ bl = IF
+		addr text$ r@ 1 $del
+		r@ curpos u< +to curpos
+	    ELSE  r> 1+ >r  THEN  REPEAT  drop rdrop
+    o> ;
 
 glue new Constant glue*lll±
 glue*lll± >o 1Mglue fnip 1000e fswap hglue-c glue! 0glue fnip 1filll fswap dglue-c glue! 1glue vglue-c glue! o>
@@ -214,6 +221,7 @@ glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue
 			"nick" }}edit 25%b dup to nick-field
 			glue*lll }}glue \regular
 		    }}h bx-tab nick-field ' nick-done edit[]
+		    ' nick-filter filter[]
 		}}z box[] blackish
 		{{ \large "👤" }}text \normal }}h /phantom
 		glue*ll }}glue

src/gnu/gforth/Gforth_n2o_gui.java

+/* Android activity for Gforth on Android
+
+  Copyright (C) 2013 Free Software Foundation, Inc.
+
+  This file is part of Gforth.
+
+  Gforth is free software; you can redistribute it and/or
+  modify it under the terms of the GNU General Public License
+  as published by the Free Software Foundation, either version 3
+  of the License, or (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, see http://www.gnu.org/licenses/.
+*/
+
+package gnu.gforth;
+
+import gnu.gforth.Gforth;
+
+public class Gforth_n2o_gui extends gnu.gforth.Gforth { };