Subversion Repositories Kolibri OS

Rev

Rev 6965 | Rev 6994 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6965 Rev 6968
Line 136... Line 136...
136
; ª®¬¡¨­ æ¨¨ Ctrl + ª« ¢¨è 
136
; ª®¬¡¨­ æ¨¨ Ctrl + ª« ¢¨è 
137
        test    word ed_flags,ed_ctrl_on
137
        test    word ed_flags,ed_ctrl_on
138
        jz      @f
138
        jz      @f
139
; ¯à®¢¥àª  ᪠­ª®¤ 
139
; ¯à®¢¥àª  ᪠­ª®¤ 
140
        ror     eax,8
140
        ror     eax,8
-
 
141
        cmp     ah,45 ; Ctrl + X
-
 
142
        je      edit_box_key.ctrl_x        
141
        cmp     ah,46 ; Ctrl + C
143
        cmp     ah,46 ; Ctrl + C
142
        je      edit_box_key.ctrl_c
144
        je      edit_box_key.ctrl_c
143
        cmp     ah,47 ; Ctrl + V
145
        cmp     ah,47 ; Ctrl + V
144
        je      edit_box_key.ctrl_v
146
        je      edit_box_key.ctrl_v
145
        rol     eax,8
147
        rol     eax,8
Line 415... Line 417...
415
restore Src      
417
restore Src      
416
restore Pos    
418
restore Pos    
417
restore DstSize
419
restore DstSize
418
restore TmpBuf 
420
restore TmpBuf 
419
;----------------------------------------                
421
;----------------------------------------         
-
 
422
edit_box_key.ctrl_x:
-
 
423
        push    dword 'X'  ; this value need below to determine which action is used
-
 
424
        jmp     edit_box_key.ctrl_c.pushed
-
 
425
        
420
edit_box_key.ctrl_c:
426
edit_box_key.ctrl_c:
-
 
427
        push    dword 'C'  ; this value need below to determine which action is used
-
 
428
.pushed:        
421
; add memory area
429
; add memory area
422
        mov     ecx,ed_size
430
        mov     ecx,ed_size
423
        add     ecx,3*4
431
        add     ecx,3*4
424
        mcall   SF_SYS_MISC,SSF_MEM_ALLOC
432
        mcall   SF_SYS_MISC,SSF_MEM_ALLOC
425
; building the clipboard slot header
433
; building the clipboard slot header
Line 458... Line 466...
458
        mcall   SF_CLIPBOARD,SSF_WRITE_CB
466
        mcall   SF_CLIPBOARD,SSF_WRITE_CB
459
        pop     ecx
467
        pop     ecx
460
; remove unnecessary memory area
468
; remove unnecessary memory area
461
        mcall   SF_SYS_MISC,SSF_MEM_FREE
469
        mcall   SF_SYS_MISC,SSF_MEM_FREE
462
.exit:
470
.exit:
-
 
471
        pop     eax        ; determine current action (ctrl+X or ctrl+C)
-
 
472
        cmp     eax, 'X'
-
 
473
        je      edit_box_key.delete
463
        jmp     edit_box.editbox_exit
474
        jmp     edit_box.editbox_exit
Line 464... Line 475...
464
 
475
 
465
edit_box_key.ctrl_v:
476
edit_box_key.ctrl_v:
466
        mcall   SF_CLIPBOARD,SSF_GET_SLOT_COUNT
477
        mcall   SF_CLIPBOARD,SSF_GET_SLOT_COUNT