Add #:label parameter to 2d-dataspace
This commit is contained in:
parent
fb3ed65831
commit
e76ccd31a2
|
@ -392,7 +392,8 @@
|
||||||
|
|
||||||
(super-new (style '(gl no-autoclear)))))
|
(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]
|
#:height [height #f]
|
||||||
#:exit? [exit? #t])
|
#:exit? [exit? #t])
|
||||||
. boot-actions)
|
. boot-actions)
|
||||||
|
@ -400,7 +401,7 @@
|
||||||
(collect-garbage 'major)
|
(collect-garbage 'major)
|
||||||
(define frame (new frame%
|
(define frame (new frame%
|
||||||
[style '(fullscreen-button)]
|
[style '(fullscreen-button)]
|
||||||
[label "syndicate-gl"]
|
[label frame-label]
|
||||||
[width (or width 640)]
|
[width (or width 640)]
|
||||||
[height (or height 480)]))
|
[height (or height 480)]))
|
||||||
(define c (new dataspace-canvas%
|
(define c (new dataspace-canvas%
|
||||||
|
|
Loading…
Reference in New Issue