Check-in [8d79e35784]
Not logged in

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: 8d79e35784b89be407bc4d754bc57c2ce7988933
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
Hide Diffs Unified Diffs Show Whitespace Changes Patch

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
关键签名日期
我的钥匙
我的集团
我的朋友
贴子

发送
请帖