Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add invitations notification |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8d79e35784b89be407bc4d754bc57c2c |
| User & Date: | bernd 2019-05-22 23:06:36 |
Context
|
2019-05-23
| ||
| 14:44 | Bump version number check-in: c5f9a26a1f user: bernd tags: trunk, 0.8.9-20190523 | |
|
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 | |
Changes
Changes to gui.fs.
526
527
528
529
530
531
532
533
534
535
536
537
538
539
....
1070
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
|
also [ifdef] android android [then]
tex: vp-title
$F110 Constant 'spinner'
$F012 Constant 'signal'
0 Value online-flag
: online-symbol ( -- addr u )
'signal' 'spinner' online? select ['] xemit $tmp ;
: !online-symbol ( -- )
online-symbol online-flag >o to text$ o> +sync ;
................................................................................
>animate THEN endof
[ 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
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
|
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
....
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
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
|
also [ifdef] android android [then] tex: vp-title $F110 Constant 'spinner' $F012 Constant 'signal' $F234 Constant 'user-plus' $F503 Constant 'user-minus' $F235 Constant 'user-times' 0 Value online-flag : online-symbol ( -- addr u ) 'signal' 'spinner' online? select ['] xemit $tmp ; : !online-symbol ( -- ) online-symbol online-flag >o to text$ o> +sync ; ................................................................................ >animate THEN endof [ box-actor :: ekeyed ] EXIT endcase ; net2o-actor to ekeyed : net2o[] ( o -- o ) >o net2o-actor new !act o o> ; 0 Value invitations 0 Value invitations-list 0 Value invitations-notify Variable invitation-stack : invitations-s/h ( flag -- ) invitations swap IF /flop ELSE /flip THEN drop +resize ; : add-user ( key-o -- ) >o perm%default ke-mask ! o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ; : sub-user ( key-o -- ) >o perm%blocked ke-mask ! o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ; : add-invitation ( addr u -- ) over >r read-pk2key$ sample-key .clone >o o invitation-stack >stack {{ ke-nick $@ }}text glue*ll }}glue 'user-plus' ['] xemit $tmp }}text ['] add-user o click[] 'user-minus' ['] xemit $tmp }}text ['] sub-user o click[] }}h box[] 25%b invitations-list .child+ invitations-notify /flop drop +resize o> r> free throw ; ' add-invitation is do-invite {{ {{ 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 {{ 'user-plus' ' xemit $tmp white# }}text }}h ' invitations-s/h 0 toggle[] /flip dup to invitations-notify online-symbol white# }}text dup to online-flag s" ❌" $444444FF new-color, }}button-lit [: -1 data +! ;] level# click[] }}h box[] /vfix {{ glue*lll }}glue {{ chat-bg-col# pres-frame {{ \normal blackish !i18n l" Invitations" }}text' /center 25%b }}v box[] dup to invitations-list }}z box[] }}h box[] /flip dup to invitations glue*lll }}glue }}v box[] }}z net2o[] Value n2o-frame \ top widgets |
Changes to lang/de.
11 12 13 14 15 16 17 |
Schlüsselsignaturdatum Meine Schlüssel Meine Gruppen Meine Freunde Posting |
> |
11 12 13 14 15 16 17 18 |
Schlüsselsignaturdatum
Meine Schlüssel
Meine Gruppen
Meine Freunde
Posting
Einladungen
|
Changes to lang/en.
11 12 13 14 15 16 17 |
Key date My key My groups My peers Post |
> |
11 12 13 14 15 16 17 18 |
Key date
My key
My groups
My peers
Post
Invitations
|
Changes to lang/zh.
11 12 13 14 15 16 17 |
关键签名日期 我的钥匙 我的集团 我的朋友 贴子 发送 |
> |
11 12 13 14 15 16 17 18 |
关键签名日期
我的钥匙
我的集团
我的朋友
贴子
发送
请帖
|