--- a/UIPainter.st Thu Oct 29 09:47:35 2015 +0100
+++ b/UIPainter.st Thu Oct 29 15:17:56 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995-1998 by eXept Software AG
All Rights Reserved
@@ -5265,11 +5267,10 @@
self clearModified
!
-addWidget: aSpecClass
+addWidget: aSpecClassSymbol
"adds a widget from aSpecClass to the current widget"
- self addWidgetOfSpec: (Array with: (Smalltalk at: aSpecClass) new)
-
+ self addWidgetOfSpec: (Array with: (Smalltalk at: aSpecClassSymbol) new)
!
addWidgetOfSpec: aSpec