mirror of
https://github.com/lxsang/Diya-API.git
synced 2024-12-27 03:48:21 +01:00
57 lines
972 B
Smalltalk
57 lines
972 B
Smalltalk
Class {
|
|
#name : #DiyaButton,
|
|
#superclass : #DiyaWidget,
|
|
#instVars : [
|
|
'label',
|
|
'rec'
|
|
],
|
|
#category : #'Diya-Widgets'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
DiyaButton class >> text: string [
|
|
^ self new text: string; yourself
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaButton >> icon: ico [
|
|
label icon: ico.
|
|
label setDirty.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaButton >> iconSize: size [
|
|
label iconSize: size.
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
DiyaButton >> initialize [
|
|
super initialize.
|
|
style
|
|
set:#textAlign value: #center;
|
|
set:#textVAlign value: #middle;
|
|
set:#border value: 1.
|
|
rec := self addNode: (DiyaRectangle new).
|
|
label := self addNode: (DiyaLabel new).
|
|
label txt
|
|
wordWrap: false.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaButton >> label [
|
|
^ label
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaButton >> text: string [
|
|
label txt: string.
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
DiyaButton >> update [
|
|
rec extent: self extent.
|
|
label position: 0@0.
|
|
label extent: self extent.
|
|
^true
|
|
]
|