Subversion Repositories Kolibri OS

Rev

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

Rev 617 Rev 629
Line 125... Line 125...
125 
endp
 125 
endp
Line 126... Line 126...
126 
 
 126 
 
127 
;-----------------------------------------------------------------------------
 127 
;-----------------------------------------------------------------------------
128 
proc key.ctrl_o ;///// ENTER OPEN FILENAME ///////////////////////////////////
 128 
proc key.ctrl_o ;///// ENTER OPEN FILENAME ///////////////////////////////////
129 
;-----------------------------------------------------------------------------
 129 
;-----------------------------------------------------------------------------
Line 130... Line 130...
130 
	mov	[bot_dlg_mode2],0
 130 
	mov	[bot_mode2],0
131 
 
 131 
 
132 
  .direct:
 132 
  .direct:
133 
	cmp	[bot_dlg_mode2], 2
 133 
	cmp	[bot_mode2], 2
134 
	je	.ask
 134 
	je	.ask
Line 135... Line 135...
135 
	mov	[s_status],s_enter_filename
 135 
	mov	[s_status],s_enter_filename
Line 162... Line 162...
162 
	call	drawwindow
 162 
	call	drawwindow
163 
  .exit:
 163 
  .exit:
164 
	ret
 164 
	ret
Line 165... Line 165...
165 
 
 165 
 
166 
    key.shift_ctrl_s:
 166 
    key.shift_ctrl_s:
167 
	mov	[bot_dlg_mode2],1
 167 
	mov	[bot_mode2],1
168 
	jmp	key.ctrl_o.direct
 168 
	jmp	key.ctrl_o.direct
Line 169... Line 169...
169 
endp
 169 
endp
170 
 
 170 
 
Line 176... Line 176...
176 
endp
 176 
endp
Line 177... Line 177...
177 
 
 177 
 
178 
;-----------------------------------------------------------------------------
 178 
;-----------------------------------------------------------------------------
179 
proc key.ctrl_f ;///// ENTER KEYWORD TO FIND /////////////////////////////////
 179 
proc key.ctrl_f ;///// ENTER KEYWORD TO FIND /////////////////////////////////
180 
;-----------------------------------------------------------------------------
 180 
;-----------------------------------------------------------------------------
181 
	mov	[bot_dlg_mode2],0
 181 
	mov	[bot_mode2],0
Line 182... Line 182...
182 
	mov	[bot_dlg_height],16*2+4*2-1
 182 
	mov	[bot_dlg_height],16*2+4*2-1
Line 183... Line 183...
183 
 
 183 
 
Line 203... Line 203...
203 
	call	drawwindow
 203 
	call	drawwindow
204 
	ret
 204 
	ret
205 
endp
 205 
endp
Line 206... Line 206...
206 
 
 206 
 
207 
proc key.ctrl_h
 207 
proc key.ctrl_h
208 
	mov	[bot_dlg_mode2],1
 208 
	mov	[bot_mode2],1
Line 209... Line 209...
209 
	mov	[bot_dlg_height],16*3+4*2+1
 209 
	mov	[bot_dlg_height],16*3+4*2+1
Line 210... Line 210...
210 
 
 210 
 
211 
	mov	[s_status],s_enter_text_to_replace
 211 
	mov	[s_status],s_enter_text_to_replace
Line 212... Line 212...
212 
 
 212 
 
213 
	jmp	key.ctrl_f.direct
 213 
	jmp	key.ctrl_f.direct
214 
endp
 214 
endp
215 
 
 215 
 
216 
proc key.ctrl_g
 216 
proc key.ctrl_g
Line 217... Line 217...
217 
	ret
 217 
	ret
218 
@^
 218 
@^
219 
	mov	[bot_dlg_mode2],0
 219 
	mov	[bot_mode2],0
Line 1490... Line 1490...
1490 
;-----------------------------------------------------------------------------
 1490 
;-----------------------------------------------------------------------------
1491 
proc key.ctrl_f4 ;///// CLOSE CURRENT TAB ////////////////////////////////////
 1491 
proc key.ctrl_f4 ;///// CLOSE CURRENT TAB ////////////////////////////////////
1492 
;-----------------------------------------------------------------------------
 1492 
;-----------------------------------------------------------------------------
1493 
	cmp	[cur_editor.Modified], 0
 1493 
	cmp	[cur_editor.Modified],0
1494 
	je	.close
 1494 
	je	.close
1495 
	mov	[bot_dlg_mode2], 2
 1495 
	mov	[bot_mode2],2
1496 
	jmp	key.ctrl_o.direct
 1496 
	jmp	key.ctrl_o.direct
1497 
 .close:
 1497 
 .close:
1498 
	mov	[do_not_draw],1
 1498 
	mov	[do_not_draw],1
1499 
	push	[tab_bar.Current.Ptr]
 1499 
	push	[tab_bar.Current.Ptr]
1500 
	cmp	[tab_bar.Items.Count],1
 1500 
	cmp	[tab_bar.Items.Count],1
Line 1554... Line 1554...
1554 
endp
 1554 
endp
Line 1555... Line 1555...
1555 
 
 1555 
 
1556 
;-----------------------------------------------------------------------------
 1556 
;-----------------------------------------------------------------------------
1557 
proc key.alt_x ;///// EXIT PROGRAM ///////////////////////////////////////////
 1557 
proc key.alt_x ;///// EXIT PROGRAM ///////////////////////////////////////////
- 
 
 1558 
;-----------------------------------------------------------------------------
- 
 
 1559 
	mov	[main_closing],1
- 
 
 1560 
	mov	eax,[tab_bar.Items]
- 
 
 1561 
	mov	[exit_tab_item],eax
- 
 
 1562 
	mov	eax,[tab_bar.Items.Count]
- 
 
 1563 
	mov	[exit_tab_num],eax
- 
 
 1564 
  .direct:
- 
 
 1565 
	call	try_to_close_tabs
- 
 
 1566 
	or	eax,eax
- 
 
 1567 
	jz	.close
- 
 
 1568 
	mov	[bot_mode2],2
- 
 
 1569 
	jmp	key.ctrl_o.direct
- 
 
 1570 
 
1558 
;-----------------------------------------------------------------------------
 1571 
  .close:
1559 
	mov	esi,self_path
 1572 
	mov	esi,self_path
1560 
	mov	byte[esi+PATHL-1],0
 1573 
	mov	byte[esi+PATHL-1],0
1561 
	mov	edi,f_info.path
 1574 
	mov	edi,f_info.path
1562 
	cld
 1575 
	cld
Line 1572... Line 1585...
1572 
	mov	[f_info70+16],0
 1585 
	mov	[f_info70+16],0
1573 
	mov	byte[f_info70+20],0
 1586 
	mov	byte[f_info70+20],0
1574 
	mov	[f_info70+21],f_info.path
 1587 
	mov	[f_info70+21],f_info.path
1575 
	mcall	70,f_info70
 1588 
	mcall	70,f_info70
Line 1576... Line -...
1576 
 
 - 
 
1577 
  .bgn_rp:
 - 
 
1578 
	call	key.ctrl_f4
 - 
 
1579 
  .close:
 - 
 
1580 
	cmp	[tab_bar.Items.Count],1
 - 
 
1581 
	jne	.bgn_rp
 1589 
 
1582 
	mov	[main_closed],1
 1590 
	mov	[main_closed],1
1583 
	mcall	-1
 1591 
	mcall	-1
- 
 
 1592 
endp
- 
 
 1593 
 
- 
 
 1594 
;-----------------------------------------------------------------------------
- 
 
 1595 
proc try_to_close_tabs ;///// FIND TABS TO BE SAVED BEFORE CLOSE /////////////
- 
 
 1596 
;-----------------------------------------------------------------------------
- 
 
 1597 
	push	ecx ebp
- 
 
 1598 
	call	flush_cur_tab
- 
 
 1599 
	mov	ebp,[exit_tab_item] ; [tab_bar.Items]
- 
 
 1600 
	add	ebp,-sizeof.TABITEM
- 
 
 1601 
    @@: dec	[exit_tab_num]
- 
 
 1602 
	js	.ok
- 
 
 1603 
	add	ebp,sizeof.TABITEM
- 
 
 1604 
	mov	al,[ebp+TABITEM.Editor.Modified]
- 
 
 1605 
	cmp	[ebp+TABITEM.Editor.Modified],0
- 
 
 1606 
	je	@b
- 
 
 1607 
	mov	[exit_tab_item],ebp
- 
 
 1608 
	call	set_cur_tab
- 
 
 1609 
	call	make_tab_visible
- 
 
 1610 
	xor	eax,eax
- 
 
 1611 
	inc	eax
- 
 
 1612 
    @@: pop	ebp ecx
- 
 
 1613 
	ret
- 
 
 1614 
  .ok:	xor	eax,eax
- 
 
 1615 
	jmp	@b