diff --git a/src/MooseIDE-CoUsageMap/MiCoUsageMapBlockSettingsPresenter.class.st b/src/MooseIDE-CoUsageMap/MiCoUsageMapBlockSettingsPresenter.class.st index 31d9004b..dc23285a 100644 --- a/src/MooseIDE-CoUsageMap/MiCoUsageMapBlockSettingsPresenter.class.st +++ b/src/MooseIDE-CoUsageMap/MiCoUsageMapBlockSettingsPresenter.class.st @@ -15,27 +15,6 @@ Class { #category : #'MooseIDE-CoUsageMap-Settings' } -{ #category : #layout } -MiCoUsageMapBlockSettingsPresenter class >> defaultLayout [ - ^ SpBoxLayout newTopToBottom - spacing: 3; - add: 'Children block:' asPresenter expand: false; - add: #childrenTextInput height: 200; - add: 'Outer box sort block:' asPresenter expand: false; - add: #sortOuterBoxTextInput height: 170; - add: 'Inner box sort block:' asPresenter expand: false; - add: #sortInnerBoxTextInput height: 170; - add: (SpBoxLayout newLeftToRight - hAlignCenter; - borderWidth: 5; - addLast: (SpBoxLayout newLeftToRight - add: #button; - add: #resetButton; - yourself) expand: false; - yourself) expand: false; - yourself -] - { #category : #'accessing - private tests' } MiCoUsageMapBlockSettingsPresenter >> applyButton [ @@ -58,6 +37,34 @@ MiCoUsageMapBlockSettingsPresenter >> connectPresenters [ sortInnerBoxTextInput text: set innerBoxSortBlockText. ] +{ #category : #layout } +MiCoUsageMapBlockSettingsPresenter >> defaultLayout [ + ^ SpBoxLayout newTopToBottom + spacing: 3; + + add: 'Children block:' asPresenter expand: false ; + add: childrenTextInput height: 200 ; + + add: 'Outer box sort block:' asPresenter expand: false ; + add: sortOuterBoxTextInput height: 170 ; + + add: 'Inner box sort block:' asPresenter expand: false ; + add: sortInnerBoxTextInput height: 170 ; + + add: (SpBoxLayout newLeftToRight + hAlignCenter; + borderWidth: 5; + addLast: (SpBoxLayout newLeftToRight + add: applyButton ; + add: resetButton ; + yourself) + expand: false; + yourself) + expand: false; + + yourself +] + { #category : #initialization } MiCoUsageMapBlockSettingsPresenter >> initializeButtons [ applyButton := self newButton