diff options
| author | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-23 12:54:34 -0400 |
|---|---|---|
| committer | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-23 12:54:34 -0400 |
| commit | 6890e2be729362ab8063acf40b19bdee64f49783 (patch) | |
| tree | af2bb3d95662042a1c742feade8f918e8d970eb4 | |
| parent | c6dd0311d43f14ce468b15f76afa0d4154f8ab8d (diff) | |
bug fix: improved responsiveness of GUI
| -rw-r--r-- | Hermes/client.rkt | 8 |
1 files 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)])) |