iskm/Hermes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fix: improved responsiveness of GUI

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-23 12:54:34 -04:00
parent c6dd0311d4
commit 6890e2be72
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Hermes/client.rkt
View File

@ -97,9 +97,9 @@
;; read, quits when user types in "quit" ;; read, quits when user types in "quit"
;; TODO read from GUI instead ;; TODO read from GUI instead
;(define input (read-line)) ;(define input (read-line))
(semaphore-wait hermes-gui-s) ;(semaphore-wait hermes-gui-s)
(define input ((hermes-gui 'get-message))) (define input ((hermes-gui 'get-message)))
(semaphore-post hermes-gui-s) ;(semaphore-post hermes-gui-s)
; TODO prompt for color as well ; TODO prompt for color as well
; TODO /quit instead of quit ; TODO /quit instead of quit
@ -134,9 +134,9 @@
(displayln-safe evt convs-out-s convs-out) (displayln-safe evt convs-out-s convs-out)
; TODO set color to current client if the message is from him ; TODO set color to current client if the message is from him
; otherwise set it to the remote ; otherwise set it to the remote
(semaphore-wait hermes-gui-s) ;(semaphore-wait hermes-gui-s)
(send-to-gui evt ((hermes-gui 'get-color))) (send-to-gui evt ((hermes-gui 'get-color)))
(semaphore-post hermes-gui-s) ;(semaphore-post hermes-gui-s)
] ; could time stamp here or to send message ] ; could time stamp here or to send message
[else [else
(displayln-safe (string-append "Nothing received from server for 2 minutes.") convs-out-s convs-out)])) (displayln-safe (string-append "Nothing received from server for 2 minutes.") convs-out-s convs-out)]))