Resolvi escrever um avaliador simples de expressões Smalltalk e de expressões para geração de páginas no Seaside (mensagens para o WARenderCanvas).

A interface para o avaliador de expressões em Smalltalk:

A interface para o avaliador de expressões para renderização de componentes:

A solução se baseia principalmente nos métodos:

EVASmalltalkEvaluator>>evaluate: aExpression
    ^ [Compiler evaluate: aExpression] on: Error do: [:error | error]</pre>

EVASeasideCanvasEvaluator>>evaluate: aExpression
    ^ super evaluate: (self wrappedWithCanvas: aExpression)

EVASeasideCanvasEvaluator>>wrappedWithCanvas: aExpression
    ^ 'WARenderCanvas builder render: [:html| ', aExpression , ']'

O file-out completo segue abaixo:

WAComponent subclass: #EVABaseEvaluator
	instanceVariableNames: 'expression result'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Evaluator-Core'!

!EVABaseEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 12:51'!
evaluate: aExpression
	self subclassResponsibility ! !

!EVABaseEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 13:53'!
example
	self subclassResponsibility ! !

!EVABaseEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 12:07'!
renderContentOn: html
	html heading: self evaluatorName.
	html horizontalRule .
	html form: [
		self renderExpressionAreaOn: html.
		self renderEvaluateButtonOn: html.
		self renderResultAreaOn: html
		]! !

!EVABaseEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 12:41'!
renderEvaluateButtonOn: html
	html submitButton with: 'Evaluate' ! !

!EVABaseEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 13:52'!
renderExpressionAreaOn: html
	html textArea
	value: self expression;
	callback: [:value| self expression: value. self result: (self evaluate: self expression)];
	with: 'Enter expression here. Example: ', self example.! !

!EVABaseEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 12:44'!
renderResultAreaOn: html
	html textArea value: self result; with: 'Result goes here'! !

!EVABaseEvaluator methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 12:19'!
expression
	^ expression! !

!EVABaseEvaluator methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 12:19'!
expression: anObject
	expression := anObject! !

!EVABaseEvaluator methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 12:48'!
result
	^ result! !

!EVABaseEvaluator methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 12:48'!
result: anObject
	result := anObject! !

WAComponent subclass: #EVAEvaluatorApplication
	instanceVariableNames: 'smalltalkEvaluatorComponent seasideCanvasEvaluatorComponent'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Evaluator-Core'!

!EVAEvaluatorApplication methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 13:34'!
seasideCanvasEvaluatorName
	^self seasideCanvasEvaluatorComponent evaluatorName! !

!EVAEvaluatorApplication methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 11:36'!
smalltalkEvaluatorName
	^self smalltalkEvaluatorComponent evaluatorName! !

!EVAEvaluatorApplication methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 12:01'!
tab: html
	html space. html space. html space. html space
	! !

!EVAEvaluatorApplication methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 13:30'!
seasideCanvasEvaluatorComponent
	^ seasideCanvasEvaluatorComponent! !

!EVAEvaluatorApplication methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 13:30'!
seasideCanvasEvaluatorComponent: anObject
	seasideCanvasEvaluatorComponent := anObject! !

!EVAEvaluatorApplication methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 11:49'!
smalltalkEvaluatorComponent
	^ smalltalkEvaluatorComponent! !

!EVAEvaluatorApplication methodsFor: 'accessing' stamp: 'FranciscoAryMartins 1/21/2012 11:49'!
smalltalkEvaluatorComponent: anObject
	smalltalkEvaluatorComponent := anObject! !

!EVAEvaluatorApplication methodsFor: 'initialization' stamp: 'FranciscoAryMartins 1/21/2012 15:50'!
initialize
	super initialize.
	self smalltalkEvaluatorComponent: EVASmalltalkEvaluator new.
	self seasideCanvasEvaluatorComponent: EVASeasideCanvasEvaluator new! !

!EVAEvaluatorApplication methodsFor: 'rendering' stamp: 'FranciscoAryMartins 1/21/2012 15:46'!
renderContentOn: html
	html heading: 'Evaluator'.
	html horizontalRule.
	html text: 'Select evaluator:'.
	self renderSmalltalkEvaluatorAnchorOn: html.
	self renderSeasideCanvasEvaluatorAnchorOn: html! !

!EVAEvaluatorApplication methodsFor: 'rendering' stamp: 'FranciscoAryMartins 1/21/2012 13:23'!
renderSeasideCanvasEvaluatorAnchorOn: html
	html
		div: [
			self tab: html.
			(html anchor)
				callback: [ self call: self seasideCanvasEvaluatorComponent ];
				with: self seasideCanvasEvaluatorName ]! !

!EVAEvaluatorApplication methodsFor: 'rendering' stamp: 'FranciscoAryMartins 1/21/2012 13:22'!
renderSmalltalkEvaluatorAnchorOn: html
	html
		div: [
			self tab: html.
			(html anchor)
				callback: [ self call: self smalltalkEvaluatorComponent ];
				with: self smalltalkEvaluatorName ]! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

EVAEvaluatorApplication class
	instanceVariableNames: ''!

!EVAEvaluatorApplication class methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 11:55'!
initialize
	"
	self initialize
	"
	WAAdmin register: self asApplicationAt: 'tools/evaluator'! !

EVABaseEvaluator subclass: #EVASmalltalkEvaluator
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Evaluator-Core'!

!EVASmalltalkEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 12:59'!
evaluate: aExpression
	^ [Compiler evaluate: aExpression] on: Error do: [:error| error]! !

!EVASmalltalkEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 11:57'!
evaluatorName
	^ 'Smalltalk Evaluator'! !

!EVASmalltalkEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 13:54'!
example
	^ '2 + 3'! !

EVASmalltalkEvaluator subclass: #EVASeasideCanvasEvaluator
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Evaluator-Core'!

!EVASeasideCanvasEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/29/2012 10:48'!
evaluate: aExpression
	^ super evaluate: (self wrappedWithCanvas: aExpression)! !

!EVASeasideCanvasEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/29/2012 10:46'!
evaluate_del: aExpression
	^ [Compiler evaluate: (self wrappedWithCanvas: aExpression)] on: Error do: [:error| error]! !

!EVASeasideCanvasEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 13:05'!
evaluatorName
	^ 'Seaside Canvas Evaluator'! !

!EVASeasideCanvasEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 13:54'!
example
	^ 'html div'! !

!EVASeasideCanvasEvaluator methodsFor: 'as yet unclassified' stamp: 'FranciscoAryMartins 1/21/2012 13:20'!
wrappedWithCanvas: aExpression
	^ 'WARenderCanvas builder render: [:html| ', aExpression , ']'! !

EVAEvaluatorApplication initialize!

Existe em http://seafox.seasidehosting.st/ uma opção interessante na Web que ajuda a construir interfaces programaticamente em Smalltalk no Seaside a partir de exemplos em HTML.

Já saiu a programação.

http://www.charentemaritime-bahia.transat650.net/pt

“Você cria seu universo à medida que percorre seu caminho.”

Winston Churchill

A citação acima, fora de contexto, parace favorável mas no texto completo é completamente avessa às idéias do pessoal de O Segredo. Veja abaixo:

“Alguns de meus primos, que têm a grande vantagem de serem educados em universidades, costumam me provocar com argumentos para provar que nada existe de verdade, a não ser as coisas que pensamos. Toda a criação não passa de um sonho; você cria seu universo à medida que percorre seu caminho. Quanto mais forte sua imaginação mais diverso é seu universo. Quando você pára de sonhar o universo deixa de existir. Estas divertidas acrobacias mentais são boas para se brincar. São inofensivas e sem utilidade nenhuma. Eu aviso aos meus jovens leitores para só tomá-las como uma brincadeira. Os metafísicos sempre terão a última palavra e desafiarão vocês a demonstrar o absurdo de suas proposições.”

Parece que “o segredo” é enganar muitos retirando as afirmações do contexto correto para obter o falacioso argumento a la ad hominem inverso: nada mais convincente que citar com frase daqueles bem sucedidos e que corroboram nossos argumentos. No afã de conseguir tal efeito até a fraude é tentada.

Há uma falácia sobre o pensamento positivo que é baseada nos efeitos colaterais de um pensamento otimista. O otimismo é, na verdade, esperar que as próprias ações terão um resultado favorável. O pessimista acha que apesar do agir a chance de dar errado é muito grande. Por exemplo, imagine que sabemos que uma ação tem 90% de chance de dar errado. O pessimista foca nos 90% enquanto que o otimista nos 10%. O otimista mesmo sabendo que as chances são poucas aposta nelas e sua ação pode até mudar as chances mudando o contexto em que elas estão nessa proporção 90/10. Mas nenhum dos dois pensa em sentar sobre “um pensamento para o sucesso” e esperar que o “universo” coloque o sucesso no seu colo.

O “segredo” que não contam é que o otimismo motiva a ação e a ação é que traz os resultados. Nietzsche, por seu lado, e que era otimista, achava que desfazer-se das ilusões metafísicas é melhor para a vida. Agir e considerar o fato de agir já como um resultado é o único segredo e que não está acessível aos preguiçosos. Nem mesmo o pensamento positivo está acessível ao preguiçosos pois “pensar dói”.

Nem o pessoal que articula o bestseller de auto-ajuda “O Segredo” acredita que o “universo” iria por no colo deles o sucesso que “O Segredo” tem sem o grande trabalho de propaganda empreendido por eles.

Leia o hilário e inteligente post O guia cético para assistir o segredo do blog O Dragão da Garagem.

http://www.riocomicon.com.br/

De 17 a 30 de outubro no Rio de Janeiro.

Visitados:

• Casarão 1881, 18/10/2011 – 12:00
• Cardápio:
  

  Sopinha Creme de Palmito com Salsinha ou Salada Rúcula Caprese

  Mingon grelhado ao molho de café Acompanha Arroz com champignon Paris flambada no espumante ou Lasanha Verde com Carne Seca, Quibebe de Abóbora e Requeijão

  Brownie com Sorvete de Creme ou Mamão

• Comi a salada e o creme de palmito, o mignon e brownie com sorvete.
• Bom.
• Barracuda, 22/10/2011 – 19:00
• Cardápio:
  

  Escabeche de lombo de namorado em infusão de vinagre e grãos de pimenta preta ou Casquinha de siri gratinada

  Moqueca de badejo à Bahiana ou Picadinho de file mignon na faca com farofa de banana

  Rabanada em calda de mel e canela à Portuguesa ou Pêra confit em vinho tinto com sorvete de creme

• Comi a casquinha de siri, a moqueca e a pêra.
• Cheguei à conclusão que conhecer restaurantes com cardápio muito mais caro do que os preços padrões da Restaurant Week é uma roubada. Os restaurantes mais caros parecem não apostar muito na volta dos clientes conduzidos até eles pela Restaurant Week. É uma burrice. O cardápio diferente do normal oferecido acaba provocando a previsão pessimista desses restaurantes. O melhor é ir a restaurantes com preços ligeiramente mais caros do que os preços da Restaurant Week. No Barracuda não foi diferente. Dificilmente voltarei lá. O cardápio foi executado de forma bastante trivial.
• Quadrucci, 30/10/2010 – 14:00
• Cardápio:
  

  Mini Caprese Folhas, tomate e burrata ao basílico ou Sopa de alho-poró com farofinha de ervas

  San Pietro ao molho de iogurte e hortelã acompanhado de purê de grão-de-bico e berinjela grelhada ou Fraldinha desfiada com risoto de espinafre e Pancetta

  Sopa de manga e gengibre com farofa crocante ou Mousse de chocolate com perfume de café e amêndoas

• Comi a salada, o San Pietro e o mousse. O meu pessoal variou apenas no prato principal que foi a fraldinha desfiada. Meu prato estava razoável mas a fraldinha causou fortes cólicas e diarréia em 2/3 do meu pessoal. O serviço também não foi lá essas coisas.

Meu pessoal foi no Zuka da Barra e gostou muito. Comida boa e serviço excelente. Gostaram muito do Tartar, do San Pietro e do marshmalow. Veja o cardápio:

Fomos assistir eu, Iane e Natacha a peça Holoclownsto no SESC Copacabana no dia 1/10/2011. Enquanto esperávamos olhei na Internet os comentários sobre a peça. Alguém no Twitter reclamava que não tinha sido avisado que a peça não tinha texto. Fiquei sabendo então que seria um espetáculo de mímica, uma arte difícil. O grupo tirou de letra isso da mímica e a peça foi ótima. Lembrei-me que a tendência a tornar o teatro subsidiário da literatura é uma coisa mais dos tempos modernos. Houve época em que ao texto não era dada a importância que tem hoje no Teatro.

Lembrei também de um filme que vi cuja estética provavelmente ia revirar o estômago do mesmo twitteiro: Dog Ville.

Festival do Rio 2011

A próxima edição do Festival do Rio acontecerá entre os dias 6 e 18 de outubro de 2011.
As inscrições para longas-metragens e curtas-metragens serão abertas em abril, acompanhe o site para maiores informações.

Ou então siga o googling Festival do Rio.

A venda de passaportes para o evento começa nesta segunda, 26/09, às 23h59, no site www.ingresso.com. Corra e garanta sua vaga em um dos mais importantes festivais de Cinema da América Latina. O Festival do Rio 2011 promete ser inesquecível!

Saiu o Guia Oficial da Programação.

Você pode comprar ingressos pela Web no ingresso.com.

Filmes que assisti:

• Preludio para matar (vou comprar no CCBB, sex, 7/10, 20:00)
• Achei o filme do Dario Argento chato e a música estridente. O enredo e os truques pífios. Já sabia que ele não se esmera nessas coisas mas não achei outras características que me atraissem. Um colega que gosta dos filmes do Argento disse que também não gostou deste. Vou tentar outros no futuro.
• Contágio, sab, 8/10, 17:00, Estação SESC Espaço 1
• Interessante. Faz lembrar o imbróglio do H1N1 em relação aos interesses comerciais dos urubus de plantão.
• A Pele Que Habito, dom, 9/10, 19:00, Roxy 3
• Gostei mais do que dos anteriores que assisti no Festival do Rio, embora ache que outros do Almdóvar foram superiores.
• Vidas cruzadas SEG (10/10) 21:15 Kinoplex Leblon 4 [KL016]
• Apesar de eu esperar um filme pesado sobre a discriminação dos negros nos EEUU o filme conseguiu exercer um humor sem afastar o drama histórico infrinngido pela “suremacia branca” aos ex-escravos(?).
• Sleeping Beauty QUA (12/10) 15:10 Est Vivo Gávea 5 [GV527]
• Sleeping descreve bem o filme: sonolento. O desfecho também é inespressivo. Perda de tempo. Completamente anódino.
• O AMERICANO SEX (14/10) 19:50 Est Sesc Ipanema 2 [IP239]
• Não me encantei com este filme. O per5sonagem de Demy (diretor que atua no filme) é depressivo e deprimente. Só alcança um pouco de despreendimento e generosidade ao se envolver, e gostar, com a personagem de Hayek.
• 4:44 LAST DAY ON EARTH DOM (16/10) 13:10 Est Vivo Gávea 5 [GV546]
• Descobri quando já era tarde que tinha que ir para a sessão de cinema. Vou ver em outra oportunidade.
• AQUI É O MEU LUGAR QUA (19/10) 19:40 Est Sesc Ipanema 2 [IP264]
  
• O filme acima, com Sean Penn, foi o que assisti em lugar de INQUIETOS QUA (19/10) 19:20 Est Sesc Ipanema 1 [IP164]. Um problema de comunicação me fez entrar na sessão errada. Percebi no início que não era o filme mas preferi não mudar de sala. No final acabei gostando do filme.

Links relacionados:

• O Bonequinho ajuda no garimpo e aponta os filmes imperdíveis do Festival do Rio

Quer estudar Smalltalk no browser, sem instalar nada? Use o ProfStef no Amber Smalltalk.

Amber Smalltalk parece estar na mesma onda dos ambientes inspirados no Smalltalk conforme mostra o artigo Smalltalk IDEs Come to the Browser: Jtalk, tODE, Lively Kernel 2.0.

Há tempos que procurava esta foto da minha neta (com 9 meses de idade).