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> |
︙ | ︙ |