Verified Commit f7a3a0a6 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Add bl filter for nickname

parent 36cb0592

gui.fs

+8 −0
Original line number Diff line number Diff line
@@ -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

0 → 100644
+25 −0
Original line number Diff line number Diff line 
/* 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 { };