Try this for the third example. The second one won't work.

define class MyRoom as container
add object "Detector" as MyShape
enddefine

define class MyShape as shape
procedure init
with this
.borderstyle=0
.backstyle=0
endwith
endproc

procedure click
wait window "You clicked me!"
endproc
enddefine

---
Dave Brenner