This repository is a mirror!

Artifact 7717748ae3ce5215e259c36102862023acfc4e83:

• Executable file freshlib/gui/Win32/TApplication.asm — part of check-in [1be2c9492e] at 2012-07-20 13:49:21 on branch FreshLibDev — Minor change in Win32/TApplication.asm library. (user: lhmnai0 size: 1235) [more...]

; _______________________________________________________________________________________
;|                                                                                       |
;| ..::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