syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add #:label parameter to 2d-dataspace

This commit is contained in:
Tony Garnock-Jones 2016-08-31 19:10:59 +01:00
parent fb3ed65831
commit e76ccd31a2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/syndicate-gl/2d.rkt
View File

@ -392,7 +392,8 @@
(super-new (style '(gl no-autoclear)))))
(define ((2d-dataspace #:width [width #f]
(define ((2d-dataspace #:label [frame-label "syndicate-gl"]
#:width [width #f]
#:height [height #f]
#:exit? [exit? #t])
. boot-actions)
@ -400,7 +401,7 @@
(collect-garbage 'major)
(define frame (new frame%
[style '(fullscreen-button)]
[label "syndicate-gl"]
[label frame-label]
[width (or width 640)]
[height (or height 480)]))
(define c (new dataspace-canvas%