Verified Commit c0bd7dd4 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Fix chat lock with GUI

parent 504daf86

gui.fs

+2 −2
Original line number Diff line number Diff line
@@ -897,7 +897,7 @@ Variable emojis$ "👍👎🤣😍😘😛🤔😭😡😱🔃" emojis$ $! \ 
    click( ." url: " dup ..parents cr )

    "url" name! msg-box .child+

; wmsg-class is msg:url

:noname ( d: string -- o )

:noname ( d: string -- )

    0 .v-dec$ dup IF

	msg-key!  msg-group-o .msg:+lock

	{{
@@ -1031,7 +1031,7 @@ wmsg-o >o msg-table @ token-table ! o> 
    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 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