Subversion Repositories Kolibri OS

Rev

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

Rev 1792 Rev 3840
Line 23... Line 23...
23
	mouse_edit_box create_editboxes
23
	mouse_edit_box create_editboxes
24
	jmp .still
24
	jmp .still
25
;-------------------------------------------------------------
25
;-------------------------------------------------------------
26
.button_create:
26
.button_create:
27
    mov eax,17
27
    mov eax,17
28
    int 0x40
28
	mcall
29
    test ah,ah
29
    test ah,ah
30
    jz	.still
30
    jz	.still
31
    cmp  ah,160
31
    cmp  ah,160
32
    je	.exit_with_create
32
    je	.exit_with_create
33
    cmp  ah,161
33
    cmp  ah,161
Line 47... Line 47...
47
    mcall 66, 1, 1
47
    mcall 66, 1, 1
48
    jmp  red
48
    jmp  red
49
;-------------------------------------------------------------
49
;-------------------------------------------------------------
50
.key_create:
50
.key_create:
51
    mov eax,2
51
    mov eax,2
52
    int 0x40
52
	mcall
53
    cmp ah,13
53
    cmp ah,13
54
    je	.exit_with_create
54
    je	.exit_with_create
55
    cmp ah,27
55
    cmp ah,27
56
    je	.exit_without_create
56
    je	.exit_without_create
57
    key_edit_box create_editboxes
57
    key_edit_box create_editboxes
Line 85... Line 85...
85
    mov   cx,15
85
    mov   cx,15
86
    mov   bx,40
86
    mov   bx,40
87
    mov   esi,0xffffff
87
    mov   esi,0xffffff
88
    mov   edx,0x40000000+160
88
    mov   edx,0x40000000+160
89
    mov   eax,8
89
    mov   eax,8
90
    int   0x40
90
	mcall
91
    add   ebx,50 shl 16
91
    add   ebx,50 shl 16
92
    inc   edx
92
    inc   edx
93
    int   0x40
93
	mcall
94
    popa
94
    popa
Line 95... Line 95...
95
 
95
 
96
    push  ebx ecx
96
    push  ebx ecx
97
    add   ebx,70 shl 16
97
    add   ebx,70 shl 16
Line 102... Line 102...
102
    push  ebx ecx
102
    push  ebx ecx
103
    sub   ecx,1 shl 16
103
    sub   ecx,1 shl 16
104
    sub   ebx,1 shl 16
104
    sub   ebx,1 shl 16
105
    mov   bx,42
105
    mov   bx,42
106
    mov   cx,17
106
    mov   cx,17
107
    int   0x40
107
	mcall
108
    add   ebx,50 shl 16
108
    add   ebx,50 shl 16
109
    int   0x40
109
	mcall
110
    pop   ecx ebx
110
    pop   ecx ebx
111
    mov   edx,0xff7700
111
    mov   edx,0xff7700
112
    int   0x40
112
	mcall
113
    mov   edx,0xaa00
113
    mov   edx,0xaa00
114
    add   ebx,50 shl 16
114
    add   ebx,50 shl 16
115
    int   0x40
115
	mcall
116
    pop   ecx ebx
116
    pop   ecx ebx
Line 117... Line 117...
117
 
117
 
118
    shr   ecx,16
118
    shr   ecx,16
119
    mov   bx,cx
119
    mov   bx,cx
120
    add   ebx,30 shl 16+5
120
    add   ebx,30 shl 16+5
121
    mcall 4, ,0x90ffffff,create_dir  ;[confirmation_type]
121
    mcall 4, ,0x90ffffff,create_dir  ;[confirmation_type]
122
    add   ebx,48 shl 16+36
122
    add   ebx,48 shl 16+36
123
    mov   edx,type_yes
123
    mov   edx,type_yes
124
    int   0x40
124
	mcall
125
    add   ebx,56 shl 16
125
    add   ebx,56 shl 16
126
    mov   edx,type_no
126
    mov   edx,type_no
127
    int   0x40
127
	mcall
128
	ret
128
	ret
129
;-------------------------------------------------------------
129
;-------------------------------------------------------------
130
create_directory_1:
130
create_directory_1:
131
    mov   edx,create_dir_name
131
    mov   edx,create_dir_name