;
; MyKey. Version 0.2.
;
; Author: Asper
; Date of issue: 29.12.2009
; Compiler: FASM
; Target: KolibriOS
;
use32
org 0x0
db 'MENUET01' ; 8 byte id
dd 38 ; required os
dd STARTAPP ; program start
dd I_END ; program image size
dd 0x1000000 ; required amount of memory
dd 0x1000000 ; stack heap
dd 0x0
dd app_path
include 'ASPAPI.INC'
include 'string.inc'
include 'macros.inc'
include 'editbox_ex.mac'
include 'load_lib.mac'
include '../../../dll.inc'
include 'debug.inc'
DEBUG equ 0;1
N_KEYCOLOR equ 0x00EEEEEE ; Normal button color
C_KEYCOLOR equ 0x00CBE1E1 ; Control button color
A_KEYCOLOR equ 0x00FF6400;258778 ; Active button color
C_TEXTCOLOR equ 0x80000000 ; Button caption color
CA_TEXTCOLOR equ 0x80FFFFFF ; Active button caption color
A_TEXTCOLOR equ 0x00FFFFFF ; Active text color
WIN_X equ 265
WIN_Y equ 50;175
WIN_W equ 595
WIN_H equ 415 ;570
WIN_COLOR equ 0x040099BB;0x04EEEEEE
ITEM_BUTTON_W equ 192;100
ITEM_BUTTON_H equ 23
ITEM_BUTTON_SPACE equ 0
FIRST_ITEM_BUTTON_ID equ 7
BUT_W equ 80
BUT_H equ 20
MAX_HOTKEYS_NUM equ 15 ; Bad bounding :/. Until we have normal listbox control.
PATH_MAX_CHARS equ 255
@use_library
STARTAPP:
; Initialize memory
mcall 68, 11
or eax,eax
jz close_app
; Import libraries
sys_load_library boxlib_name, sys_path, boxlib_name, system_dir0, err_message_found_lib, head_f_l, myimport,err_message_import, head_f_i
cmp eax,-1
jz close_app
stdcall dll.Load,importTable
test eax, eax
jnz close_app
mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS ; Get memory for editboxes text
mov dword [buf_cmd_line], eax
mov dword [edit1.text], eax
mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS
mov dword [buf_cmd_params], eax
mov dword [edit2.text], eax
mcall 68, 12, MAX_HOTKEYS_NUM*32
mov dword [it_buf_cmd_line], eax
mov dword [it_edit.text], eax
call Load_HotkeyList
mcall 66, 1, 1 ; Set keyboard mode to get scancodes.
mcall 26, 2, 1, ascii_keymap
get_mykey_window_slot_number:
call draw_window
mcall 18, 7
mov [mykey_window], eax
set_event_mask:
mcall 40, 39
red:
.test_slot:
mcall 18, 7
mov ebx, [mykey_window]
cmp eax, ebx
jne @f
mov ecx, [it_window]
cmp ebx, ecx
je @f
.activate_it_window:
mov al, byte [it_alive]
test al, al
jz @f
mov byte [it_alive], 0
mcall 18, 3 ; Activate input thread window
@@:
call draw_window
still:
call reset_modifiers
mcall 10 ; Wait for an event in the queue.
cmp al,1 ; redraw request ?
jz red
cmp al,2 ; key in buffer ?
jz key
cmp al,3 ; button in buffer ?
jz button
cmp al,6
jz mouse
jmp still
key:
mcall 2
push eax
mcall 66, 3
;mov edx, eax
;and edx, 0x00000FF;F
mov dword [modifiers], eax;edx
pop eax
test word [edit1.flags], 10b
jnz .editbox_input
test word [edit2.flags], 10b
jz @f
.editbox_input:
cmp ah, 0x80 ;if key up
ja still
cmp ah, 42 ;LShift
je still
cmp ah, 54 ;RShift
je still
cmp ah, 56 ;Alt
je still
cmp ah, 29 ;Ctrl
je still
cmp ah, 69 ;Pause/Break
je still
mov esi, ascii_keymap
call Scan2ASCII
push dword edit1
call [edit_box_key]
push dword edit2
call [edit_box_key]
jmp still
@@:
;------------------------
mov cl, byte [hotkeys_num]
.test_next_hotkey:
dec cl
mov bl, cl
and ebx, 0xFF
shl ebx, 2;5
; mov esi, ebx
add ebx, dword Hotkeys.codes
mov edx, dword [ebx]
cmp ah, dl
jne @f
shr edx, 8
cmp edx, dword [modifiers]
jne @f
push eax
mov eax, PATH_MAX_CHARS
mul cl
mov edx, eax
add edx, dword [buf_cmd_params]
add eax, dword [buf_cmd_line]
mov esi, eax
pop eax
call RunProgram
jmp .end_test
@@:
or cl, cl
jnz .test_next_hotkey
.end_test:
;------------------------
jmp still
button:
mcall 17 ; Get pressed button code
cmp ah, 1 ; Test x button
je close_app
cmp ah, 2
jne @f
call AddHotKey
jmp red
@@:
cmp ah, 5
jne @f
call Load_HotkeyList
jmp red
@@:
cmp ah, 6
jne @f
call WriteIni
xor edx, edx
mov esi, aRamSaver
call RunProgram
@@:
cmp ah, FIRST_ITEM_BUTTON_ID ; Test if pressed buttons
jb still ; is a HotKey button...
mov al, ah
sub al, FIRST_ITEM_BUTTON_ID
cmp al, byte [hotkeys_num]
jnb still ; ...so, if not then still,
mov byte [butt], ah ; if yes then save pressed button ID
and eax, 0xFF
mov cl, byte PATH_MAX_CHARS
mul cl
mov ebx, eax
add ebx, dword [buf_cmd_params]
add eax, dword [buf_cmd_line]
mov dword [edit1.text], eax
mov dword [edit2.text], ebx
mov esi, eax
call strlen
mov dword [edit1.size], ecx
mov dword [edit1.pos], ecx
mov esi, ebx
call strlen
mov dword [edit2.size], ecx
mov dword [edit2.pos], ecx
jmp red
mouse:
push dword edit1
call [edit_box_mouse]
push dword edit2
call [edit_box_mouse]
jmp still
close_app:
mov eax,-1 ; close this program
int 0x40
draw_window:
start_draw_window WIN_X,WIN_Y,WIN_W,WIN_H,WIN_COLOR,labelt, 11;labellen-labelt
;bar 5, 24, 585, 385, 0x800000 or 0x90D2
;rectangle2 6, 25, 585, 385, 0xFFFFFF, 0
;bar 5, 24, BUT_W+4, 350, 0x008C00D2;0x800000 or A_KEYCOLOR
;rectangle2 6, 25, BUT_W+4, 350, 0xFFFFFF, 0
push dword edit1
call [edit_box_draw]
push dword edit2
call [edit_box_draw]
stdcall draw_button, 7,WIN_H-BUT_H-10,BUT_W,BUT_H,2,0x0050D250,AddKeyText, 0,C_TEXTCOLOR ; Add Hotkey.
if 0
stdcall draw_button, 90,WIN_H-BUT_H-10,BUT_W,BUT_H,3,C_KEYCOLOR,DeleteKeyText,0,C_TEXTCOLOR ; Delete Hotkey.
stdcall draw_button, 173,WIN_H-BUT_H-10,BUT_W,BUT_H,4,C_KEYCOLOR,ManageKeyText,0,C_TEXTCOLOR ; Manage Hotkey.
end if
stdcall draw_button, WIN_W-BUT_W*2-14,WIN_H-BUT_H-10,BUT_W,BUT_H,5,0x0050D250,ReloadKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list.
stdcall draw_button, WIN_W-BUT_W-7,WIN_H-BUT_H-10,BUT_W,BUT_H,6,0x0050D250,SaveKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list.
movzx ecx, byte [hotkeys_num]
cmp ecx, MAX_HOTKEYS_NUM
jng @f
mov ecx, MAX_HOTKEYS_NUM
@@:
mov eax, 30
mov ebx, FIRST_ITEM_BUTTON_ID
@@:
or cl, cl
jz @f
mov edx, ebx
sub edx, FIRST_ITEM_BUTTON_ID
shl edx, 5; edx=edx*32
add edx, dword Hotkeys
cmp bl, byte [butt]
jne .l1
stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,A_KEYCOLOR ,edx,0,CA_TEXTCOLOR
bar 220, 70, 350, 30, 0x00C8E1F0 ;0x800000 or A_KEYCOLOR
rectangle2 221, 71, 350, 30, 0xFFFFFF, 0
mov esi, Hotkeys.code_names
sub edx, dword Hotkeys
shl edx, 1
add esi, edx
stdcall outtextxy, 225, 80, esi, 64, C_TEXTCOLOR
jmp .l2
.l1:
stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,N_KEYCOLOR,edx,0,C_TEXTCOLOR
.l2:
add eax, ITEM_BUTTON_H+ITEM_BUTTON_SPACE
inc ebx
dec cl
jmp @b
@@:
end_draw_window
ret
AddHotKey:
mov al, byte [hotkeys_num]
cmp al, MAX_HOTKEYS_NUM
jge .end
inc al
mov byte [hotkeys_num], al
mcall 51, 1, dword start_input_thread, dword input_thread_stack_top
.end:
ret
Load_HotkeyList:
call ReadIni
mov al, byte [butt]
and eax, 0xFF
sub al, FIRST_ITEM_BUTTON_ID
mov cl, byte PATH_MAX_CHARS
mul cl
mov ebx, eax
add eax, dword [buf_cmd_line]
add ebx, dword [buf_cmd_params]
;mov [butt], FIRST_ITEM_BUTTON_ID
mov esi, eax
call strlen
mov dword [edit1.size], ecx
mov dword [edit1.pos], ecx
mov esi, ebx
call strlen
mov dword [edit2.size], ecx
mov dword [edit2.pos], ecx
ret
reset_modifiers:
pusha
mov esi, dword [it_hotkey_addr]
test esi, esi
jz .end_set_mods
lodsd
; Set new hotkey for the main thread
mov cl, al
shr eax, 8
xor edx, edx
push cx
mov cl, 3
.next_pair:
shl edx, 4
mov bl, al
and bl, 3
or bl, bl
jz .l1
cmp bl, 3 ; both?
jne @f
or dl, 2
jmp .l1
@@:
add bl, 2
or dl, bl
.l1:
shr eax, 2
dec cl
test cl, cl
jnz .next_pair
mov bx, dx
and bx, 0xF0F
xchg bl, bh
and dx, 0x0F0
or dx, bx
pop cx
mcall 66, 4
mov dword [it_hotkey_addr], 0
.end_set_mods:
popa
ret
;######################## Input Thread code start ##########################
start_input_thread:
mov ecx, 1 ; to get scancodes.
mcall 26, 2, 1, it_ascii_keymap
mcall 66, 1 ; Set keyboard mode
mov dword [it_hotkey_addr], 0
it_set_editbox:
mov al, byte [hotkeys_num]
sub al, 1
and eax, 0xFF
shl eax, 5
add eax, dword Hotkeys.names
mov dword [it_edit.text], eax
mov esi, eax
call strlen
mov dword [it_edit.size], ecx
mov dword [it_edit.pos], ecx
get_it_window_slot_number:
call it_draw_window
mcall 18, 7
mov [it_window], eax
it_set_event_mask:
mcall 40, 39
it_red:
call it_draw_window
it_still:
mcall 10 ; Wait for an event in the queue.
cmp al,1 ; redraw request ?
jz it_red
cmp al,2 ; key in buffer ?
jz it_key
cmp al,3 ; button in buffer ?
jz it_button
cmp al,6
jz it_mouse
jmp it_still
it_key:
mcall 2
mov byte [it_keycode], 0
stdcall outtextxy, 10, 100, ctrl_key_names, 35, 0
cmp ah, 1 ;Esc
jne @f
dec byte [hotkeys_num]
jmp close_app
@@:
cmp ah, 0x80 ;if key up
ja .end
cmp ah, 42 ;[Shift] (left)
je .end
cmp ah, 54 ;[Shift] (right)
je .end
cmp ah, 56 ;[Alt]
je .end
cmp ah, 29 ;[Ctrl]
je .end
cmp ah, 69 ;[Pause Break]
je .end
mov byte [it_keycode], ah
mov esi, it_ascii_keymap
call Scan2ASCII
test word [it_edit.flags], 10b
jz .end
push dword it_edit
call [edit_box_key]
jmp it_still
.end:
mcall 26, 2, 1, it_ascii_keymap
call it_test_key_modifiers
test dl, 3
jz @f
push edx
mcall 26, 2, 2, it_ascii_keymap
pop edx
@@:
mov al, byte [it_keycode]
test al, al
jz @f
shl edx, 8
mov dl, al
mov eax, dword [it_hotkey_addr]
test eax, eax
jnz @f
call it_set_keycode_name
mov al, byte [hotkeys_num]
dec al
and eax, 0xFF
shl eax, 2;5
add eax, dword Hotkeys.codes
mov dword [eax], edx
mov dword [it_hotkey_addr], eax
mov cl, dl ; finally set hotkey
shr edx, 8
mcall 66, 4
@@:
jmp it_still
it_test_key_modifiers:
push eax
mcall 66, 3 ;get control keys state
mov edx, eax
;and edx, 0x00000FFF
.lshift:
test al, 1 ; LShift ?
jz .rshift
stdcall outtextxy, 10, 100, ctrl_key_names, 6, A_TEXTCOLOR
.rshift:
test al, 2 ; RShift ?
jz .lctrl
stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, A_TEXTCOLOR
.lctrl:
test al, 4 ; LCtrl ?
jz .rctrl
stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, A_TEXTCOLOR
.rctrl:
test al, 8 ; RCtrl ?
jz .lalt
stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, A_TEXTCOLOR
.lalt:
test al, 0x10 ; LAlt ?
jz .ralt
stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, A_TEXTCOLOR
.ralt:
test al, 0x20 ; RAlt ?
jz @f
stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, A_TEXTCOLOR
@@:
pop eax
ret
it_set_keycode_name:
pusha
mov al, byte [hotkeys_num]
dec al
and eax, 0xFF
shl eax, 6
mov edi, Hotkeys.code_names
add edi, eax
mov ecx, 64
xor ax, ax
call strnset
mcall 66, 3 ;get control keys state
.lshift:
test al, 1 ; LShift ?
jz .rshift
mov esi, ctrl_key_names
mov ecx, 6
call strncat
mov esi, aPlus
mov ecx, 3
call strncat
;stdcall outtextxy, 10, 100, ctrl_key_names, 6, 0x00FF0000
.rshift:
test al, 2 ; RShift ?
jz .lctrl
mov esi, ctrl_key_names+29
mov ecx, 6
call strncat
mov esi, aPlus
mov ecx, 3
call strncat
;stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, 0x00FF0000
.lctrl:
test al, 4 ; LCtrl ?
jz .rctrl
mov esi, ctrl_key_names+7
mov ecx, 5
call strncat
mov esi, aPlus
mov ecx, 3
call strncat
;stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, 0x00FF0000
.rctrl:
test al, 8 ; RCtrl ?
jz .lalt
mov esi, ctrl_key_names+23
mov ecx, 5
call strncat
mov esi, aPlus
mov ecx, 3
call strncat
;stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, 0x00FF0000
.lalt:
test al, 0x10 ; LAlt ?
jz .ralt
mov esi, ctrl_key_names+13
mov ecx, 4
call strncat
mov esi, aPlus
mov ecx, 3
call strncat
;stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, 0x00FF0000
.ralt:
test al, 0x20 ; RAlt ?
jz @f
mov esi, ctrl_key_names+18
mov ecx, 4
call strncat
mov esi, aPlus
mov ecx, 3
call strncat
;stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, 0x00FF0000
@@:
mov esi, it_ascii_keymap
and edx, 0xFF
add esi, edx
mov ecx, 1
call strncat
if 1;DEBUG
mov esi, edi;Hotkeys.code_names
call SysMsgBoardStr
newline
end if
popa
ret
it_button:
mcall 17 ; Get pressed button code
cmp ah, 1 ; Test x button
jne @f
jmp close_app
@@:
jmp it_still
it_mouse:
push dword it_edit
call [edit_box_mouse]
jmp it_still
it_draw_window:
start_draw_window 450,WIN_Y+250,225,70,WIN_COLOR,it_labelt, 26;labellen-labelt
push dword it_edit
call [edit_box_draw]
stdcall outtextxy, 43, 50, it_hint, 0, 0x323232
stdcall outtextxy, 10, 100, ctrl_key_names, 0, 0
;stdcall draw_button, 7,WIN_H-30,80,20,2,C_KEYCOLOR,AddKeyText, 0,C_TEXTCOLOR ; Add Hot key.
end_draw_window
mov byte [it_alive], 1
ret
;######################## Input Thread code end ##########################
; Read configuration file
ReadIni:
; Get path
mov edi, ini_path
mov esi, app_path
call strlen
.get_path:
cmp byte [app_path+ecx-1], '/'
je @f
loop .get_path
@@:
call strncpy
mov byte [ini_path+ecx], 0
mov esi, aIni
call strlen
call strncat
; Get hotkey number
invoke ini_get_int, ini_path, aMain, aKeynum, 0
and eax, 0xFF
test al, al
jz .end
cmp al, MAX_HOTKEYS_NUM
jle @f
mov al, MAX_HOTKEYS_NUM
@@:
mov byte [hotkeys_num], al
mov ecx, eax
xor eax, eax
.get_next_hotkey_values:
call set_next_hotkey_section_name
; Get hotkey name
mov edi, eax
shl edi, 5 ; edi=eax*32
add edi, dword Hotkeys
push eax ecx
invoke ini_get_str, ini_path, aHotkey, aName, edi, 32, 0
pop ecx eax
; Get hotkey code
mov edi, eax
shl edi, 2 ; edi=eax*4
add edi, dword Hotkeys.codes
push eax ecx edx
invoke ini_get_int, ini_path, aHotkey, aKeycode, 0
mov dword [it_hotkey_addr], edi
stosd
; set hotkey
call reset_modifiers
pop edx ecx eax
; Get hotkey code_name
mov edi, eax
shl edi, 6 ; edi=eax*64
add edi, dword Hotkeys.code_names
push eax ecx
invoke ini_get_str, ini_path, aHotkey, aKeycodeName, edi, 64, 0
pop ecx eax
; Get hotkey path and param
push eax ecx
mov cl, byte PATH_MAX_CHARS
mul cl
mov edi, eax
push edi
add edi, dword [buf_cmd_line]
invoke ini_get_str, ini_path, aHotkey, aPath, edi, 32, 0
pop edi
add edi, dword [buf_cmd_params]
invoke ini_get_str, ini_path, aHotkey, aParam, edi, 32, 0
pop ecx eax
inc al
dec ecx
test ecx, ecx
jnz .get_next_hotkey_values
.end:
ret
; Write configuration file
WriteIni:
mov edi, ini_path
; Set hotkey number
movzx ecx, byte [hotkeys_num]
invoke ini_set_int, ini_path, aMain, aKeynum, ecx
xor eax, eax
.get_next_hotkey_values:
call set_next_hotkey_section_name
; Set hotkey name
push eax ecx
mov esi, eax
shl esi, 5 ; edi=eax*32
add esi, dword Hotkeys
call strlen
invoke ini_set_str, ini_path, aHotkey, aName, esi, ecx
pop ecx eax
; Set hotkey code
mov esi, eax
shl esi, 2 ; edi=eax*4
add esi, dword Hotkeys.codes
push eax ecx edx
invoke ini_set_int, ini_path, aHotkey, aKeycode, dword [esi]
pop edx ecx eax
; Set hotkey code_name
mov esi, eax
shl esi, 6 ; edi=eax*64
add esi, dword Hotkeys.code_names
push eax ecx
call strlen
invoke ini_set_str, ini_path, aHotkey, aKeycodeName, esi, ecx
pop ecx eax
; Set hotkey path and param
push eax ecx
;inc al
mov cl, byte PATH_MAX_CHARS
mul cl
mov esi, eax
push esi
add esi, dword [buf_cmd_line]
call strlen
invoke ini_set_str, ini_path, aHotkey, aPath, esi, ecx
pop esi
add esi, dword [buf_cmd_params]
call strlen
invoke ini_set_str, ini_path, aHotkey, aParam, esi, ecx
pop ecx eax
inc al
dec ecx
test ecx, ecx
jnz .get_next_hotkey_values
.end:
ret
set_next_hotkey_section_name: ;(eax - num)
; this code mainly from debug.inc
push eax ecx edi
mov edi, aHotkey
add edi, 6 ; + strlen("hotkey")
mov ecx, 10
push -'0'
.l0:
xor edx, edx
div ecx
push edx
test eax, eax
jnz .l0
.l1:
pop eax
add al, '0'
;call debug_outchar
stosb
jnz .l1
pop edi ecx eax
ret
;****************************************
;* input: esi = pointer to keymap *
;* ah = scan code *
;* output: ah = ascii code *
;****************************************
Scan2ASCII:
push esi
shr eax, 8
add esi, eax
lodsb
shl eax, 8
pop esi
ret
;********************************************
;* input: esi = pointer to the file name *
;* edx = pointer to the parametrs *
;********************************************
RunProgram:
pusha
mov dword [InfoStructure], 7 ; run program
mov dword [InfoStructure+4], 0 ; flags
mov dword [InfoStructure+8], edx ; pointer to the parametrs
mov dword [InfoStructure+12], 0 ; reserved
mov dword [InfoStructure+16], 0 ; reserved
mov dword [InfoStructure+20], 0 ; reserved
mov dword [InfoStructure+21], esi ; pointer to the file name
mcall 70, InfoStructure
cmp eax, 0
jl .err_out
.out:
popa
clc
ret
.err_out:
print "Can't load program"
popa
stc
ret
; DATA AREA
; Application Title
labelt db 'MyKey v.0.2'
mykey_window dd 0 ; Slot number of MyKey
;########### Input Thread data start ############
; Input Thread Title
it_labelt db "Input hotkey and it's name"
;labellen:
it_edit edit_box 180, 20, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, 31, it_buf_cmd_line, 0, 0
it_buf_cmd_line dd 0 ;db MAX_HOTKEYS_NUM*32 dup(0) ; !Make it dynamic!!!
it_window dd 0 ; Slot number of the input thread
it_alive db 0 ; Flag of the input thread existance
it_keycode db 0
it_hotkey_addr dd 0
it_hint db 'or press Esc to cancel',0
;########### Input Thread data end ############
;Button names
AddKeyText db 'Add',0
ReloadKeyText db 'Reload',0
SaveKeyText db 'Save',0
;DeleteKeyText db 'Delete',0
;ManageKeyText db 'Manage',0
hotkeys_num db 0;15
;keyboard_mode db 0 ; Scan or ASCII keys to send ? 0 - ASCII , 1 - Scan
butt db FIRST_ITEM_BUTTON_ID ; Pressed button ID
modifiers dd 0
;Data structures for loadlib.mac and editbox_ex.mac [
edit1 edit_box 350, 220, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_line, 0, 0
edit2 edit_box 350, 220, 50, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_params, 0, 0
buf_cmd_line dd 0 ;db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dynamic!!!
buf_cmd_params dd 0 ;db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dynamic!!!
sys_path:
system_dir0 db '/sys/lib/'
boxlib_name db 'box_lib.obj',0
err_message_found_lib db "Can't find box_lib.obj",0
head_f_i:
head_f_l db 'System error',0
err_message_import db 'Error on import box_lib.obj',0
align 4
myimport:
edit_box_draw dd aEdit_box_draw
edit_box_key dd aEdit_box_key
edit_box_mouse dd aEdit_box_mouse
version_ed dd aVersion_ed
dd 0,0
aEdit_box_draw db 'edit_box',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
aVersion_ed db 'version_ed',0
align 16
importTable:
library \
libini, 'libini.obj';, \
; boxlib, 'boxlib.obj', \
; libio, 'libio.obj', \
;import boxlib, \
;edit_box_draw , 'edit_box', \
;edit_box_key , 'edit_box_key', \
;edit_box_mouse , 'edit_box_mouse', \
;version_ed , 'version_ed'
import libini, \
ini_get_str ,'ini_get_str', \
ini_set_str ,'ini_set_str', \
ini_get_int ,'ini_get_int', \
ini_set_int ,'ini_set_int';, \
; ini_get_color,'ini_get_color', \
; ini_set_color,'ini_set_color'
;] Data structures for loadlib.mac and editbox_ex.mac
InfoStructure:
dd 0x0 ; subfunction number
dd 0x0 ; position in the file in bytes
dd 0x0 ; upper part of the position address
dd 0x0 ; number of bytes to read
dd 0x0 ; pointer to the buffer to write data
db 0
dd 0 ; pointer to the filename
I_END: ; End of application code and data marker
rb 300 ;input thread stack size
input_thread_stack_top:
ascii_keymap:
db 128 dup(?)
ctrl_key_names db 'LShift LCtrl LAlt RAlt RCtrl RShift',0
aPlus db ' + ',0
aIni db 'mykey.ini',0
aMain db 'main',0
aKeynum db 'keynum',0
aHotkey db 'hotkey',0,0,0
aName db 'name',0
aKeycode db 'keycode',0
aKeycodeName db 'keycode_name',0
aPath db 'path',0
aParam db 'param',0
aRamSaver db '/sys/rdsave',0
app_path rb 255
ini_path rb 255
Hotkeys: ;(name = 32 b) + (modifiers = 3 b) + (keycode = 1 b) = 36 byte for 1 hotkey
.names:
db 'My1',0
rb 28
db 'My2',0
rb 28
db 'My3',0
rb 28
rb MAX_HOTKEYS_NUM*32-3
.codes:
dd MAX_HOTKEYS_NUM dup (0)
.code_names:
rb MAX_HOTKEYS_NUM*64
it_ascii_keymap: