Commit f7a3a0a6 authored by Bernd Paysan's avatar Bernd Paysan

Add bl filter for nickname

parent 36cb0592
......@@ -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
......
/* 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 { };
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment