equal
deleted
inserted
replaced
564 |
564 |
565 |holder| |
565 |holder| |
566 |
566 |
567 (holder := builder bindingAt:#selectionOfClassPresentation) isNil ifTrue:[ |
567 (holder := builder bindingAt:#selectionOfClassPresentation) isNil ifTrue:[ |
568 builder aspectAt:#selectionOfClassPresentation put:(holder := RadioButtonGroup with: (ClassPresentation := ClassPresentation ? #'Class Categories')). |
568 builder aspectAt:#selectionOfClassPresentation put:(holder := RadioButtonGroup with: (ClassPresentation := ClassPresentation ? #'Class Categories')). |
569 holder onChangeSend: #value to: |
569 holder onChangeEvaluate: |
570 [ |
570 [ |
571 |hv comp newRoot| |
571 |hv comp newRoot| |
572 |
572 |
573 hv := holder value. |
573 hv := holder value. |
574 ClassPresentation := hv. |
574 ClassPresentation := hv. |