forked from KolibriOS/kolibrios
69 lines
2.3 KiB
NASM
69 lines
2.3 KiB
NASM
format coff
|
|
use32 ; Tell compiler to use 32 bit instructions
|
|
|
|
section '.init' code ; Keep this line before includes or GCC messes up call addresses
|
|
|
|
include '../../../programs/proc32.inc'
|
|
include '../../../programs/macros.inc'
|
|
purge section,mov,add,sub
|
|
|
|
include '../../../programs/dll.inc'
|
|
|
|
public init_kmenu as '_init_kmenu_asm'
|
|
;;; Returns 0 on success. -1 on failure.
|
|
|
|
proc init_kmenu
|
|
|
|
mcall 68,11
|
|
|
|
stdcall dll.Load, @IMPORT
|
|
test eax, eax
|
|
jnz error
|
|
|
|
mov eax, 0
|
|
ret
|
|
|
|
error:
|
|
mov eax, -1
|
|
ret
|
|
endp
|
|
|
|
@IMPORT:
|
|
library lib_kmenu, 'kmenu.obj'
|
|
|
|
import lib_kmenu, \
|
|
kmainmenu_draw, 'kmainmenu_draw' , \
|
|
kmainmenu_dispatch_cursorevent, 'kmainmenu_dispatch_cursorevent' , \
|
|
kmainmenu_get_height, 'kmainmenu_get_height', \
|
|
ksubmenu_new, 'ksubmenu_new' , \
|
|
ksubmenu_delete, 'ksubmenu_delete' , \
|
|
ksubmenu_draw, 'ksubmenu_draw' , \
|
|
ksubmenu_add, 'ksubmenu_add' , \
|
|
ksubmenu_set_items_margin, 'ksubmenu_set_items_margin' , \
|
|
ksubmenu_set_items_padding, 'ksubmenu_set_items_padding' , \
|
|
kmenuitem_new, 'kmenuitem_new' , \
|
|
kmenuitem_delete, 'kmenuitem_delete' , \
|
|
kmenuitem_draw, 'kmenuitem_draw' , \
|
|
kmenuitem_get_preffered_width, 'kmenuitem_get_preffered_width' , \
|
|
kmenuitem_get_preffered_height, 'kmenuitem_get_preffered_height' , \
|
|
kmenu_set_font, 'kmenu_set_font' , \
|
|
kmenu_init, 'kmenu_init'
|
|
|
|
public kmainmenu_draw as '_kmainmenu_draw'
|
|
public kmainmenu_dispatch_cursorevent as '_kmainmenu_dispatch_cursorevent'
|
|
public kmainmenu_get_height as '_kmainmenu_get_height'
|
|
public ksubmenu_new as '_ksubmenu_new'
|
|
public ksubmenu_delete as '_ksubmenu_delete'
|
|
public ksubmenu_draw as '_ksubmenu_draw'
|
|
public ksubmenu_add as '_ksubmenu_add'
|
|
public ksubmenu_set_items_margin as '_ksubmenu_set_items_margin'
|
|
public ksubmenu_set_items_padding as '_ksubmenu_set_items_padding'
|
|
public kmenuitem_new as '_kmenuitem_new'
|
|
public kmenuitem_new as '_kmenuitem__submenu_new'
|
|
public kmenuitem_delete as '_kmenuitem_delete'
|
|
public kmenuitem_draw as '_kmenuitem_draw'
|
|
public kmenuitem_get_preffered_width as '_kmenuitem_get_preffered_width'
|
|
public kmenuitem_get_preffered_height as '_kmenuitem_get_preffered_height'
|
|
public kmenu_set_font as '_kmenu_set_font'
|
|
public kmenu_init as '_kmenu_init'
|