; _______________________________________________________________________________________
;|                                                                                       |
;| ..::FreshLib::..  Free, open source. Licensed under "Fresh artistic license."         |
;|_______________________________________________________________________________________|
;
;  Description: TApplication object class.
;
;  Target OS: Win32
;
;  Dependencies:
;
;  Notes: TApplication by the idea is the base of GUI application, but the implementation
;         somehow need fixing...
;_________________________________________________________________________________________

uglobal
  if used hInstance
    hInstance dd ?
  end if
endg


proc TApplication.Create, .obj
begin
        push    eax ecx edx
        invoke  GetModuleHandleW, 0
        mov     [hInstance], eax

        clc
        pop     edx ecx eax
        return
endp



proc TApplication.Get, .obj, .paramID
begin
        stc
        return
endp




proc TApplication.Set, .obj, .paramID, .value
begin
        stc
        return
endp



proc TApplication.SysEventHandler, .obj, .event
begin
        stc
        return
endp