TabListEditor.st
changeset 3093 6cbe0ee42b96
parent 3074 fffb59f18195
child 3118 d0e78fb8d796
--- a/TabListEditor.st	Wed Mar 05 23:14:25 2014 +0100
+++ b/TabListEditor.st	Wed Mar 05 23:15:24 2014 +0100
@@ -1437,11 +1437,11 @@
 accept
     "accept changes
     "
-    |tab idx asb|
+    |tab asb|
 
     (tab := self selectedElement) notNil ifTrue:[
         super accept.
-        aspects keysAndValuesDo:[:k :m| tab perform:(k , ':') asSymbol with:(m value) ].
+        aspects keysAndValuesDo:[:k :m| tab perform:k asMutator with:(m value) ].
 
         asb := self autoHideScrollBars value.
         asb := asb ~~ 1 ifTrue:[asb == 2] ifFalse:[nil].