[Gambas-user] Benoit, How to bypass a super event

[Fabien Bodard]

For example i have a class that emit an event

MyClass1
  Event data


MyClass1   -> so over drive the native class 1
  Event Data

  Public sub Super_Data()  -> this is what i want to do
    inc    _Index
    raise Data
  end



For the user it's transparnt as it is alway the class MyClass1 that
emit the data event... but the sur-layer can catch the event before
the emit.


well to say trust i'm trying to add the multipage on printer


so basically if i say 4 page on one i need to give to painter 4 time an image



Public sub Super_Begin

Raise Begin
iOldCount = Super.Count

end

Public sub Super_Draw()
paint.scale(1/iPageByPage,1/iPageByPage)
For i = 0 to iPageByPage
  Paint.Begin($aImgPage[i])

    raise Draw

  paint.end
next
paint.reset

for i = 0 to iPageByPage

Draw.Image(...

next



end

Public sub Super_End

raise End
Super.Count = iOldCount
end


Well it is just a concept code ... it don't work. But printing
multipage on gambas don't need necessary to implement this on each
toolkit but just via a gambas class.

-- 
Fabien Bodard