Today's Smalltalk Daily walks through a simple TimeTracker application in WebVelocity 1.1. There are three methods I needed to create to get the basic behavior I wanted; Click here to jump to the video:

ProjectViewUI

renderActionsOn: html
	| record |
	super renderActionsOn: html.
	html button
		class: #record;
		callback: (record := Record new.
				(self call: (RecordEditUI on: record))
					ifTrue: [record bePersistent.
						object records add: record.
						object commitUnitOfWork]);
		with: 'Add Record'

Project

printOn: stream
	stream nextPutAll: self name

Record
printOn: stream stream nextPutAll: self activity

Click on the viewer below to watch it now:

If you have trouble viewing that directly, you can click here to download the video directly. If you need the video in a Windows Media format, then download that here.

You can also watch it on YouTube:

Technorati Tags: smalltalk, seaside, webvelocity