Subversion Repositories Kolibri OS

Rev

Rev 6456 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. format coff
  2. use32                                   ; Tell compiler to use 32 bit instructions
  3.  
  4. section '.init' code                    ; Keep this line before includes or GCC messes up call addresses
  5.  
  6. include '../../../programs/proc32.inc'
  7. include '../../../programs/macros.inc'
  8. purge section,mov,add,sub
  9.        
  10. include '../../../programs/dll.inc'
  11.        
  12. public init_kmenu as '_kolibri_kmenu_init'
  13. ;;; Returns 0 on success. -1 on failure.
  14.  
  15. proc init_kmenu
  16.         mcall 68,11
  17.         stdcall dll.Load, @IMPORT
  18.         ret
  19. endp   
  20.        
  21. @IMPORT:
  22. library lib_kmenu,      'kmenu.obj'
  23.  
  24. import lib_kmenu, \
  25.         kmainmenu_draw,                                  'kmainmenu_draw' , \
  26.         kmainmenu_dispatch_cursorevent,  'kmainmenu_dispatch_cursorevent' , \
  27.         kmainmenu_get_height,                    'kmainmenu_get_height', \
  28.         ksubmenu_new,                                    'ksubmenu_new' , \
  29.         ksubmenu_delete,                                 'ksubmenu_delete' , \
  30.         ksubmenu_draw,                                   'ksubmenu_draw' , \
  31.         ksubmenu_add,                                    'ksubmenu_add' , \
  32.         ksubmenu_set_items_margin,       'ksubmenu_set_items_margin' , \
  33.         ksubmenu_set_items_padding,      'ksubmenu_set_items_padding' , \
  34.         kmenuitem_new,                                   'kmenuitem_new' , \
  35.         kmenuitem_delete,                                'kmenuitem_delete' , \
  36.         kmenuitem_draw,                                  'kmenuitem_draw' , \
  37.         kmenuitem_get_preffered_width,   'kmenuitem_get_preffered_width' , \
  38.         kmenuitem_get_preffered_height,  'kmenuitem_get_preffered_height' , \
  39.         kmenu_set_font,                                  'kmenu_set_font' , \
  40.         kmenu_init,                                      'kmenu_init'
  41.        
  42. public  kmainmenu_draw                                   as '_kmainmenu_draw'
  43. public  kmainmenu_dispatch_cursorevent   as '_kmainmenu_dispatch_cursorevent'
  44. public  kmainmenu_get_height                     as '_kmainmenu_get_height'
  45. public  ksubmenu_new                                     as '_ksubmenu_new'
  46. public  ksubmenu_delete                                  as '_ksubmenu_delete'
  47. public  ksubmenu_draw                                    as '_ksubmenu_draw'
  48. public  ksubmenu_add                                     as '_ksubmenu_add'
  49. public  ksubmenu_set_items_margin                as '_ksubmenu_set_items_margin'
  50. public  ksubmenu_set_items_padding       as '_ksubmenu_set_items_padding'
  51. public  kmenuitem_new                                    as '_kmenuitem_new'
  52. public  kmenuitem_new                                    as '_kmenuitem__submenu_new'
  53. public  kmenuitem_delete                                 as '_kmenuitem_delete'
  54. public  kmenuitem_draw                                   as '_kmenuitem_draw'
  55. public  kmenuitem_get_preffered_width    as '_kmenuitem_get_preffered_width'
  56. public  kmenuitem_get_preffered_height   as '_kmenuitem_get_preffered_height'
  57. public  kmenu_set_font                                   as '_kmenu_set_font'
  58. public  kmenu_init                                               as '_kmenu_init'
  59.