mirror of
https://github.com/lxsang/Diya-API.git
synced 2024-12-27 03:48:21 +01:00
56 lines
1.1 KiB
Smalltalk
56 lines
1.1 KiB
Smalltalk
Class {
|
|
#name : #DiyaLabel,
|
|
#superclass : #DiyaWidget,
|
|
#instVars : [
|
|
'txt',
|
|
'icon'
|
|
],
|
|
#category : #'Diya-Widgets'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
DiyaLabel >> applyStyle [
|
|
txt color: style color.
|
|
txt fontName: style fontFamily style: style fontStyle size: style fontSize.
|
|
txt wordWrap: true.
|
|
icon ifNotNil: [
|
|
icon color: style color.
|
|
icon fontSize: style fontSize
|
|
].
|
|
"update extent"
|
|
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaLabel >> icon [
|
|
^ icon
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaLabel >> icon: anObject [
|
|
icon := nil.
|
|
anObject isNumber ifTrue: [ icon := root addNode: (DiyaFontIcon data: anObject) ].
|
|
anObject isString ifTrue: [ icon := root addNode: (DiyaImageView from: anObject)].
|
|
icon ifNil: [ ^ DiyaCoreAPIError signal: 'Invalid icon identification'].
|
|
dirty := true.
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
DiyaLabel >> initialize [
|
|
super initialize.
|
|
txt := root addNode:(DiyaText new).
|
|
icon := nil.
|
|
self extent: 0@0.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaLabel >> txt [
|
|
^ txt
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaLabel >> txt: anObject [
|
|
txt data: anObject.
|
|
dirty := true
|
|
]
|