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

beginning merge process

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-23 01:36:46 -04:00
parent 4c508fec11
commit 63a3757f67
2 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Hermes/Hermes_Gui1.3.rkt
View File

@ -8,13 +8,15 @@
;and the color as a string
;Object stuff
; TODO make different objects threadable send button vs text area vs canvas
; TODO gui is just a relay remember
(provide make-gui)
(define (make-gui)
;;Create the frame/window with title "Example5", width 500 and height 700
(define main-frame (new frame%
[label "Example5"]
[label "Hermes"]
[width 500]
[height 700]
))
@ -147,6 +149,12 @@
(update-helper (cdr given-list))))))
;;Variables go below functions
; for interfacing with outside elements
(define gui-input-in-s '())
(define gui-input-out-s '())
(define gui-input-in '())
(define gui-input-out '())
(define name "Me")
(define min-h-size 80)
(define min-v-size 30)
@ -157,16 +165,22 @@
(define height 15) ; height between messages drawn on the screen
;;dispatch goes below that
;; TODO get username function maybe
(define (dispatch command)
(cond ((eq? command 'show) (send main-frame show #t))
((eq? command 'send) send-message)
; show gui should return the users the name as well as its first message
; to be called
(cond ((eq? command 'show) (lambda () (send main-frame show #t)))
((eq? command 'gui-input-port))
((eq? command 'send) send-message) ;; call to show a message in a gui
((eq? command 'set-name) (lambda (newname) (if (string? newname)
(set! name newname)
(print "Thats not good"))))
((eq? command 'recieve-message) user-message)
((eq? command 'get-list) listy)
((eq? command 'set-list) update)
; ((eq? command 'recieve-message) user-message)
; ((eq? command 'get-list) listy)
; ((eq? command 'set-list) update)
;;Something up with that
; else should assume a message and output to screen we do not want it
; to fail
(else (error "Invalid Request" command))
))
;;dispatch goes below that

7
Hermes/client.rkt
View File

@ -11,6 +11,10 @@
; we will prompt for these in the gui
(define hermes-gui (make-gui)) ;; our gui
((hermes-gui 'show))
(define host3 "localhost")
(define port-num 4321)
(define sleep-t 0.1)
@ -104,7 +108,8 @@
;(exit)
]
[(string? evt)
(displayln-safe evt convs-out-s convs-out)] ; could time stamp here or to send message
(displayln-safe evt convs-out-s convs-out)
((hermes-gui 'send) evt "black")] ; 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)]))