Here is a simple TimeTracker application in WebVelocity 1.1. There are three methods we need to create to get the basic behavior we want:

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

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.