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 |
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
900
901
902
903
904
905
906
907
....
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
|
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 -- o )
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
................................................................................
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' ?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>
|
|
|
|
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
....
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
|
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
................................................................................
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>
|