fix name of Basic style in style-list<%>

svn: r17878
2010-01-29 00:14:06 +00:00 · 2010-01-29 00:14:06 +00:00 · 5270fcbc6c
commit 5270fcbc6c
parent a6d89438a7
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wxme/style.ss
+++ b/collects/mred/private/wxme/style.ss
@ -621,7 +621,7 @@
  (define/public (s-set-as-basic slist)
    (set! style-list slist)

-    (set! name "basic")
+    (set! name "Basic")
    (set! base-style #f)

    (set! nonjoin-delta (new style-delta%))