Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix chat lock with GUI |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b463747f632469175a1fa4a16eb36437 |
| User & Date: | bernd 2019-08-20 12:49:12.600 |
Context
|
2019-08-21
| ||
| 20:04 | Add preferrence ipv6/ipv4 switch for dht connection check-in: e961e252cc user: bernd tags: trunk | |
|
2019-08-20
| ||
| 12:49 | Fix chat lock with GUI check-in: b463747f63 user: bernd tags: trunk | |
|
2019-08-01
| ||
| 11:16 | Bump version number check-in: 5c0c46e21a user: bernd tags: trunk | |
Changes
Changes to gui.fs.
| ︙ | ︙ | |||
893 894 895 896 897 898 899 |
string ['] utf8-sanitize $tmp }}text _underline_ 25%bv
text-color!
[: data >o text$ o> open-url ;]
over click[]
click( ." url: " dup ..parents cr )
"url" name! msg-box .child+
; wmsg-class is msg:url
| | | 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 |
string ['] utf8-sanitize $tmp }}text _underline_ 25%bv
text-color!
[: data >o text$ o> open-url ;]
over click[]
click( ." url: " dup ..parents cr )
"url" name! msg-box .child+
; wmsg-class is msg:url
:noname ( d: string -- )
0 .v-dec$ dup IF
msg-key! msg-group-o .msg:+lock
{{
glue*l lock-color x-color slide-frame dup .button1
greenish l" chat is locked" }}text' 25%bv
}}z
ELSE 2drop
|
| ︙ | ︙ | |||
1027 1028 1029 1030 1031 1032 1033 |
reset-time
64#0 to last-tick last-bubble-pk $free
0 to msg-par 0 to msg-box
msgs-box .dispose-childs
glue*lll }}glue msgs-box .child+
2dup load-msg
msg-log@
| | | 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 |
reset-time
64#0 to last-tick last-bubble-pk $free
0 to msg-par 0 to msg-box
msgs-box .dispose-childs
glue*lll }}glue msgs-box .child+
2dup load-msg
msg-log@
{ log u } u gui-msgs# cells - 0 max { u' } log u' wmsg-o .?search-lock
log u u' /string bounds ?DO
I $@ { d: msgt }
msgt ['] wmsg-display wmsg-o .catch IF
<err> ." invalid entry" <default> 2drop
THEN
cell +LOOP
log free throw msgs-box >o resized vp-bottom o>
|
| ︙ | ︙ |