Keep status icons floating over top bar

parent 8ebd9209
......@@ -554,8 +554,6 @@ $F012 Constant 'signal'
glue*lll± }}glue
}}h box[]
vp-title glue*lll ['] vp-title }}vp vp[] dup to title-vp
\large online-symbol white# }}text dup to online-flag
s" ❌" $444444FF new-color, }}button-lit [: -1 data +! ;] level# click[]
}}h box[]
}}z box[] ;
......@@ -566,7 +564,8 @@ previous
{{
nicks-title
glue*shrink }}glue
}}h box[]
\Large s" ❌" $444444FF new-color, }}button-lit /hfix [: -1 data +! ;] level# click[]
}}h box[] /vfix
{{
{{
{{ glue*l $303000FF new-color, bar-frame
......@@ -1076,13 +1075,23 @@ end-class net2o-actor
>o net2o-actor new !act o o> ;
{{
glue-left }}glue
pw-frame dup >slides
id-frame /flip dup >slides
chat-frame /flip dup >slides
post-frame /flip dup >slides
glue-right }}glue
}}h net2o[]
{{
glue-left }}glue
pw-frame dup >slides
id-frame /flip dup >slides
chat-frame /flip dup >slides
post-frame /flip dup >slides
glue-right }}glue
}}h box[]
{{
{{
glue*lll }}glue
\large online-symbol white# }}text dup to online-flag
s" " $444444FF new-color, }}button-lit [: -1 data +! ;] level# click[]
}}h box[] /vfix
glue*lll }}glue
}}v box[]
}}z net2o[]
Value n2o-frame
\ top widgets
......
......@@ -1222,8 +1222,12 @@ Variable revtoken
Variable invitations
event: :>invite ( addr u -- )
Defer do-invite
:noname ( addr u -- )
." invite me: " over >r .pk2key$ cr r> free throw ctrl L inskey ;
is do-invite
event: :>invite ( addr u -- ) do-invite ;
: pk2key$-add ( addr u perm -- ) { perm }
sample-key >o import#invited import-type ! cmd:nestsig
......
......@@ -14,4 +14,4 @@ Meine Gruppen
Meine Freunde
Posting
Senden
......@@ -14,4 +14,4 @@ My groups
My peers
Post
Send
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