Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 4813 → Rev 6253

/programs/other/personal/Tupfile.lua
0,0 → 1,2
if tup.getconfig("NO_FASM") ~= "" then return end
tup.rule("personal.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "personal")
/programs/other/personal/build.bat
0,0 → 1,3
@fasm personal.asm personal
@kpack personal
@pause
/programs/other/personal/inc/button.inc
130,14 → 130,10
call button_draw_all
; arrow
pusha
mov eax , 7
mov ebx , arrowa
mov ecx , 6 shl 16 + 10
mov edx , 46 shl 16 + 13
int 0x40
mov ebx , arrowb
mov edx , 17 shl 16 + 13
int 0x40
mov ecx,[sc.btn_text]
or ecx,0x90000000
mcall 4,<15,11>, ,arrowa
mcall ,<45,11>, ,arrowb
popa
ret
 
/programs/other/personal/personal.asm
13,7 → 13,7
dd 0x0
dd 0x0
 
include 'macros.inc'
include '../../macros.inc'
;=============================================================================;
;============================[ EVENTS ]===========================;
;=============================================================================;
145,10 → 145,8
;; button -------------------------------------------------
bnext new_button
bback new_button
arrowa:
file 'l.raw'
arrowb:
file 'r.raw'
arrowa db '<',0
arrowb db '>',0
;; edit ---------------------------------------------------
edit_cnt dd 1 ; counter
edit_win db 'WINDOW',0 ; 1