rewrite editbox, modify mouse function, modify key function

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

programs/develop/examples/editbox/trunk/EDITBOX.INC

@@ -1,3 +1,4 @@
+; <Lrz> 04.04.2007 <20><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD> <20><>誮<EFBFBD>, <20><><EFBFBD> 㤠<><E3A4A0><EFBFBD><EFBFBD><EFBFBD> <20><>᫥<EFBFBD><E1ABA5><EFBFBD><EFBFBD><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0 (ᯠᨡ<E1AFA0> Mario79)
 ; <Lrz> 04.04.2007 <20><><EFBFBD><EFBFBD>୨<EFBFBD><E0ADA8>஢<EFBFBD><E0AEA2> <20><><EFBFBD>⥬<EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD>⢥<EFBFBD><E2A2A5><EFBFBD> <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD> <20> <20><>ࠡ<EFBFBD>⪠, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> <20><>ࠡ<EFBFBD>⪨ <20><>㣨<EFBFBD> <20><><EFBFBD>ᮢ, <20><> <20>६<EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><>誮<EFBFBD> ⥪<><E2A5AA><EFBFBD>, <20><><EFBFBD> <20>⮣<EFBFBD> <20> ⥪<><E2A5AA> <20>ணࠬ<E0AEA3><E0A0AC> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. dd 0x0 <20> <20> <20><><EFBFBD><EFBFBD> <20>㤥<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 㪠<>⥫<EFBFBD> <20><> editbox
 ; <Lrz> 30.03.2007 <20><>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>, ⥯<><E2A5AF><EFBFBD> ⥪<><E2A5AA> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⮫쪮 ⮫쪮 <20><>誮<EFBFBD>
 ; <Lrz> 09.03.2007 <20><><EFBFBD><EFBFBD>ᠫ <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD> mouse + shift  <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
@@ -55,6 +56,9 @@
 ; <20><>⨢<EFBFBD><E2A8A2><EFBFBD>.
 ;  <20>᫨ 饫箪 <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20>ன<EFBFBD><E0AEA9><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> edit box
 ; 䮪<><E4AEAA> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
+;;;;;;;;;;;;;;;;;;
+include 'editbox.mac'    ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> :) ᯥ樠<E1AFA5>쭮 <20><><EFBFBD> editbox
+;;;;;;;;;;;;;;;;;;
 macro use_edit_box
 {
 edit_box:
@@ -62,19 +66,20 @@ ed_width	equ [edi]		;
 ed_left         equ [edi+4]             ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20>
 ed_top          equ [edi+8]             ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20>
 ed_color        equ [edi+12]            ;梥<> 䮭<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_focus_border_color	equ [edi+16]	;梥<> ࠬ<><E0A0AC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+shift_color	equ [edi+16]		;=0x6a9480
-ed_blur_border_color	equ [edi+20]    ;梥<> <EFBFBD><EFBFBD> <20><>⨢<EFBFBD><E2A8A2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_focus_border_color   equ [edi+20]    ;梥<> ࠬ<EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_text_color	equ [edi+24]            ;梥<> ⥪<EFBFBD><EFBFBD><EFBFBD>
+ed_blur_border_color    equ [edi+24]    ;梥<> <20><> <20><>⨢<EFBFBD><E2A8A2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_max		equ [edi+28]                    ;<3B><><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨬ<EFBFBD><E1A8AC>쭮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_text_color   equ [edi+28]            ;梥<> ⥪<EFBFBD><EFBFBD><EFBFBD>
-ed_text 	equ [edi+32]                    ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_max          equ [edi+32]                    ;<EFBFBD><EFBFBD><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨬ<EFBFBD><EFBFBD>쭮 <20><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_flags	equ [edi+36]            ;䫠<EFBFBD><EFBFBD>
+ed_text         equ [edi+36]                    ;㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
-ed_size equ [edi+38]                    ;<3B><><EFBFBD>-<2D><> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD>
+ed_flags        equ [edi+40]            ;䫠<EFBFBD><EFBFBD>
-ed_pos	equ [edi+42]                    ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_size equ [edi+42]                    ;<3B><><EFBFBD>-<EFBFBD><EFBFBD> ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-ed_offset	equ [edi+46]            ;ᬥ饭<EFBFBD><EFBFBD>
+ed_pos  equ [edi+46]                    ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-cl_curs_x	equ [edi+50]		;<3B>।<EFBFBD><E0A5A4><EFBFBD>饥 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <EFBFBD>
+ed_offset       equ [edi+50]            ;ᬥ饭<E1ACA5><EFBFBD>
-cl_curs_y	equ [edi+54]		;<3B>।<EFBFBD><E0A5A4><EFBFBD>饥 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>
+cl_curs_x       equ [edi+54]            ;<3B>।<EFBFBD><E0A5A4><EFBFBD>饥 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>
-ed_shift_pos	equ [edi+58]            ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+cl_curs_y       equ [edi+58]            ;<3B>।<EFBFBD><EFBFBD><EFBFBD>饥 <EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>
-ed_shift_pos_old equ [edi+62]           ;<3B><><EFBFBD>஥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_shift_pos    equ [edi+62]            ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ed_shift_pos_old equ [edi+66]           ;<3B><><EFBFBD>஥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 ;==========================================================
 ;=== <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> =================================
 ;==========================================================
@@ -97,8 +102,9 @@ pusha
         call    .draw_cursor
 @@:
         call    .draw_text
-popa
+edit_ex
-ret
+
+;debug_func
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> -----------------
 ;----------------------------------------------------------
@@ -109,8 +115,6 @@ ret
         mov     ebx,dword       ed_shift_pos
         call    .sh_cl_
 @@:     ret
-
-
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> ⥪<><E2A5AA><EFBFBD> --------------------------
 ;----------------------------------------------------------
@@ -299,12 +303,10 @@ pusha
 .chk_d: mov     ed_offset,ebx
         call    .draw_bg
         and     word ed_flags,ed_offset_cl
-popa
+edit_ex
-	ret
 @@:
         or      word ed_flags,ed_offset_fl
-popa
+edit_ex
-	ret
 ;==========================================================
 ;=== <20><>ࠡ<EFBFBD>⪠ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> =================================
 ;==========================================================
@@ -381,8 +383,7 @@ pusha
         cmp     ebx,edx
         jl      @f ; <20>᫨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ࠢ<><E0A0A2>
 .no_figure:
-	popa
+edit_ex
-	ret
 .insert: test   word ed_flags,ed_insert ;not    word ed_insert
          je     .insert_1
          and    word ed_flags,ed_insert_cl
@@ -391,7 +392,7 @@ pusha
         or      word ed_flags,ed_insert
         jmp     .no_figure
 .ins_v:
-	dec	dword [ebp+38];ed_size    ;processing is insert
+        dec     dword [ebp+42];ed_size    ;processing is insert
         sub     esi,ecx
         add     esi,ebx
         mov     edi,esi
@@ -414,7 +415,7 @@ popa
         cmp     ecx,ebx         ;<3B>᫨ <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ⥪<>饬<EFBFBD> ࠧ<><E0A0A7><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⮨<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
         je      .In_k
 
-	test	word [ebp+36],ed_insert ;IF insert is enable  <20>.<2E>. edi <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>㥬 <20><>१ ebp
+        test    word [ebp+40],ed_insert ;IF insert is enable  <20>.<2E>. edi <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>㥬 <20><>१ ebp
         jne     .ins_v
 ;clear
 pusha
@@ -450,8 +451,7 @@ popa
         jg      .bac_del
         test    word ed_flags,ed_shift_on
         jne     .del_bac
-	popa
+edit_ex
-	ret
 .bac_del:       
         call    .del_char
         jmp     .draw_all
@@ -459,15 +459,15 @@ popa
 ;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> backspace ---
 .backspace:
         ; <20>஢<EFBFBD><E0AEA2>塞, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ?
-	mov	edx,ed_size
         mov     ecx,ed_pos
         test    ecx,ecx
         jnz     .del_bac
         test    word ed_flags,ed_shift_on
         jne     .bac_del
-	popa
+
-	ret
+edit_ex
 .del_bac:
+        mov     edx,ed_size
         cmp     edx,ecx ;if ed_pos=ed_size
         je      @f
         dec     ecx
@@ -475,7 +475,6 @@ popa
 @@:     test    word ed_flags,ed_shift_on
         jne     .bac_del
         dec      dword ed_pos
-
 .draw_all:
         push    .shift;.draw_cursor_text;eax
 
@@ -678,9 +677,7 @@ popa
         jmp     .draw_cursor_text
 @@:
         and     word ed_flags,ed_shift_off
-	popa
+edit_ex
-	ret	
-
 ;<3B>஢<EFBFBD>ઠ <20><><EFBFBD><EFBFBD><EFBFBD>ﭨ<EFBFBD> shift <20><><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> ࠭<><E0A0AD><EFBFBD>?
 .sh_enable:
         test    word ed_flags,ed_shift
@@ -754,12 +751,13 @@ popa
         pusha
         mov     eax,ed_size
         mov     ebx,ed_text
+	test	eax,eax
         add     eax,ebx
+	jne	@f
         inc     eax
-	xor	ebx,ebx
+@@:     xor     ebx,ebx
         mov     [eax],bl
-	popa
+edit_ex
-	ret
 ;- 㤠<><E3A4A0><EFBFBD><EFBFBD><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD>
 ;<3B>室<EFBFBD><E5AEA4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edx=ed_size;ecx=ed_pos
 .del_char:
@@ -876,37 +874,21 @@ popa
 ;;;;;;;;;;;;;;;;;;
 .check_shift:
 pusha   ;<3B><><EFBFBD>࠭<EFBFBD><E0A0AD> <20><><EFBFBD> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD>
-	xor	ecx,ecx
+        mcall   66,3,1
-	inc	ecx
-	mov	eax,66
-	mov	ebx,3
-	int	0x40
         test    al,0x03
         je      @f
         or      word ed_flags,ed_shift   ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> 䫠<>
-@@:     popa	   ;<3B><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD>
+@@:edit_ex
-	ret
-
 ;==========================================================
 ;=== <20><>ࠡ<EFBFBD>⪠ <20><><EFBFBD><EFBFBD> =======================================
 ;==========================================================
 .mouse:
 pusha
-	mov	eax,dword [mouse_flag]
+;debug
-	test	eax,eax
-	jz	@f
-	cmp	eax,edi
-	je	@f
-
-	popa
-	ret
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD><EFBFBD>砥<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ﭨ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> -----------------------
 ;----------------------------------------------------------     
-@@:     
+        mcall   37,2
-	mov	eax,37
-	mov	ebx,2
-	int	0x40
 ;----------------------------------------------------------
 ;--- <20>஢<EFBFBD><E0AEA2>塞 <20><><EFBFBD><EFBFBD><EFBFBD>ﭨ<EFBFBD> ----------------------------------
 ;----------------------------------------------------------
@@ -915,40 +897,25 @@ pusha
         and     word ed_flags,ed_mouse_on_off
         xor     ebx,ebx
         mov     dword [mouse_flag],ebx
-	popa
+edit_ex
-	ret
-;----------------------------------------------------------
-;--- <20><>ࠡ<EFBFBD>⪠ .mouse_wigwag
-;----------------------------------------------------------
-.mouse_wigwag:
-	shr	eax,16
-	or	word ed_flags,ed_shift_on+ed_shift
-
-	mov	ecx,structure_of_potock
-	mov	ebx,dword [ecx+34]
-	add     ebx,ed_left
-	add	ebx,5
-	cmp	eax,ebx
-	jl	.left
-	add	ebx,ed_width
-        cmp	eax,ebx
-        jg	.right
-        jmp	._mvpos
-
 .mouse_left_button:
 ;----------------------------------------------------------
+;--- <20><><EFBFBD><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2> <20><> 䮪<><E4AEAA><EFBFBD>஢<EFBFBD><E0AEA2> <20> <20><>㣨<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+;----------------------------------------------------------
+        mov     eax,dword [mouse_flag]
+        test    eax,eax
+        jz      @f
+        cmp     eax,edi
+        je      @f
+        jmp     ._blur
+;----------------------------------------------------------
 ;--- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㥬 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD>, <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
 ;----------------------------------------------------------
-        mov	eax,9
+@@:     mcall   9,structure_of_potock,-1
-        mov 	ebx,structure_of_potock
-	or	ecx,-1
-	int	0x40
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD><EFBFBD>砥<EFBFBD> <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>⭮<EFBFBD><E2ADAE>⥫쭮 0 <20>.<2E> <20>ᥩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>࠭<EFBFBD>
 ;----------------------------------------------------------
-	mov	eax,37
+        mcall   37,0
-	xor	ebx,ebx
-	int	0x40
 ;----------------------------------------------------------
 ;--- <20> <20><> 㤥ন<E3A4A5><E0A6A8><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>誨, <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD>஭<EFBFBD>?
 ;----------------------------------------------------------
@@ -1014,8 +981,10 @@ pusha
         jne     @f
         
         mov     dword ed_shift_pos,eax
-	or	word  ed_flags,ed_mous_adn_b;ed_mouse_on
+        or      word  ed_flags,ed_mouse_on
         mov     dword ed_pos,eax
+        mov     dword [mouse_flag],edi          ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD>
+        bts     word ed_flags,1                 ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> 䮪<><E4AEAA><EFBFBD>
         jmp     .m_sh
 @@:             
         cmp     eax,dword ed_shift_pos  ;<3B>᫨ <20><><EFBFBD><EFBFBD>樨 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
@@ -1025,14 +994,11 @@ pusha
         mov     ebx,dword ed_shift_pos
         call    .sh_cl_
         or      word ed_flags,ed_mous_adn_b     ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD> +shift_on +
-	mov	dword [mouse_flag],edi
 .m_sh:  call    .draw_text
         call    .draw_cursor
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> 䮪<><E4AEAA><EFBFBD> ---------------------------
 ;----------------------------------------------------------
-	bts	word ed_flags,1
-	jc	.mouse_ex
         jmp     .drc
 ._blur:
         test    word ed_flags,ed_always_focus
@@ -1045,8 +1011,7 @@ pusha
 .drc:   call    .draw_border
 .mouse_ex:
 
-popa
+edit_ex
-ret
 ;----------------------------------------------------------
 ;--- <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> ࠧ<>뢠<EFBFBD><EBA2A0><EFBFBD> 䮪<><E4AEAA><EFBFBD> --------------------------
 ;----------------------------------------------------------
@@ -1058,8 +1023,105 @@ ret
         ;call    .draw_border
         ;call    .clear_cursor
 ;@@:
-;popa
+;edit_ex
-;ret
+
+;----------------------------------------------------------
+;--- <20><>ࠡ<EFBFBD>⪠ .mouse_wigwag
+;----------------------------------------------------------
+.mouse_wigwag:
+        shr     eax,16
+        or      word ed_flags,ed_shift_bac
+;;;;;;;;;;;;;;;;;;
+;;<3B><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><>ࠡ<EFBFBD>⪨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<><E2A5AA><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20>ந<EFBFBD>室<EFBFBD><E5AEA4> <20><>室 <20><> <20>।<EFBFBD><E0A5A4><EFBFBD> editbox
+;;;;;;;;;;;;;;;;;;
+        mov     ecx,structure_of_potock
+        mov     ebx,dword [ecx+34]
+        add     ebx,ed_left
+        add     ebx,5
+
+	cmp	eax,ebx
+	jb	.mleft
+
+	add	ebx,ed_width
+	cmp	eax,ebx
+	ja	.mright	
+
+	sub	ebx,ed_width
+
+        xor     edx,edx
+        sub     eax,ebx ; <20><><EFBFBD>⨬ <20><> <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD> <20><>誨 <20><> <20><><EFBFBD> <20> <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><> editbox <20><> <20><><EFBFBD> <20>
+        mov     ebx,6
+        div     ebx
+;;;;;;;;;;;;;;;;;;
+;;<3B><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><>ࠡ<EFBFBD>⪨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<><E2A5AA><EFBFBD>, <20> <20>।<EFBFBD><E0A5A4><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> editbox
+;;;;;;;;;;;;;;;;;;
+;<3B><><EFBFBD><EFBFBD>稫<EFBFBD> <20><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20> eax <20><>誨, <20>.<2E>. <20>㤠 <20><><EFBFBD> <20><>६<EFBFBD><E0A5AC>⨫<EFBFBD><E2A8AB><EFBFBD>
+;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><>אַ㣮<EFACAE>쭨<EFBFBD><ECADA8><EFBFBD> <20> <20><><EFBFBD><EFBFBD>⪠ <20><>
+	add	eax,ed_offset	;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᬥ饭<E1ACA5><E9A5AD>
+	cmp	eax,dword ed_size	;<3B>᫨ <20><>諨 <20><> <20>।<EFBFBD><E0A5A4><EFBFBD>, <20><> <20><>祣<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+	ja	.mwigvag
+.mdraw: 
+        mov     dword   ed_pos,eax ;<3B><><EFBFBD>࠭<EFBFBD><E0A0AD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD>
+;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><>אַ㣮<EFACAE>쭨<EFBFBD><ECADA8><EFBFBD> <20> <20><><EFBFBD><EFBFBD>⪠ <20><>
+	mov     ecx,dword       ed_shift_pos
+        mov     ebx,dword       ed_shift_pos_old
+        mov     dword   ed_shift_pos_old,eax    ;<3B><><EFBFBD>ᥬ <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20><><EFBFBD>ன <20><><EFBFBD><EFBFBD>樨 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+;<3B>஢<EFBFBD>ઠ <20> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD><E8A5AD> <20><><EFBFBD><EFBFBD><EFBFBD>⥩
+        cmp     ecx,ebx         ;<3B><><EFBFBD><EFBFBD><EFBFBD>塞 <20>㤠 <20>뫮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> 蠣 <20><><EFBFBD><EFBFBD><EFBFBD>
+        je      .m1_shem        ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>뫮 ࠭<><E0A0AD> 
+        jb      .msmaller       ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뫮 ->
+        cmp     ebx,eax         ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뫮 <20><> <20>⮣<EFBFBD> <- <20> <20><><EFBFBD> <20><> <20>஢<EFBFBD><E0AEA2>塞 ᥩ<><E1A5A9><EFBFBD> <20>㤠 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ந<EFBFBD>室<EFBFBD><E5AEA4>
+        ja      .m1_shem        ;<3B>᫨ <20>뫮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <- <20><> <20>㦭<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+	je	.mwigvag	;<3B>᫨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>뫮, <20><> <20><>祣<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+        mov     ebp,ed_color    ;<3B><><EFBFBD> <20>㦭<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> c ed_pos ed_shift_pos_old
+;<3B>室<EFBFBD><E5AEA4><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD> ebp=color ebx=ed_shift_pos
+        call    .sh_cl_
+        jmp     .mwigvag
+.msmaller:
+        cmp     ebx,eax
+        jb      .m1_shem
+        mov     ebp,ed_color
+;<3B>室<EFBFBD><E5AEA4><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD> ebp=color ebx=ed_shift_pos
+        call    .sh_cl_
+        jmp     .mwigvag
+;alike  =
+.m1_shem: 
+        mov     ebp,shift_color
+;<3B>室<EFBFBD><E5AEA4><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD> ebp=color ebx=ed_shift_pos
+	mov	ebx,ecx
+        call    .sh_cl_
+        jmp     .mwigvag
+.mwigvag:
+        and     word ed_flags,ed_shift_mcl
+	jmp	.draw_cursor_text
+;       popa
+;       ret
+.mleft:
+	mov	eax,ed_pos
+	test	eax,eax
+	jz	.mwigvag
+	dec	eax
+	call	.check_offset
+	push	eax
+	mov	ebx,ed_shift_pos
+	mov	ebp,shift_color
+	call	.sh_cl_
+	pop	eax
+	jmp	.mdraw
+.mright:
+	mov	eax,ed_pos
+	mov	ebx,ed_size
+	cmp	eax,ebx
+	jae	.mwigvag
+	inc     eax
+	call	.check_offset
+	mov	ebx,ed_shift_pos
+	mov	ebp,shift_color
+	push	eax
+	call	.sh_cl_
+	pop	eax
+	jmp	.mdraw	
+
 }
 ed_figure_only= 1000000000000000b   ;<3B><><EFBFBD><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD> 
 ed_always_focus= 100000000000000b
@@ -1071,6 +1133,7 @@ ed_shift_off=   1111111111111011b
 ed_shift_bac=              10000b   ;<3B><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⪨ <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> shift <20>.<2E>. <20><><EFBFBD> <20><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>
 ed_shift_bac_cl=1111111111101111b   ;<3B><><EFBFBD><EFBFBD>⪠ <20><><EFBFBD> 㤠<><E3A4A0><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>
 ed_shift_cl=    1111111111100011b
+ed_shift_mcl=   1111111111110011b
 ed_left_fl=               100000b
 ed_right_fl=    1111111111011111b
 ed_offset_fl=            1000000b
@@ -1081,7 +1144,6 @@ ed_mouse_on =          100000000b
 ed_mous_adn_b=         100011000b
 ed_mouse_on_off=1111111011111111b
 ed_height=14 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-shift_color=0x6a9480
 macro draw_edit_boxes start,end
 {
         mov     edi,start
@@ -1111,14 +1173,15 @@ macro key_edit_boxes start,end
         add     edi,ed_struc_size
         loop    @b
 }
-ed_struc_size=66
+ed_struc_size=70
-struc  edit_box width,left,top,color,focus_border_color,\
+struc  edit_box width,left,top,color,shift_color,focus_border_color,\
-       blur_border_color,text_color,max,text,flags,size
+       blur_border_color,text_color,max,text,flags,size,pos
 {
 .width dd width
 .left dd left
 .top dd top
 .color dd color
+.shift_color dd shift_color
 .focus_border_color dd focus_border_color
 .blur_border_color dd blur_border_color
 .text_color dd text_color
@@ -1126,7 +1189,7 @@ struc  edit_box width,left,top,color,focus_border_color,\
 .text dd text
 .flags dw flags+0
 .size dd size+0
-.pos dd 0
+.pos dd pos+0
 .offset dd 0
 .cl_curs_x dd 0
 .cl_curs_y dd 0

programs/develop/examples/editbox/trunk/editbox.asm

@@ -3,7 +3,6 @@
 ;<3B><>⨬<EFBFBD><E2A8AC><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> EditBox (<28><>室<EFBFBD><E5AEA4><EFBFBD> <20><>ਠ<EFBFBD><E0A8A0> <20><> Maxxxx32)
 ;<3B><>⨬<EFBFBD><E2A8AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
 ;<Lrz>  - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ᥩ  www.lrz.land.ru
-
 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 use32           ; <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD>騩 32 ࠧ<>來<EFBFBD><EFA4AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
     org 0x0             ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20>ᥣ<EFBFBD><E1A5A3> 0x0
@@ -15,24 +14,17 @@ use32		;
     dd i_end and not 3  ; <20><>ꥬ <20>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20>⥪<EFBFBD> <20>⢥<EFBFBD><E2A2A5><EFBFBD> 0<>100 <20><><EFBFBD><EFBFBD> <20> <20><>஢<EFBFBD><E0AEA2><EFBFBD> <20><> <20>୨<EFBFBD><E0ADA8> 4 <20><><EFBFBD><EFBFBD><EFBFBD>
     dd i_end and not 3  ; <20><>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>ࠧ<EFBFBD> <20><> ⥫<><E2A5AB> <20>ணࠬ<E0AEA3><E0A0AC>. <20><><EFBFBD>設<EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 㪠<><E3AAA0><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
     dd 0x0,0x0          ; 㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><>ப<EFBFBD> <20> <20><>ࠬ<EFBFBD><E0A0AC>ࠬ<EFBFBD>.
-                 ;    <20>᫨ <20><>᫥ <20><><EFBFBD><EFBFBD>᪠ <20><>ࠢ<EFBFBD><E0A0A2> <20><><EFBFBD><EFBFBD>, <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뫮
+        include 'macros.inc'
-                 ;    <20><><EFBFBD><EFBFBD>饭<EFBFBD> <20> <20><>ࠬ<EFBFBD><E0A0AC>ࠬ<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
-
-		 ;    㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><>ப<EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ᠭ <20><><EFBFBD><EFBFBD>,
-                 ;    <20><><EFBFBD>㤠 <20><><EFBFBD><EFBFBD>饭<EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-
         include 'editbox.inc'
         use_edit_box
 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
 start:                          ;<3B><>窠 <20>室<EFBFBD> <20> <20>ணࠬ<E0AEA3><E0A0AC>
-	mov	eax,40		;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮡ<>⨩
+        mcall   40,0x27         ;<3B><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮡ<>⨩
-	mov 	ebx,0x27        ;<3B><><EFBFBD>⥬<EFBFBD> <20>㤥<EFBFBD> ॠ<><E0A5A0>஢<EFBFBD><E0AEA2><EFBFBD> ⮫쪮 <20><> ᮮ<>饭<EFBFBD><E9A5AD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><>।<EFBFBD><E0A5A4>񭭠<EFBFBD> ࠭<><E0A0AD>, ᮡ<>⨥ <20><> <20><><EFBFBD><EFBFBD> (<28><><EFBFBD>-<2D><> <20><><EFBFBD>稫<EFBFBD><E7A8AB><EFBFBD> - <20><><EFBFBD><EFBFBD>⨥ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>; <20><><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⥭<EFBFBD><E2A5AD>) <20> <20><><EFBFBD><EFBFBD>⨥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+ ;<3B><><EFBFBD>⥬<EFBFBD> <20>㤥<EFBFBD> ॠ<><E0A5A0>஢<EFBFBD><E0AEA2><EFBFBD> ⮫쪮 <20><> ᮮ<>饭<EFBFBD><E9A5AD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><>।<EFBFBD><E0A5A4>񭭠<EFBFBD> ࠭<><E0A0AD>, ᮡ<>⨥ <20><> <20><><EFBFBD><EFBFBD> (<28><><EFBFBD>-<2D><> <20><><EFBFBD>稫<EFBFBD><E7A8AB><EFBFBD> - <20><><EFBFBD><EFBFBD>⨥ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>; <20><><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⥭<EFBFBD><E2A5AD>) <20> <20><><EFBFBD><EFBFBD>⨥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-        int	0x40
 red_win:
     call draw_window            ;<3B><>ࢮ<EFBFBD><E0A2AE>砫쭮 <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD>
 still:                          ;<3B>᭮<EFBFBD><E1ADAE><EFBFBD><EFBFBD> <20><>ࠡ<EFBFBD><E0A0A1>稪 
-     mov  eax,10 		;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮡ<><E1AEA1><EFBFBD><EFBFBD>
+        mcall   10              ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮡ<><E1AEA1><EFBFBD><EFBFBD> <20> <20><>祭<EFBFBD><E7A5AD> 2 <20><><EFBFBD><EFBFBD><EFBFBD>ᥪ㭤
-     int  0x40      		;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮡ<>⨥ <20> <20><>祭<EFBFBD><E7A5AD> 2 <20><><EFBFBD><EFBFBD><EFBFBD>ᥪ㭤
   
         cmp al,0x1    ;<3B>᫨ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
         jz red_win
@@ -45,48 +37,34 @@ still:				;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 button:
-mov eax,17		;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+        mcall   17      ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-    int 0x40
         test ah,ah              ;<3B>᫨ <20> ah 0, <20><> <20><>३<EFBFBD><E0A5A9> <20><> <20><>ࠡ<EFBFBD><E0A0A1>稪 ᮡ<>⨩ still
         jz  still
-    or eax,-1		;<3B> eax,-1 - 5 ,<2C><><EFBFBD>⮢ <20> <20><><EFBFBD> <20><> ⮫쪮 3  <20><><EFBFBD><EFBFBD><EFBFBD> 
+        mcall   -1
-    int 0x40 		;<3B><><EFBFBD><EFBFBD><EFBFBD> <20>믮<EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>室 <20><> <20>ணࠬ<E0AEA3><E0A0AC>
-    
 key:
-    mov eax,2		;<3B><><EFBFBD><EFBFBD>㧨<EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> 2 <20> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD> eax
+        mcall   2       ;<3B><><EFBFBD><EFBFBD>㧨<EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> 2 <20> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD> eax <20> <20><><EFBFBD><EFBFBD>稬 <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-    int 0x40            ;<3B><><EFBFBD><EFBFBD>稬 <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
         key_edit_boxes editboxes,editboxes_end    
     jmp still
 
 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 draw_window:            ;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-    mov eax,12		;<3B> ॣ<><E0A5A3><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> = 12
+        mcall   12,1
-    mov ebx,1 		;<3B><><EFBFBD>᢮<EFBFBD><E1A2AE><EFBFBD> 1
+        mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
-    int 0x40
-
-    xor eax,eax			;<3B><><EFBFBD>㫨<EFBFBD><E3ABA8> eax
-    mov ebx,50*65536+390	;[<5B><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> x]*65536 + [ࠧ<><E0A0A7><EFBFBD> <20><> <20><><EFBFBD> x]
-    mov ecx,30*65536+200	;[<5B><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> y]*65536 + [ࠧ<><E0A0A7><EFBFBD> <20><> <20><><EFBFBD> y]
-    mov edx,0xb3AABBCC		;0xXYRRGGBB  Y =3 - <20>뢮<EFBFBD> ࠬ<><E0A0AC>, <20>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD> <20><>ਭ
-    mov esi,0x805080DD		;0xXYRRGGBB - 梥<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-    mov edi,hed			;<3B><><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><>ப<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-    int 0x40			;<3B><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-  
         draw_edit_boxes editboxes,editboxes_end  ;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> edit box'<27><>
-
+        mcall   12,2
-    mov eax,12 			;<3B>㭪<EFBFBD><E3ADAA><EFBFBD> 12 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD>.
-    mov ebx,2			;<3B><><EFBFBD><EFBFBD>㭪<EFBFBD><E3ADAA><EFBFBD> 2 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD>.
-    int 0x40
     ret
 ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 ;DATA <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 
 editboxes:
-edit1 edit_box 168,5,10,0xffffff,0,0,0,99,ed_buffer.2,ed_figure_only
+edit1 edit_box 168,5,10,0xffffff,0x6a9480,0,0,0,99,ed_buffer.2,ed_figure_only
-edit2 edit_box 250,5,30,0xffffff,0,0xAABBCC,0,308,hed,ed_focus,53
+edit2 edit_box 250,5,30,0xffffff,0x6a9480,0,0xAABBCC,0,308,hed,ed_focus,53,53
-edit3 edit_box 35,5,50,0xffffff,0,0,0,9,ed_buffer.3,ed_figure_only
+edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
-edit4 edit_box 16,5,70,0xffffff,0,0,0,1,ed_buffer.4,ed_figure_only
+edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
 editboxes_end:
 data_of_code dd 0
+mouse_flag dd 0x0
+hed db   'EDITBOX optimization and retype <Lrz> date 13.04.2007',0
+rb  256
 ed_buffer:
 ;.1: rb 514;256
 .2: rb 101
@@ -94,9 +72,6 @@ ed_buffer:
 .4: rb 3
 ;<3B><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD> <20><><EFBFBD> ⮣<> <20><><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD>९<EFBFBD><E0A5AF><EFBFBD><EFBFBD><EFBFBD> ᫥<><E1ABA5><EFBFBD>騥<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0
 buffer_end:
-hed db   'EDITBOX optimization and retype <Lrz> date 04.04.2007',0
-rb  256
-mouse_flag: dd 0x0
 structure_of_potock:
 rb 1024 ;1 <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>祭<EFBFBD><E7A5AD> <20><>饩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 
 rb 1024

programs/develop/examples/editbox/trunk/editbox.mac

@@ -0,0 +1,52 @@
+; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>室<EFBFBD>
+macro edit_ex
+{
+popa
+ret
+}
+macro debug
+{
+        ;-----------  <20>⫠<EFBFBD><E2ABA0><EFBFBD>
+        pushad
+;        mov     dword [ed_buffer.2],0
+;        mov     eax,edi
+        mov eax,dword [ed_buffer.2]
+        mov edi,ed_buffer.3
+        call .str
+        ;<3B><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> 䮭<>
+        mov eax,13
+        mov ebx,178*65536+70
+        mov ecx,28*65536+10
+        xor edx,edx
+        int 0x40
+        ;<3B>뢮<EFBFBD> <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20><> <20><>࠭
+        mov eax,4
+        mov ebx,180*65536+30
+        mov ecx,0x10DDBBCC
+        mov edx,ed_buffer.3
+        mov esi,8
+        int 0x40
+        popad
+        ;----------- <20>⫠<EFBFBD><E2ABA0><EFBFBD>
+}
+macro   debug_func
+{
+.str:
+        mov ecx,0x0a ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><><EFBFBD>᫥<EFBFBD><E1ABA5><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD> ebx,eax,ecx,edx <20>室<EFBFBD><E5AEA4><EFBFBD> <20><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD> eax - <20><>᫮
+         ;<3B><><EFBFBD>ॢ<EFBFBD><E0A5A2> <20><>᫠ <20> ASCII <20><>ப<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ecx=<3D><><EFBFBD>⥬<EFBFBD> <20><><EFBFBD>᫥<EFBFBD><E1ABA5> edi <20><><EFBFBD><EFBFBD><EFBFBD> <20>㤠 <20><><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0>, <20>㤥<EFBFBD> <20><>ப<EFBFBD>, <20><><EFBFBD>祬 <20><><EFBFBD><EFBFBD><EFBFBD> <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> 
+        cmp eax,ecx  ;<3B>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20>᫨ <20> eax <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 祬 <20> ecx <20><> <20><>३<EFBFBD><E0A5A9> <20><> @@-1 <20>.<2E>. <20><> pop eax
+        jb @f
+        xor edx,edx  ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> edx
+        div ecx      ;ࠧ<><E0A0A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD>⮪ <20> edx
+        push edx     ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20>⥪
+        ;dec edi             ;ᬥ饭<E1ACA5><E9A5AD> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
+        call .str;<3B><>३<EFBFBD><E0A5A9> <20><> ᠬ<> ᥡ<> <20>.<2E>. <20>맢<EFBFBD><EBA7A2><EFBFBD> ᠬ<> ᥡ<> <20> ⠪ <20><> ⮣<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> eax <20><> <20>⠭<EFBFBD><E2A0AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 祬 <20> ecx
+        pop eax
+        @@: ;cmp al,10 ;<3B>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>祭<EFBFBD><E7A5AD> <20> al 祬 10 (<28><><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><><EFBFBD>᫥<EFBFBD><E1ABA5> 10 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><>譠<EFBFBD>))
+        ;sbb al,$69  ;- <20><><EFBFBD>⭮ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD>⠢<EFBFBD><E2A0A2><EFBFBD><EFBFBD> <20><><EFBFBD>㬠<EFBFBD><E3ACA0><EFBFBD><EFBFBD> <20>.<2E>. <20> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ࠡ<>⠥<EFBFBD>
+        ;das        ;<3B><>᫥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20>ந<EFBFBD>室<EFBFBD><E5AEA4> 㬥<><E3ACA5>襭<EFBFBD><E8A5AD> al <20><> 66h  (<28> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ᠭ<EFBFBD> <20><>㣮<EFBFBD>)
+        or al,0x30  ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  祬 <20><><EFBFBD> <20><><EFBFBD><EFBFBD> 
+        stosb       ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> ॣ<><E0A5A3><EFBFBD><EFBFBD><EFBFBD> al <20> <20>祪<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> es:edi
+ 
+        ret         ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 祭<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 室 <20>.<2E>. <20><><EFBFBD><EFBFBD> <20> <20>⥪<EFBFBD> <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20>맮<EFBFBD><EBA7AE><EFBFBD> <20><> <20>⮫쪮 ࠧ <20><> <20> <20>㤥<EFBFBD> <20><><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD><EFBFBD>
+}

programs/develop/examples/editbox/trunk/macros.inc

@@ -0,0 +1,269 @@
+; new application structure
+macro meos_app_start
+ {
+  use32
+  org 0x0
+
+  db 'MENUET01'
+  dd 0x01
+  dd __start
+  dd __end
+  dd __memory
+  dd __stack
+
+  if used __params & ~defined __params
+    dd __params
+  else
+    dd 0x0
+  end if
+
+  dd 0x0
+ }
+MEOS_APP_START fix meos_app_start
+
+macro code
+ {
+  __start:
+ }
+CODE fix code
+
+macro data
+ {
+  __data:
+ }
+DATA fix data
+
+macro udata
+ {
+  if used __params & ~defined __params
+    __params:
+      db 0
+    __end:
+      rb 255
+  else
+    __end:
+  end if
+  __udata:
+ }
+UDATA fix udata
+
+macro meos_app_end
+ {
+  align 32
+  rb 2048
+  __stack:
+  __memory:
+ }
+MEOS_APP_END fix meos_app_end
+
+
+; macro for defining multiline text data
+struc mstr [sstring]
+ {
+  forward
+    local ssize
+    virtual at 0
+      db sstring
+      ssize = $
+    end virtual
+    dd ssize
+    db sstring
+  common
+    dd -1
+ }
+
+
+; strings
+macro sz name,[data] {       ; from MFAR [mike.dld]
+  common
+   if used name
+    label name
+   end if
+  forward
+   if used name
+    db data
+   end if
+  common
+   if used name
+    .size = $-name
+   end if
+}
+
+macro lsz name,[lng,data] {  ; from MFAR [mike.dld]
+  common
+   if used name
+    label name
+   end if
+  forward
+   if (used name)&(lang eq lng)
+    db data
+   end if
+  common
+   if used name
+    .size = $-name
+   end if
+}
+
+
+
+; easy system call macro
+macro mpack dest, hsrc, lsrc
+{
+  if (hsrc eqtype 0) & (lsrc eqtype 0)
+    mov dest, (hsrc) shl 16 + lsrc
+  else
+    if (hsrc eqtype 0) & (~lsrc eqtype 0)
+      mov dest, (hsrc) shl 16
+      add dest, lsrc
+    else
+      mov dest, hsrc
+      shl dest, 16
+      add dest, lsrc
+    end if
+  end if
+}
+
+macro __mov reg,a,b {         ; mike.dld
+ if (~a eq)&(~b eq)
+   mpack reg,a,b
+ else if (~a eq)&(b eq)
+   mov reg,a
+ end if
+}
+
+macro mcall a,b,c,d,e,f {   ; mike.dld
+ __mov eax,a
+ __mov ebx,b
+ __mov ecx,c
+ __mov edx,d
+ __mov esi,e
+ __mov edi,f
+ int   0x40
+}
+
+
+
+; optimize the code for size
+__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
+
+macro add arg1,arg2
+ {
+   if (arg2 eqtype 0)
+      if (arg2) = 1
+         inc arg1
+      else
+         add arg1,arg2
+      end if
+   else
+      add arg1,arg2
+   end if
+ }
+
+macro sub arg1,arg2
+ {
+   if (arg2 eqtype 0)
+      if (arg2) = 1
+         dec arg1
+      else
+         sub arg1,arg2
+      end if
+   else
+      sub arg1,arg2
+   end if
+ }
+
+macro mov arg1,arg2
+ {
+   if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
+      if (arg2) = 0
+         xor arg1,arg1
+      else if (arg2) = 1
+         xor arg1,arg1
+         inc arg1
+      else if (arg2) = -1
+         or  arg1,-1
+      else if (arg2) > -128 & (arg2) < 128
+         push arg2
+         pop  arg1
+      else
+         mov  arg1,arg2
+      end if
+   else
+      mov arg1,arg2
+   end if
+ }
+
+
+macro struct name
+ {
+  virtual at 0
+   name name
+   sizeof.#name = $ - name
+  end virtual
+ }
+
+; structures used in MeOS
+struc process_information
+ {
+  .cpu_usage               dd ?  ; +0
+  .window_stack_position   dw ?  ; +4
+  .window_stack_value      dw ?  ; +6
+  .not_used1               dw ?  ; +8
+  .process_name            rb 12 ; +10
+  .memory_start            dd ?  ; +22
+  .used_memory             dd ?  ; +26
+  .PID                     dd ?  ; +30
+  .x_start                 dd ?  ; +34
+  .y_start                 dd ?  ; +38
+  .x_size                  dd ?  ; +42
+  .y_size                  dd ?  ; +46
+  .slot_state              dw ?  ; +50
+                           dw ?  ; +52 - reserved
+  .client_left             dd ?  ; +54
+  .client_top              dd ?  ; +58
+  .client_width            dd ?  ; +62
+  .client_height           dd ?  ; +66
+  .wnd_state               db ?  ; +70
+  rb (1024-71)
+ }
+;struct process_information
+
+struc system_colors
+ {
+  .frame            dd ?
+  .grab             dd ?
+  .grab_button      dd ?
+  .grab_button_text dd ?
+  .grab_text        dd ?
+  .work             dd ?
+  .work_button      dd ?
+  .work_button_text dd ?
+  .work_text        dd ?
+  .work_graph       dd ?
+ }
+;struct system_colors
+
+
+; constants
+
+; events
+EV_IDLE        = 0
+EV_TIMER       = 0
+EV_REDRAW      = 1
+EV_KEY         = 2
+EV_BUTTON      = 3
+EV_EXIT        = 4
+EV_BACKGROUND  = 5
+EV_MOUSE       = 6
+EV_IPC         = 7
+EV_STACK       = 8
+
+; event mask bits for function 40
+EVM_REDRAW     =        1b
+EVM_KEY        =       10b
+EVM_BUTTON     =      100b
+EVM_EXIT       =     1000b
+EVM_BACKGROUND =    10000b
+EVM_MOUSE      =   100000b
+EVM_IPC        =  1000000b
+EVM_STACK      = 10000000b