/
LabelledPresenter.class.st
109 lines (92 loc) · 2.48 KB
/
LabelledPresenter.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
"
Description
--------------------
A LabelledPresenter is a simple presenter to display an input with a label and optionnaly a description.
Example:
self instantiate: (LabelledPresenter label: 'Email' input: self newTextInput description: 'Email adress to use to send activation and informations emails.')
"
Class {
#name : #LabelledPresenter,
#superclass : #ComposablePresenter,
#instVars : [
'input',
'descriptionPresenter',
'labelPresenter'
],
#category : #'Spec-PolyWidgets-Labelled'
}
{ #category : #specs }
LabelledPresenter class >> defaultSpec [
^ SpecLayout composed
newRow: [ :row |
row
newColumn: [ :c |
c
newRow: [ :r | r add: #labelPresenter ] height: self inputTextHeight;
addSpacer ]
width: self labelWidth;
newColumn: [ :c |
c
newRow: [ :r | r add: #input ] height: self inputTextHeight;
newRow: [ :r | r add: #descriptionPresenter ] height: self inputTextHeight ] ]
height: self labelledPresenterHeight;
yourself
]
{ #category : #'instance creation' }
LabelledPresenter class >> label: aString input: aPresenter [
^ self label: aString input: aPresenter description: nil
]
{ #category : #'instance creation' }
LabelledPresenter class >> label: aString input: aPresenter description: anotherString [
^ self new
label: aString;
input: aPresenter;
description: anotherString;
yourself
]
{ #category : #specs }
LabelledPresenter class >> title [
^ 'Labelled presenter'
]
{ #category : #accessing }
LabelledPresenter >> description: aString [
aString ifNil: [ ^ self ].
descriptionPresenter := self newLabel
label: aString;
emphasis: #italic;
yourself
]
{ #category : #accessing }
LabelledPresenter >> descriptionPresenter [
^ descriptionPresenter
]
{ #category : #accessing }
LabelledPresenter >> descriptionPresenter: anObject [
descriptionPresenter := anObject
]
{ #category : #initialization }
LabelledPresenter >> initializeWidgets [
labelPresenter := self newLabel.
descriptionPresenter := self newNullPresenter. "By default it is null"
]
{ #category : #accessing }
LabelledPresenter >> input [
^ input
]
{ #category : #accessing }
LabelledPresenter >> input: anObject [
input := anObject.
self focusOrder add: input
]
{ #category : #accessing }
LabelledPresenter >> label: aString [
labelPresenter label: aString
]
{ #category : #accessing }
LabelledPresenter >> labelPresenter [
^ labelPresenter
]
{ #category : #accessing }
LabelledPresenter >> labelPresenter: anObject [
labelPresenter := anObject
]