class: TabListEditor
authorClaus Gittinger <cg@exept.de>
Wed, 05 Mar 2014 23:15:24 +0100
changeset 3093 6cbe0ee42b96
parent 3092 c327e636e6a3
child 3094 57d90e5e6605
class: TabListEditor changed: #accept use asMutator instead of (a,':') asSymbol
TabListEditor.st
--- 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].