fix a bug in the handling/setup of definitions-canvas

This commit is contained in:
Robby Findler 2014-04-05 08:02:02 -05:00 committed by Matthew Flatt
parent 1f7f0af1f3
commit 7f7428b1e6

View File

@ -4405,6 +4405,7 @@
;
;
(define definitions-canvas #f)
(define definitions-text (new (drracket:get/extend:get-definitions-text)))
;; tabs : (listof tab)
@ -4491,7 +4492,6 @@
(unit-frame this)
(parent panel-with-tabs))]
[define definitions-canvas #f]
(initialize-definitions-canvas)
[define definitions-canvases (list definitions-canvas)]
[define interactions-canvas (new (drracket:get/extend:get-interactions-canvas)