Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Keep status icons floating over top bar |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7e998db7e5f44a9b3e39f800475e2138 |
| User & Date: | bernd 2019-05-21 21:13:13 |
Context
|
2019-05-22
| ||
| 23:06 | Add invitations notification check-in: 8d79e35784 user: bernd tags: trunk | |
|
2019-05-21
| ||
| 21:13 | Keep status icons floating over top bar check-in: 7e998db7e5 user: bernd tags: trunk | |
|
2019-05-17
| ||
| 12:58 | Resign key fixed, addr-changed added to Android check-in: 0be8970ecc user: bernd tags: trunk | |
Changes
Changes to gui.fs.
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
....
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
|
{{
{{ \script \mono \bold l" Pubkey" }}i18n-text 20%bt glue*l }}glue }}h
{{ \script \sans \bold l" Key date" }}i18n-text glue*l }}glue }}h
}}v pk-tab
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[] ;
previous
{{ users-color# pres-frame
{{
{{
nicks-title
glue*shrink }}glue
}}h box[]
{{
{{
{{ glue*l $303000FF new-color, bar-frame
{{ \script l" My key" }}i18n-text 25%b glue*l }}glue }}h }}z
{{ }}v box[] dup to mykey-box
{{ glue*l $300030FF new-color, bar-frame
{{ \script l" My groups" }}i18n-text 25%b glue*l }}glue }}h }}z
................................................................................
[ box-actor :: ekeyed ] EXIT
endcase ; net2o-actor to ekeyed
: net2o[] ( o -- o )
>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[]
Value n2o-frame
\ top widgets
: !widgets ( -- )
top-widget .htop-resize
pw-field engage
|
<
<
>
|
>
|
|
|
|
|
|
>
>
>
>
>
>
>
>
>
|
|
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
....
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
|
{{
{{ \script \mono \bold l" Pubkey" }}i18n-text 20%bt glue*l }}glue }}h
{{ \script \sans \bold l" Key date" }}i18n-text glue*l }}glue }}h
}}v pk-tab
glue*lll± }}glue
}}h box[]
vp-title glue*lll ['] vp-title }}vp vp[] dup to title-vp
}}h box[]
}}z box[] ;
previous
{{ users-color# pres-frame
{{
{{
nicks-title
glue*shrink }}glue
\Large s" ❌" $444444FF new-color, }}button-lit /hfix [: -1 data +! ;] level# click[]
}}h box[] /vfix
{{
{{
{{ glue*l $303000FF new-color, bar-frame
{{ \script l" My key" }}i18n-text 25%b glue*l }}glue }}h }}z
{{ }}v box[] dup to mykey-box
{{ glue*l $300030FF new-color, bar-frame
{{ \script l" My groups" }}i18n-text 25%b glue*l }}glue }}h }}z
................................................................................
[ box-actor :: ekeyed ] EXIT
endcase ; net2o-actor to ekeyed
: net2o[] ( o -- o )
>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 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
: !widgets ( -- )
top-widget .htop-resize
pw-field engage
|
Changes to keys.fs.
1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 |
oldskc oldpkc +revsign
0oldkey revtoken $@ ;
\ invitation
Variable invitations
event: :>invite ( addr u -- )
." invite me: " over >r .pk2key$ cr r> free throw ctrl L inskey ;
: pk2key$-add ( addr u perm -- ) { perm }
sample-key >o import#invited import-type ! cmd:nestsig
perm ke-mask !
import#new import-type ! save-pubkeys o> ;
: x-erase ( len -- ) edit-curpos !
|
> | > > > |
1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 |
oldskc oldpkc +revsign
0oldkey revtoken $@ ;
\ invitation
Variable invitations
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
perm ke-mask !
import#new import-type ! save-pubkeys o> ;
: x-erase ( len -- ) edit-curpos !
|
Changes to lang/de.
10 11 12 13 14 15 16 17 |
Öffentlicher Schlüssel
Schlüsselsignaturdatum
Meine Schlüssel
Meine Gruppen
Meine Freunde
Posting
Senden
|
| |
10 11 12 13 14 15 16 17 |
Öffentlicher Schlüssel
Schlüsselsignaturdatum
Meine Schlüssel
Meine Gruppen
Meine Freunde
Posting
|
Changes to lang/en.
10 11 12 13 14 15 16 17 |
Pubkey
Key date
My key
My groups
My peers
Post
Send
|
| |
10 11 12 13 14 15 16 17 |
Pubkey
Key date
My key
My groups
My peers
Post
|