equal
deleted
inserted
replaced
1435 !TabListEditor methodsFor:'user actions'! |
1435 !TabListEditor methodsFor:'user actions'! |
1436 |
1436 |
1437 accept |
1437 accept |
1438 "accept changes |
1438 "accept changes |
1439 " |
1439 " |
1440 |tab idx asb| |
1440 |tab asb| |
1441 |
1441 |
1442 (tab := self selectedElement) notNil ifTrue:[ |
1442 (tab := self selectedElement) notNil ifTrue:[ |
1443 super accept. |
1443 super accept. |
1444 aspects keysAndValuesDo:[:k :m| tab perform:(k , ':') asSymbol with:(m value) ]. |
1444 aspects keysAndValuesDo:[:k :m| tab perform:k asMutator with:(m value) ]. |
1445 |
1445 |
1446 asb := self autoHideScrollBars value. |
1446 asb := self autoHideScrollBars value. |
1447 asb := asb ~~ 1 ifTrue:[asb == 2] ifFalse:[nil]. |
1447 asb := asb ~~ 1 ifTrue:[asb == 2] ifFalse:[nil]. |
1448 tab autoHideScrollBars:asb. |
1448 tab autoHideScrollBars:asb. |
1449 ]. |
1449 ]. |