| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181 |
- Smalltalk current createPackage: 'Moka-Views'!
- MKAspectView subclass: #MKButtonView
- instanceVariableNames: 'default label'
- package: 'Moka-Views'!
- !MKButtonView commentStamp!
- I am a push button view. My default controller is `MKButtonController`.
- My controller must answer to `#onPressed`.
- ## API
- - Instances can be set a `default` button
- - Use `#label:` to set the label string!
- !MKButtonView methodsFor: 'accessing'!
- cssClass
- ^ self isDefault
- ifTrue: [ 'default' ]
- ifFalse: [ '' ]
- !
- default
- ^ default
- !
- default: aBoolean
- default := aBoolean
- !
- label
- ^ label ifNil: [ self defaultLabel ]
- !
- label: aString
- label := aString
- ! !
- !MKButtonView methodsFor: 'defaults'!
- defaultControllerClass
- ^ MKButtonController
- !
- defaultLabel
- ^ 'OK'
- ! !
- !MKButtonView methodsFor: 'events'!
- pressed
- self controller onPressed
- ! !
- !MKButtonView methodsFor: 'rendering'!
- renderContentOn: html
- html button
- class: self cssClass;
- with: self label;
- onClick: [ self pressed ]
- ! !
- !MKButtonView methodsFor: 'testing'!
- isDefault
- ^ self default ifNil: [ false ]
- ! !
- MKAspectView subclass: #MKCheckboxView
- instanceVariableNames: 'label'
- package: 'Moka-Views'!
- !MKCheckboxView commentStamp!
- I am a checkbox view. My default controller is `MKCheckboxController`.
- My controller must answer to `#onToggled:`.
- ##API
- - If no `aspect` is provided, the ckeckbox state will always be off.
- - use `#label:` to set the label string.!
- !MKCheckboxView methodsFor: 'accessing'!
- checked
- ^ self aspectValue ifNil: [ false ]
- ! !
- !MKCheckboxView methodsFor: 'defaults'!
- defaultControllerClass
- ^ MKCheckboxController
- ! !
- !MKCheckboxView methodsFor: 'events'!
- pressed
- self controller onToggled: self checked not
- ! !
- !MKCheckboxView methodsFor: 'rendering'!
- label
- ^ label ifNil: [ '' ]
- !
- label: aString
- label := aString
- !
- renderContentOn: html
- | checkbox |
-
- checkbox := html input
- type: 'checkbox';
- value: self label;
- onClick: [ self pressed ].
-
- self checked ifTrue: [
- checkbox at: 'checked' put: 'checked' ]
- ! !
- MKAspectView subclass: #MKInputView
- instanceVariableNames: 'input'
- package: 'Moka-Views'!
- !MKInputView commentStamp!
- I am an input view. My default controller is `MKInputController`.
- My controller must answer to `#onEnterPressed:`.!
- !MKInputView methodsFor: 'accessing'!
- value
- ^ input asJQuery val
- ! !
- !MKInputView methodsFor: 'defaults'!
- defaultControllerClass
- ^ MKInputController
- ! !
- !MKInputView methodsFor: 'events'!
- enterPressed
- self controller onEnterPressed: self value
- !
- keyDown: anEvent
- anEvent keyCode = String cr asciiValue ifTrue: [
- self enterPressed ]
- ! !
- !MKInputView methodsFor: 'rendering'!
- renderContentOn: html
- input := html input
- value: self aspectValue;
- onKeyDown: [ :event |
- self keyDown: event ];
- yourself
- ! !
- MKAspectView subclass: #MKLabelView
- instanceVariableNames: 'input'
- package: 'Moka-Views'!
- !MKLabelView commentStamp!
- I am an label view. I display a `String`.!
- !MKLabelView methodsFor: 'defaults'!
- defaultControllerClass
- ^ super defaultControllerClass
- ! !
- !MKLabelView methodsFor: 'rendering'!
- renderContentOn: html
- html with: self aspectValue
- ! !
|
