For catching "refresh"

WATransaction subclass: #WARefreshAction
	instanceVariableNames: 'lastKey refreshAction'
	classVariableNames: ''
	poolDictionaries: ''
	category: ''

... accessors ...

renderContentOn: html

	| key |
	key := self session currentRequest fields at: self session actionField.
	lastKey = key ifTrue: [self refreshAction value].
	lastKey := key.
	^self renderOwnerOn: html


--------
to use on some component 

initialize

	self addDecoration: (WARefreshAction new refreshAction: [self userHitRefresh])