author | Claus Gittinger <cg@exept.de> |
Wed, 05 Mar 2014 23:15:24 +0100 | |
changeset 3093 | 6cbe0ee42b96 |
parent 3092 | c327e636e6a3 |
child 3094 | 57d90e5e6605 |
TabListEditor.st | file | annotate | diff | comparison | revisions |
--- 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].