Fixed another bug found with random testing

svn: r18583
This commit is contained in:
Casey Klein 2010-03-19 14:08:48 +00:00
parent 1c72ed7a20
commit a004964297

View File

@ -399,7 +399,8 @@
(send new-list notify-on-change (lambda (which) (style-has-changed which))))
(set! s-style-list new-list)
;; create "Standard" if it's not there:
(send s-style-list new-named-style "Standard" (send s-style-list basic-style)))
(send s-style-list new-named-style "Standard" (send s-style-list basic-style))
(void))
(define/public (style-has-changed which) (void))