Primer Componente con Seaside

mahuel.st

WAComponent subclass: #D3f0Contador
	instanceVariableNames: 'contador'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'nahuel'!
!D3f0Contador commentStamp: 'NahuelDefosse 9/27/2011 18:16' prior: 0!
Probando el ejemplo de diógenes :)

Instance Variables:
	contador	<Number>!


!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 16:30'!
canBeRoot
	^ true.! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 18:07'!
decrementarContador
	contador := contador -1! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 17:00'!
hacerAlgo
	contador := contador + 1.! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 18:04'!
incrementarContador
	contador := contador +1! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 19:02'!
renderContentOn: html
	""
	html heading: 'Un Componente Contador' level: 3.
	html div: [
		html paragraph: 'El valor del contador es ', self contador asString.
		html unorderedList: [
			html listItem: [html anchor callback: [ self incrementarContador ]; with: '+'].
			contador > 0 ifTrue: [
				html listItem: [ html anchor callback: [ self decrementarContador ]; with: '-' ].
			] ifFalse: [
				html listItem: [html text: 'El contador no puede decremntarse por debajo de 0,' ]
			 ]
		].
		
		
		
		
	]! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 17:34'!
style
	^ '
	BODY {
		font-family: "Verdana";
		font-size: 13px;
	}

	'	! !


!D3f0Contador methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 17:03'!
contador
	^ contador! !

!D3f0Contador methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 17:03'!
contador: anObject
	contador := anObject! !

!D3f0Contador methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 17:04'!
initialize
	super initialize .
	contador := 1.! !

WAComponent subclass: #D3f0Index
instanceVariableNames: 'conardor1 contador2'
classVariableNames: ''
poolDictionaries: ''
category: 'nahuel'!

!D3f0Index methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 19:36'!
canBeRoot
^ true.! !

!D3f0Index methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 20:06'!
children
" Esto hace que busque los estilos CSS de los subcompoenentes :) "
^ OrderedCollection new add: self conardor1; add: self contador2; yourself.! !

!D3f0Index methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 19:54'!
initialize
super initialize .
conardor1 := D3f0Contador new.
contador2 := D3f0Contador new.! !

!D3f0Index methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 20:15'!
library
^ D3f0Estatico ! !

!D3f0Index methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 19:59'!
renderContentOn: html
html div class: 'wrapper'; with: [
self conardor1 renderContentOn: html.
self contador2 renderContentOn: html.
]! !

!D3f0Index methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 22:13'!
style
^ '
BODY {
font-family: "Verdana";
font-size: 13px;
}

'! !

!D3f0Index methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 19:37'!
conardor1
^ conardor1! !

!D3f0Index methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 19:37'!
conardor1: anObject
conardor1 := anObject! !

!D3f0Index methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 19:37'!
contador2
^ contador2! !

!D3f0Index methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 19:37'!
contador2: anObject
contador2 := anObject! !


WAComponent subclass: #D3f0Contador
instanceVariableNames: 'contador'
classVariableNames: ''
poolDictionaries: ''
category: 'nahuel'!
!D3f0Contador commentStamp: 'NahuelDefosse 9/27/2011 18:16' prior: 0!
Probando el ejemplo de diógenes :)

Instance Variables:
contador !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 16:30'!
canBeRoot
^ true.! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 18:07'!
decrementarContador
contador := contador -1! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/28/2011 11:08'!
enableDecrease
^ contador > 0.! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 17:00'!
hacerAlgo
contador := contador + 1.! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 18:04'!
incrementarContador
contador := contador +1! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/28/2011 11:08'!
renderContentOn: html
" Renderiza el contenido del contador"

| i |
(html div)
    class: 'contador-wrapper';
    with: [ 
                (html paragraph)
                    class: 'contador-titulo';
                    with: 'Un Componente Contador'.
                html text: 'El valor del contador es '.
                html text: self contador asString.
                html
                    unorderedList: [ 
                        html
                            listItem: [ 
                                (html anchor)
                                    callback: [ self incrementarContador ];
                                    with: '+' ].
                        self enableDecrease 
                            ifTrue: [ 
                                html
                                    listItem: [ 
                                        (html anchor)
                                            callback: [ self decrementarContador ];
                                            with: '-' ] ]
                            ifFalse: [ html listItem: [ html text: 'El contador no puede decremntarse por debajo de 0,' ] ] ].  "Ahora a poner unos cuadraditos"
                self renderStarsOn: html ]! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/28/2011 11:06'!
renderStarsOn: html
" Renderiza estellitas"

| i |
i := 0.
html
    table class: 'stars'; with: [ 
        html
            tableRow: [ 
                [ i < contador ]
                    whileTrue: [ 
                        html tableData: 'x'.
                        i := i + 1 ] ] ]! !

!D3f0Contador methodsFor: 'as yet unclassified' stamp: 'NahuelDefosse 9/27/2011 22:14'!
style
^ '
.contador-wrapper {
border: 1px solid #ccc;
width: 500px;
}
.contador-wrapper .contador-titulo {
padding: 0px;
margin: 0px;
background: #ccc;
color: red;
}
.contador-wrapper .p {
padding: 0px;
margin: 0px;

}
'   ! !

!D3f0Contador methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 17:03'!
contador
^ contador! !

!D3f0Contador methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 17:03'!
contador: anObject
contador := anObject! !

!D3f0Contador methodsFor: 'accessing' stamp: 'NahuelDefosse 9/27/2011 17:04'!
initialize
super initialize .
contador := 1.! !


WAFileLibrary subclass: #D3f0Estatico
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'nahuel'!