From 6890e2be729362ab8063acf40b19bdee64f49783 Mon Sep 17 00:00:00 2001 From: Ibrahim Mkusa Date: Sun, 23 Apr 2017 12:54:34 -0400 Subject: [PATCH] bug fix: improved responsiveness of GUI --- Hermes/client.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Hermes/client.rkt b/Hermes/client.rkt index e955027..91e9991 100644 --- a/Hermes/client.rkt +++ b/Hermes/client.rkt @@ -97,9 +97,9 @@ ;; read, quits when user types in "quit" ;; TODO read from GUI instead ;(define input (read-line)) - (semaphore-wait hermes-gui-s) + ;(semaphore-wait hermes-gui-s) (define input ((hermes-gui 'get-message))) - (semaphore-post hermes-gui-s) + ;(semaphore-post hermes-gui-s) ; TODO prompt for color as well ; TODO /quit instead of quit @@ -134,9 +134,9 @@ (displayln-safe evt convs-out-s convs-out) ; TODO set color to current client if the message is from him ; otherwise set it to the remote - (semaphore-wait hermes-gui-s) + ;(semaphore-wait hermes-gui-s) (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 [else (displayln-safe (string-append "Nothing received from server for 2 minutes.") convs-out-s convs-out)]))