clipping

[legyxo42]

Hi, I'm trying to clip drawing submorphs with baseBounds of
their owner. code looks like this:

drawon: aCanvas = (
baseDrawOn: aCanvas.
0 = morphCount ifFalse: [| c |
    c: (aCanvas copyOffset: position).
    c clip: baseBounds. "is this OK?"
    morphsReverseDo: [| :m | m drawOn: c].
].
self
)

Can anyone tell me why it's not working?
Thanks a lot.
                             Milan

PS: I am trying to use sliders for moving submorphs
and must clip them in case of sticking out.