[Pas2js] addEventListener and IE-specific Methods

[warleyalex]

I have to modify the Web unit, for instance

  if (targetElement.addEventListener) then //  if the target support
addEventListener method 
  if (targetElement.attachEvent) then  // if the target support attachEvent
to IE specific

  and add others signatures for the addEventListener method.

  TJSEvent = class; // forward
  JEventListenerHandler = procedure(Event: TJSEvent) of object;

  TJSEventTarget = class external name 'EventTarget'
  public
    (* to check if the target support addEventListener method for major
browsers *)
    addEventListenerExists: boolean; external name 'addEventListener'; 
    (* to check if the target support attachEventmethod for IE 8 and earlier
*) 
    attachEventExists : boolean; external name 'attachEvent';

    procedure addEventListener(aname : string; aListener : TJSEventHandler);
    procedure addEventListener(aname : string; aListener : JSValue);
    (* in cases when the aListener argument is a procedure *) 
    procedure addEventListener(aname: String; aListener:
JEventListenerHandler; capture : Boolean = false);
    
    procedure attachEvent(eventNameWithOn: String; aListener:
JEventListenerHandler);
    procedure detachEvent(eventNameWithOn: String; aListener:
JEventListenerHandler);
    function dispatchEvent(event : JSValue) : Boolean;
    procedure removeEventListener(aname: String; aListener:
JEventListenerHandler; capture : Boolean = false);
    procedure removeEventListener(aname : string; aListener :
TJSEventHandler);
    procedure removeEventListener(aname : string; aListener : JSValue);
  end;




--
Sent from: http://pas2js.38893.n8.nabble.com/