Fix responses to entering new IDs (1488c8f6) · Commits · Bernd Paysan / net2o

gui.fs

+5 −2

Original line number	Diff line number	Diff line
		@@ -165,9 +165,10 @@ Variable nick$
		1 of
		1 +to nick-pw
		over 3 pick >passphrase +key
		create-new-id /hflip
		phrase-first /hflip
		phrase-again /flop
		clear-edit invert +lang
		clear-edit invert +lang +resize
		endof
		2 of
		over 3 pick >passphrase lastkey@ str= IF
		@@ -177,7 +178,7 @@ Variable nick$
		ELSE
		1 to nick-pw
		phrase-first /flop
		phrase-again /hflip +lang
		phrase-again /hflip +lang +resize
		1 tries# ! do-shake
		THEN
		endof
		@@ -319,6 +320,7 @@ glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue
		[ x-baseline ] FLiteral nick-edit >o
		fdup gap% f* to gap to baseline o>
		"nick" nick-field engage-edit
		1 to nick-pw
		ELSE
		phrase-unlock /flop
		create-new-id /hflip
		@@ -329,6 +331,7 @@ glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue
		nick-edit /vflip
		0e nick-edit >o to baseline o>
		pw-field engage
		0 to nick-pw
		THEN +resize +lang ;
		\normal
		}}z ' id-show-hide false toggle[] dup Value id-toggler