What about Extendable and CallExtension?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Warpy

hmmm...

Type TApplication
	...
	Method HandleEvent( Event:TEvent )
		Select Event.id
		Case EVENT_APPTERMINATE
			End
		Case ...
			...
		End Select
	End Method
	
	Method OnEvent( Event:TEvent )
		Select Event.id
		Case EVENT_APPTERMINATE,....
			Super.HandleEvent( Event )
		Default
			HandleEvent( Event )
		End Select
	End Method
End Type

Type TSomethingElse Extends TApplication
	...
	Method HandleEvent( Event:TEvent )
		Select Event.id
		Case SOMETHINGOROTHER
			...
		Case ...
			...
		End Select
	End Method
End Type

But yeah, I see what you mean.