Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6196 → Rev 7134

/programs/system/pcidev/branches/new_api/macros.inc
File deleted
\ No newline at end of file
/programs/system/pcidev/branches/new_api/PCIDEV.ASM
142,7 → 142,6
; * detect Revision, Class and Subclass of Device,
; * and make Description based on Class
;-------------------------------------------------------------
include 'lang.inc'
include 'macros.inc'
MEOS_APP_START
CODE
159,13 → 158,13
 
red: ; redraw
mcall 9, Proc_Info, -1 ; window redraw requested so get new window coordinates and size
mov eax, [Proc_Info.x_start]; store the window coordinates into the Form Structure
mov eax, [Proc_Info.box.left]; store the window coordinates into the Form Structure
mov [Form + 2], ax ; x start position
mov eax, [Proc_Info.y_start];
mov eax, [Proc_Info.box.top];
mov [Form + 6], ax ; ystart position
mov eax, [Proc_Info.x_size] ;
mov eax, [Proc_Info.box.width];
mov [Form], ax ; window width
mov eax, [Proc_Info.y_size] ;
mov eax, [Proc_Info.box.height];
mov [Form + 4] ,ax ; window height
call draw_window ; go redraw window now
jmp still
/programs/system/pcidev/branches/new_api/Tupfile.lua
1,3 → 1,4
if tup.getconfig("NO_FASM") ~= "" then return end
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
tup.rule({"PCIDEV.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "PCIDEV")
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../../.." or tup.getconfig("HELPERDIR")
tup.include(HELPERDIR .. "/use_fasm.lua")
tup.rule("PCIDEV.ASM", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "%B")