end: -1 sector

git-svn-id: svn://kolibrios.org@9540 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/system/end/light/data.inc

@@ -55,22 +55,13 @@ asettings   db 'settings',0
 aautosave   db 'autosave',0
 ini_file db  '/sys/settings/rdsave.ini',0
 ;---------------------------------------------------------------------
-;Lib_DATA
+importLib:          
-system_dir_libini       db '/sys/lib/libini.obj',0
+library                                                 \          
-;---------------------------------------------------------------------
+        libini, 'libini.obj'          
-l_libs_start:
+          
-library02  l_libs system_dir_libini+9, library_path, system_dir_libini, libini_import
+import  libini, \          
-end_l_libs:
+        ini_set_int  ,'ini_set_int', \          
-;---------------------------------------------------------------------
+        ini_get_int  ,'ini_get_int'   
-align 4
-libini_import:
-init_lib     dd a_init
-ini_get_int  dd aini_get_int
-ini_set_int  dd aini_set_int
-             dd 0,0
-a_init       db 'lib_init',0
-aini_get_int db 'ini_get_int',0
-aini_set_int db 'ini_set_int',0
 ;---------------------------------------------------------------------
 checkbox_sharedname db 'CHECKBOX',0
 checkbox_img dd ?

programs/system/end/light/end.asm

@@ -18,23 +18,17 @@ include '../../../macros.inc'
 include '../../../proc32.inc'
 include '../../../dll.inc'
 include '../../../KOSfuncs.inc'
-include '../../../load_lib.mac'
 include '../../../gui_patterns.inc'
 include '../../../string.inc'
 
-@use_library
-
 START:
     mcall SF_SYS_MISC, SSF_HEAP_INIT 
     mcall SF_SYS_MISC, SSF_MEM_OPEN, checkbox_sharedname
     mov [checkbox_img], eax
 
-    load_libraries l_libs_start,end_l_libs
+    stdcall dll.Load,importLib
-    inc   eax
+    or      eax, eax
-    test  eax,eax
+    jnz     redraw
-    jz    close
-
-    stdcall dll.Init,[init_lib]
 
     invoke ini_get_int,ini_file,asettings,aautosave,0
     mov   [autosave],eax
@@ -208,8 +202,7 @@ draw_checkbox_flag:
     mcall SF_DRAW_RECT, <34,11>, <72,11>, 0x58C33C
     ret
 .flag_unset:
-    DrawRectangle3D 33, 71, 12, 12, 0xDDDddd, 0xffffff
+    mcall SF_DRAW_RECT, <33,13>, <71,13>, 0xFFFfff
-    mcall SF_DRAW_RECT, <34,12>, <72,12>, 0xFFFfff
     ret
 ;---------------------------------------------------------------------
 include 'data.inc'