From e76ccd31a27786380f16634489d839781a4347f2 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 31 Aug 2016 19:10:59 +0100
Subject: [PATCH] Add #:label parameter to 2d-dataspace

---
 racket/syndicate-gl/2d.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/racket/syndicate-gl/2d.rkt b/racket/syndicate-gl/2d.rkt
index 493959b..cdba227 100644
--- a/racket/syndicate-gl/2d.rkt
+++ b/racket/syndicate-gl/2d.rkt
@@ -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%