Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Check online status |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bb3039ab0a280fc538c7c28be46d50cb |
| User & Date: | bernd 2019-04-24 21:20:03 |
Context
|
2019-04-26
| ||
| 15:52 | add dummy for 64^ local check-in: da93028df9 user: bernd tags: trunk | |
|
2019-04-24
| ||
| 21:20 | Check online status check-in: bb3039ab0a user: bernd tags: trunk | |
|
2019-04-18
| ||
| 21:30 | Use new online? check check-in: 7ad73e33fe user: bernd tags: trunk | |
Changes
Changes to gui.fs.
519 520 521 522 523 524 525 526 527 528 529 530 531 532 ... 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 ... 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 ... 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 |
I @ show-group
cell +LOOP ;
also [ifdef] android android [then]
tex: vp-title
: nicks-title ( -- )
{{ glue*l black# slide-frame dup .button1
{{
{{
{{
{{ \large \bold \sans realwhite
l" Nick+Pet" }}i18n-text 25%b glue*l }}glue }}h name-tab
................................................................................
{{
{{ \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 s" ❌" $444444FF color, }}button-lit [: -1 data +! ;] level# click[]
}}h box[]
}}z box[] ;
previous
{{ $FFFF80FF color, pres-frame
{{
................................................................................
$CCCCCCFF color, to slider-fgcolor
font-size# 33% f* to slider-border
dup font-size# 66% f* fdup vslider }}h box[]
}}v box[]
}}z box[] to id-frame
: show-nicks ( -- )
fill-nicks fill-groups next-slide
peers-box 0.01e [: .vp-top fdrop title-vp .vp-top +sync +resize ;] >animate ;
\ messages
msg-class class
end-class wmsg-class
................................................................................
{{
{{
glue*l black# slide-frame dup .button1
{{
\large realwhite
"⬅" }}text 40%b [: in-group? 0= ?EXIT false to in-group?
leave-chats prev-slide ;] over click[]
!i18n l" " }}text' !lit 40%b
"" }}text 40%b dup to group-name
{{
}}h box[] dup to group-members
glue*l }}glue
}}h box[]
}}z box[]
{{
|
> > > > > > > > > > > > > | | > | |
519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 ... 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 ... 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 .... 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 |
I @ show-group
cell +LOOP ;
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 ;
:noname true to online? ['] announce-me catch 0= to online?
!online-symbol ; is addr-changed
: nicks-title ( -- )
{{ glue*l black# slide-frame dup .button1
{{
{{
{{
{{ \large \bold \sans realwhite
l" Nick+Pet" }}i18n-text 25%b glue*l }}glue }}h name-tab
................................................................................
{{
{{ \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 color, }}button-lit [: -1 data +! ;] level# click[]
}}h box[]
}}z box[] ;
previous
{{ $FFFF80FF color, pres-frame
{{
................................................................................
$CCCCCCFF color, to slider-fgcolor
font-size# 33% f* to slider-border
dup font-size# 66% f* fdup vslider }}h box[]
}}v box[]
}}z box[] to id-frame
: show-nicks ( -- )
fill-nicks fill-groups !online-symbol
next-slide
peers-box 0.01e [: .vp-top fdrop title-vp .vp-top +sync +resize ;] >animate ;
\ messages
msg-class class
end-class wmsg-class
................................................................................
{{
{{
glue*l black# slide-frame dup .button1
{{
\large realwhite
"⬅" }}text 40%b [: in-group? 0= ?EXIT false to in-group?
leave-chats prev-slide ;] over click[]
!i18n l" " }}text' !lit 40%b
"" }}text 40%b dup to group-name
{{
}}h box[] dup to group-members
glue*l }}glue
}}h box[]
}}z box[]
{{
|
Changes to lang/de.
9 10 11 12 13 14 15 16 17 |
Spitznamen
Öffentlicher Schlüssel
Schlüsselsignaturdatum
Meine Schlüssel
Meine Gruppen
Meine Freunde
Posting
Senden
|
| |
9 10 11 12 13 14 15 16 17 |
Spitznamen
Öffentlicher Schlüssel
Schlüsselsignaturdatum
Meine Schlüssel
Meine Gruppen
Meine Freunde
Posting
Senden
|
Changes to lang/en.
9 10 11 12 13 14 15 16 17 |
Nick+Pet
Pubkey
Key date
My key
My groups
My peers
Post
Send
|
| |
9 10 11 12 13 14 15 16 17 |
Nick+Pet
Pubkey
Key date
My key
My groups
My peers
Post
Send
|
Changes to lang/zh.
9 10 11 12 13 14 15 16 17 |
昵称
公钥
关键签名日期
我的钥匙
我的集团
我的朋友
贴子
发送
|
| |
9 10 11 12 13 14 15 16 17 |
昵称
公钥
关键签名日期
我的钥匙
我的集团
我的朋友
贴子
发送
|
Changes to linux/net.fs.
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
...
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
REPEAT ;
\ renat handshale
0 Value netlink-task
Variable netlink-done? netlink-done? on
Variable netlink-again? netlink-again? off
event: :>netlink ( -- )
netlink-again? @ IF
netlink-done? off netlink-again? off #0. dht-beacon
ELSE netlink-done? on THEN ;
: renat-complete ( -- )
<event :>netlink netlink-task event> ;
\ netlink watchdog
2 constant netlink-wait#
................................................................................
netlink-done? @ IF
nat( ." dht-beacon" cr )
netlink-done? off netlink-again? off
beacons-now! !!0depth!!
ELSE
nat( ." netlink-again" cr ) netlink-again? on !!0depth!!
THEN
THEN
AGAIN ;
: create-netlink-task ( -- )
['] netlink-loop 1 net2o-task to netlink-task ;
:noname defers init-rest create-netlink-task ; is init-rest
|
>
>
>
>
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
...
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
REPEAT ;
\ renat handshale
0 Value netlink-task
Variable netlink-done? netlink-done? on
Variable netlink-again? netlink-again? off
Defer addr-changed ' noop is addr-changed
event: :>netlink ( -- )
netlink-again? @ IF
netlink-done? off netlink-again? off #0. dht-beacon
ELSE netlink-done? on THEN ;
event: :>addr-changed ( -- )
addr-changed ;
: renat-complete ( -- )
<event :>netlink netlink-task event> ;
\ netlink watchdog
2 constant netlink-wait#
................................................................................
netlink-done? @ IF
nat( ." dht-beacon" cr )
netlink-done? off netlink-again? off
beacons-now! !!0depth!!
ELSE
nat( ." netlink-again" cr ) netlink-again? on !!0depth!!
THEN
<event :>addr-changed [ up@ ]L event>
THEN
AGAIN ;
: create-netlink-task ( -- )
['] netlink-loop 1 net2o-task to netlink-task ;
:noname defers init-rest create-netlink-task ; is init-rest
|