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

7
Hermes/client.rkt
View File

@ -11,6 +11,10 @@
; we will prompt for these in the gui ; we will prompt for these in the gui
(define hermes-gui (make-gui)) ;; our gui
((hermes-gui 'show))
(define host3 "localhost") (define host3 "localhost")
(define port-num 4321) (define port-num 4321)
(define sleep-t 0.1) (define sleep-t 0.1)
@ -104,7 +108,8 @@
;(exit) ;(exit)
] ]
[(string? evt) [(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 [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)]))