18170905999

Committed 01 Oct 2025 05:50PM UTC coverage: 66.82% (-0.1%) from 66.941%

Build # 18170905999

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #1440 from moosetechnology/corese-work

Adding TextAreaSettingPresenter

Run Details

0 of 51 new or added lines in 1 file covered. (0.0%)

3 existing lines in 1 file now uncovered.

20582 of 30802 relevant lines covered (66.82%)

1.34 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0

/src/MooseIDE-Core/MiTextAreaSettingPresenter.class.st

Class {
        #name : 'MiTextAreaSettingPresenter',
        #superclass : 'MiAbstractSettingPresenter',
        #instVars : [
                'inputField',
                'inputFieldWidth',
                'inputFieldHeight'
        ],
        #category : 'MooseIDE-Core-Settings',
        #package : 'MooseIDE-Core',
        #tag : 'Settings'
}

{ #category : 'accessing' }
MiTextAreaSettingPresenter >> defaultInputFieldHeight [
        "about 3 lines"

        ^60
]

{ #category : 'accessing' }
MiTextAreaSettingPresenter >> defaultInputFieldWidth [

        ^200
]

{ #category : 'layout' }
MiTextAreaSettingPresenter >> defaultLayout [

        ^ self newBoxLayoutLeftToRight
                add: inputField withConstraints: [ :constraints |
                        constraints
                                expand: true ;
                                fill: true ;
                                width: self inputFieldWidth ;
                                height: self inputFieldHeight
                ] ;
                yourself
]

{ #category : 'initialization' }
MiTextAreaSettingPresenter >> initializePresenters [

        inputField := self newText
                help: self help;
                yourself.
]

{ #category : 'accessing' }
MiTextAreaSettingPresenter >> inputFieldHeight [

        ^inputFieldHeight ifNil: [ self defaultInputFieldHeight ]
]

{ #category : 'accessing' }
MiTextAreaSettingPresenter >> inputFieldHeight: aNumber [

        inputFieldHeight := aNumber
]

{ #category : 'accessing' }
MiTextAreaSettingPresenter >> inputFieldWidth [

        ^inputFieldWidth ifNil: [ self defaultInputFieldWidth ]
]

{ #category : 'accessing' }
MiTextAreaSettingPresenter >> inputFieldWidth: aNumber [

        inputFieldWidth := aNumber
]

{ #category : 'accessing' }
MiTextAreaSettingPresenter >> text: aString [

        inputField text: aString 
]

{ #category : 'enumerating' }
MiTextAreaSettingPresenter >> whenTextChangedDo: aBlock [

        inputField whenTextChangedDo: aBlock
]

1	Class {
2	#name : 'MiTextAreaSettingPresenter',
3	#superclass : 'MiAbstractSettingPresenter',
4	#instVars : [
5	'inputField',
6	'inputFieldWidth',
7	'inputFieldHeight'
8	],
9	#category : 'MooseIDE-Core-Settings',
10	#package : 'MooseIDE-Core',
11	#tag : 'Settings'
12	}
13
14	{ #category : 'accessing' }
NEW 15	MiTextAreaSettingPresenter >> defaultInputFieldHeight [	×
NEW 16	"about 3 lines"	×
NEW 17		×
NEW 18	^60	×
NEW 19	]	×
20
21	{ #category : 'accessing' }
NEW 22	MiTextAreaSettingPresenter >> defaultInputFieldWidth [	×
NEW 23		×
NEW 24	^200	×
NEW 25	]	×
26
27	{ #category : 'layout' }
NEW 28	MiTextAreaSettingPresenter >> defaultLayout [	×
NEW 29		×
NEW 30	^ self newBoxLayoutLeftToRight	×
NEW 31	add: inputField withConstraints: [ :constraints \|	×
NEW 32	constraints	×
NEW 33	expand: true ;	×
NEW 34	fill: true ;	×
NEW 35	width: self inputFieldWidth ;	×
NEW 36	height: self inputFieldHeight	×
NEW 37	] ;	×
NEW 38	yourself	×
NEW 39	]	×
40
41	{ #category : 'initialization' }
NEW 42	MiTextAreaSettingPresenter >> initializePresenters [	×
NEW 43		×
NEW 44	inputField := self newText	×
NEW 45	help: self help;	×
NEW 46	yourself.	×
NEW 47	]	×
48
49	{ #category : 'accessing' }
NEW 50	MiTextAreaSettingPresenter >> inputFieldHeight [	×
NEW 51		×
NEW 52	^inputFieldHeight ifNil: [ self defaultInputFieldHeight ]	×
NEW 53	]	×
54
55	{ #category : 'accessing' }
NEW 56	MiTextAreaSettingPresenter >> inputFieldHeight: aNumber [	×
NEW 57		×
NEW 58	inputFieldHeight := aNumber	×
NEW 59	]	×
60
61	{ #category : 'accessing' }
NEW 62	MiTextAreaSettingPresenter >> inputFieldWidth [	×
NEW 63		×
NEW 64	^inputFieldWidth ifNil: [ self defaultInputFieldWidth ]	×
NEW 65	]	×
66
67	{ #category : 'accessing' }
NEW 68	MiTextAreaSettingPresenter >> inputFieldWidth: aNumber [	×
NEW 69		×
NEW 70	inputFieldWidth := aNumber	×
NEW 71	]	×
72
73	{ #category : 'accessing' }
NEW 74	MiTextAreaSettingPresenter >> text: aString [	×
NEW 75		×
NEW 76	inputField text: aString	×
NEW 77	]	×
78
79	{ #category : 'enumerating' }
NEW 80	MiTextAreaSettingPresenter >> whenTextChangedDo: aBlock [	×
NEW 81		×
NEW 82	inputField whenTextChangedDo: aBlock	×
NEW 83	]	×

moosetechnology / MooseIDE / 18170905999

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous