Check-in [7e998db7e5]
Not logged in

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: 7e998db7e5f44a9b3e39f800475e2138a4c217b9
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
