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

minor configs for demo

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-24 11:07:36 -04:00
parent 26c9029401
commit fe0bfe15dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Hermes/GUI.rkt
View File

@ -259,7 +259,7 @@
(define (prompt-hostname) (define (prompt-hostname)
(define returned (get-text-from-user "Hostname set-up" "Please enter a hostname" (define returned (get-text-from-user "Hostname set-up" "Please enter a hostname"
main-frame "localhost" (list 'disallow-invalid) main-frame "67.186.191.81" (list 'disallow-invalid)
#:validate #:validate
(lambda (input) (lambda (input)
(if (and (string? input) (<= (string-length input) 50) (if (and (string? input) (<= (string-length input) 50)