[Seaside] Passing id's between entities

[Richard Huxton]

I'm building a series of fairly nondescript <label for="X"><input 
id="X"> tags. The problem is of course setting the "for=". The only way 
I've got working so far is:
   lbl := html label.
   tid := lbl ensureId,'ctrl'.
   lbl for: tid; with: label.
   ti := html textInput id: tid;...

So, that gives us something like "id27ctrl" for the <input>. Now, I want 
to layout the labels separately from the inputs so I can't just embed 
the input inside it and it's fiddly to have the label following the 
input and then position it to the left. Am I missing something obvious here?
-- 
   Richard Huxton
   Archonet Ltd