WebSVN – Kolibri OS – Diff – /programs/develop/tinypad/trunk/tinypad.asm

 ;-----------------------------------------------------------------------------
 ; project name:      TINYPAD
-; compiler:          flat assembler 1.67.1
+; compiler:          flat assembler 1.67.15
 ; memory to compile: 2.0/7.0 MBytes (without/with size optimizations)
 ; version:           4.0.4 pre
-; last update:       2006-12-30 (Dec 30, 2006)
+; last update:       2007-01-03 (Jan 3, 2007)
 ; minimal kernel:    revision #138 (svn://kolibrios.org/kernel)
 ;-----------------------------------------------------------------------------
 ; originally by:     Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
 ; maintained by:     Mike Semenyako          >> mike.dld@gmail.com
 ;                    Ivan Poddubny           >> ivan-yar@bk.ru
 ;-----------------------------------------------------------------------------
-; TODO:
+; TODO (FOR 4.1.0):
 ;   - optimize drawing (reduce flickering)
-;   - optimize memory usage (allocate only needed amount, not static 3 Mbytes)
-;   - add block selection ability, undo action, goto position
+;   - add vertical selection, undo, goto position, overwrite mode
-;   - working with multiple files (add tabs)
 ;   - improve window drawing with small dimensions
-;   - other bugfixes and speed/size optimizations
+;   - other bug-fixes and speed/size optimizations
+;
+; TODO (FOR 4.0.4, PLANNED FOR 2007-01-21):
+;   - finish tabbed interface [critical]
+;   - add memory reallocation to keys handler [critical]
+;   - rework save_file (memory manager) [critical]
+;   - reduce flickering (changes checker) [average]
+;   - incorrect saved/modified lines flags on copy/paste [normal]
+;   - case-insensitive file extensions comparison (.asm/.inc) [normal]
+;   - prompt to save file before closing/opening [low]
+;
 ; HISTORY:
 ; 4.0.4 pre (mike.dld)
 ;   bug-fixes:
-;     - clear statusbar text if dialog operation cancelled
+;     - statusbar contained hint after dialog operation cancelled
+;     - small drawing fix for gutter and line saved/modified markers
 ;   changes:
 ;     - modified/saved colors now match those in MSVS
+;     - function 70 for *all* file operations (including diamond's fixes)
+;     - use memory manager instead of statically allocated region
 ;   new features:
 ;     - recode tables between CP866, CP1251 and KOI8-R (suggested by Victor)
+;     - tabbed interface, ability to open several files in one app instance
 ; 4.0.3 (mike.dld)
 ;   bug-fixes:
 ;     - 1-char selection if pressing  out of real line length
 ;     - fault in `writepos`, added call to function 9
 ;     - main menu items weren't highlighted if popup opened and cursor
 ;   compile, run applications from TINYPAD, all fasm output is in debug board
 ;   TAB button
 ;   auto-indent
 ;   Ctrl+L - insert comment string
 ;-----------------------------------------------------------------------------
-; Memory 0x300000:
-;   stack for popup  0x00dff0 -
-;   stack for help   0x00eff0 -
-;   stack            0x00fff0 -
-;   load position    0x010000 +
-;   edit area        0x080000 +
-;   copy/paste area  0x2f0000 +
-;-----------------------------------------------------------------------------
 include 'lang.inc'
 include 'macros.inc' ; useful stuff
 ;include 'proc32.inc'
 include 'tinypad.inc'
-;purge mov,add,sub            ;  SPEED
+purge mov,add,sub	     ;  SPEED
-header '01',1,@CODE,TINYPAD_END,AREA_ENDMEM,MAIN_STACK,@PARAMS,self_path
+header '01',1,@CODE,TINYPAD_END,STATIC_MEM_END,MAIN_STACK,@PARAMS,self_path
 APP_VERSION equ '4.0.4 pre'
 ;include 'debug.inc'
 ;include 'debug.inc'
 ASEPC	  = '-' 	  ; separator character (char)
-ATOPH	  = POP_IHEIGHT+2 ; menu bar height (pixels)
+ASEPC	  = '-' 	  ; separator character (char)
-;OLEFT    = 50+1          ; left offset (pixels)        !!! don't change !!!
+ATOPH	  = POP_IHEIGHT+2 ; menu bar height (pixels)
 SCRLW	  = 16		  ; scrollbar widht/height (pixels)
 ATABW	  = 8		  ; tab width (chars)
+LINEH	  = 10		  ; line height (pixels)
-LINEH	  = 10		  ; line height (pixels)
+PATHL	  = 256 	  ; maximum path length (chars) !!! don't change !!!
-PATHL	  = 255 	  ; maximum path length (chars) !!! don't change !!!
+AMINS	  = 8		  ; minimal scroll thumb size (pixels)
-AMINS	  = 8		  ; minimal scroll thumb size (pixels)
+LCHGW	  = 3		  ; changed/saved marker width
 LCHGW	  = 2		  ; changed/saved marker width
   RGB(128,128,128) ; RGB(144,144,144) ; RGB(160,160,160) ; comments
   RGB( 48, 48,240) ; RGB( 48, 48,240) ; RGB(255,  0,  0) ; symbols
   RGB(255,255,255) ; RGB(224,224,224) ; RGB(255,255,255) ; background
   RGB(255,255,255) ; RGB(255,255,255) ; RGB(255,255,255) ; selection text
   RGB( 10, 36,106) ; RGB(  0,  0,128) ; RGB(  0, 64,128) ; selection background
-  RGB(255,255,	0) ; modified line marker
+  RGB(255,238, 98) ; modified line marker
-  RGB(  0,255,	0) ; saved line marker
+  RGB(108,226,108) ; saved line marker
 ins_mode db 1
 	mov	edi,@UDATA
 	mov	ecx,@PARAMS-@UDATA
 	mov	al,0
 	rep	stosb
+	mov	[tab_bar.Style],2
+	mcall	68,11
+	or	eax,eax
+	jz	key.alt_x.close
+	mov	eax,65536
+	call	mem.Alloc
+	mov	[temp_buf],eax
+	mov	eax,65536
+	call	mem.Alloc
+	mov	[cur_tab.Editor.Data],eax
 	inc	[do_not_draw]
 	mov	[left_ofs],40+1
-	mov	[f_info+4],0
+;       mov     [f_info+4],0
-	mov	[f_info+12],AREA_TEMP
+;       mov     [f_info+12],AREA_TEMP
-	mov	[f_info+16],AREA_EDIT-AREA_TEMP
+;       mov     [f_info+16],AREA_EDIT-AREA_TEMP
 	mov	esi,s_example
 	jmp	@b
     @@:
 ;// diamond ]
+	add	edx,20
+	mov	eax,edx
+	call	mem.Alloc
+	mov	ebp,eax
-	add	edx,20
-	mcall	60,1,AREA_TEMP-16 ; 0x10000-16
+;!      mcall   60,1,AREA_TEMP-16 ; 0x10000-16
+;!      mov     dword[AREA_TEMP-16+4],8 ; [0x10000-16+4],8
+	mcall	60,1,ebp
-	mov	dword[AREA_TEMP-16+4],8 ; [0x10000-16+4],8
+	mov	dword[ebp+4],8
 	mcall	40,1000000b
 	mcall	23,200
 	cmp	eax,7
-	jne	key.alt_x.close  ; ýòî íà mcall -1 ìåòêà
+	jne	key.alt_x.close
+;!      mov     esi,AREA_TEMP-16 ; 0x10000-16
+;!      mov     byte[esi],1
-	mov	esi,AREA_TEMP-16 ; 0x10000-16
+;!      mov     eax,[esi+12]
+	mov	byte[ebp],1
+;!      mov     eax,[ebp+12]
+;!      inc     eax
+;!      call    load_file.file_found
-	mov	byte[esi],1
-	mov	eax,[esi+12]
+	mov	ecx,[ebp+12]
+	mov	esi,ebp
-	inc	eax
+	call	create_tab
+	call	load_from_memory
+	mov	eax,ebp
+	call	mem.Free
 	call	load_file.file_found
 	jmp	@f
   .noipc:
 	jne	key.alt_x.close
 	lea	eax,[edi-tb_opensave.text-1]
 	mov	[tb_opensave.length],al
   no_params:
-	call	btn.load_file;do_load_file
+	;call    btn.load_file;do_load_file
-	jnc	@f
+	;jnc     @f
-	call	new_file
+	call	create_tab
     @@:
 	dec	[do_not_draw]
 	call	check_inv_all.skip_check
 ;-----------------------------------------------------------------------------
 still:
-       call    writepos ; write current position & number of strings
+       call    draw_statusbar ; write current position & number of strings
   .skip_write:
 ;-----------------------------------------------------------------------------
 func start_fasm ;/////////////////////////////////////////////////////////////
 ;-----------------------------------------------------------------------------
 ; BL = run after compile
 ;-----------------------------------------------------------------------------
-	cmp	[asm_mode],0
+	cmp	[cur_tab.Editor.AsmMode],0 ;! [asm_mode],0
 	jne	@f
 	ret
     @@: mov	esi,f_info.path ; s_fname
 	mov	edi,fasm_parameters
 ;        mcall   18,3
 ;        mcall   5,eax
 ;    @@: ret
 ;endf
-func set_opt
-	test	[options],al
-	je	@f
-	not	al
-	and	[options],al
-	ret
-    @@: or	[options],al
-	ret
-endf
+set_opt:
-func set_line_numbers
+  .line_numbers:
-	mov	al,OPTS_LINENUMS
-	call	set_opt
-	ret
-endf
+	mov	al,OPTS_LINENUMS
 	jmp	.main
-func set_optimal_fill
+  .optimal_fill:
-	mov	al,OPTS_OPTIMSAVE
-	call	set_opt
-	ret
-endf
+	mov	al,OPTS_OPTIMSAVE
 	jmp	.main
-func set_auto_indents
+  .auto_indents:
-	mov	al,OPTS_AUTOINDENT
-	call	set_opt
-	ret
-endf
+	mov	al,OPTS_AUTOINDENT
 	jmp	.main
-func set_auto_braces
+  .auto_braces:
-	mov	al,OPTS_AUTOBRACES
-	call	set_opt
-	ret
-endf
+	mov	al,OPTS_AUTOBRACES
 	jmp	.main
+  .secure_sel:
+	mov	al,OPTS_SECURESEL
-func set_secure_sel
+  .main:
+	xor	[options],al
+;       test    [options],al
+;       je      @f
+;       not     al
+;       and     [options],al
-	mov	al,OPTS_SECURESEL
+;       ret
-	call	set_opt
-	ret
+;   @@: or      [options],al
+	ret
-endf
+;-----------------------------------------------------------------------------
-;-----------------------------------------------------------------------------
+include 'tp-defines.inc'
 include 'tp-draw.asm'
 include 'tp-key.asm'
 include 'tp-button.asm'
 include 'tp-mouse.asm'
 include 'tp-files.asm'
+include 'tp-common.asm'
+include 'tp-dialog.asm'
-include 'tp-common.asm'
+include 'tp-popup.asm'
-include 'tp-dialog.asm'
+include 'tp-tbox.asm'
-include 'tp-popup.asm'
+include 'tp-tabctl.asm'
 x0001014D,key.shift_right	   ,\ ; Shift+Right
 x0001014F,key.shift_end	   ,\ ; Shift+End
 x00010150,key.shift_down	   ,\ ; Shift+Down
 x00010151,key.shift_pgdn	   ,\ ; Shift+PageDown
 x00010153,key.del		   ,\ ; Shift+Delete
+x0002000F,key.ctrl_tab	   ,\ ; Ctrl+Tab
 x00020015,key.ctrl_y 	   ,\ ; Ctrl+Y
 x00020018,key.ctrl_o 	   ,\ ; Ctrl+O
 x0002001E,key.ctrl_a 	   ,\ ; Ctrl+A
 x0002001F,key.ctrl_s 	   ,\ ; Ctrl+S
 x00020020,key.ctrl_d 	   ,\ ; Ctrl+D
 x0002014D,key.ctrl_right	   ,\ ; Ctrl+Right
 x0002014F,key.ctrl_end	   ,\ ; Ctrl+End
 \;0x00020150,key.ctrl_down         ,\ ; Ctrl+Down
 x00020151,key.ctrl_pgdn	   ,\ ; Ctrl+PageDown
 x00020153,key.del		   ,\ ; Ctrl+Del
+x0003000F,key.shift_ctrl_tab    ,\ ; Shift+Ctrl+Tab
 x0003001F,key.shift_ctrl_s	   ,\ ; Shift+Ctrl+S
 x00030147,key.shift_ctrl_home   ,\ ; Shift+Ctrl+Home
 \;0x00030148,key.shift_ctrl_up     ,\ ; Shift+Ctrl+Up
 x00030149,key.shift_ctrl_pgup   ,\ ; Shift+Ctrl+PageUp
 x0003014B,key.shift_ctrl_left   ,\ ; Shift+Ctrl+Left
 x00010153,key.tb.del 	   ,\ ; Shift+Del
 accel_table2 dd 	   \
-,btn.close_main_window ,\
-\;10000,btn.compile       ,\
-\;10001,btn.compile_run   ,\
-\;10002,btn.debug_board   ,\
-\;10003,btn.sysfuncs_txt  ,\
+,btn.close_main_window ,\
   'UP',btn.scroll_up	  ,\
   'DN',btn.scroll_down	  ,\
   'LT',btn.scroll_left	  ,\
-  'RT',btn.scroll_right   ,\
-\;5,key.ctrl_o            ,\
+  'RT',btn.scroll_right   ,\
 accel_table2_botdlg dd	   \
 ,btn.close_main_window ,\
 ,btn.bot.cancel	  ,\
 ,btn.bot.opensave  ,\
 ,btn.bot.find	  ,\
 add_table:
-; times $61 db -$00
+add_table:
   times $1A db -$20
   times $25 db -$00
   times $10 db -$20
   times $30 db -$00
-  times $10 db -$50
-  times $04 db -$00,-$01
-  times $08 db -$00
+  times $10 db -$50
-;error_beep      db 0xA0,0x30,0
-s_status dd 0
-sz s_example,'EXAMPLE.ASM'
+  times $04 db -$00,-$01
-sz s_still  ,'still'
+  times $08 db -$00
-;sz param_setup,'LANG',0 ; parameter for SETUP
+s_status dd 0
 	dd	sysfuncs_param
 	dd	0
 	dd	0
 	db	'/RD/1/DOCPAK',0
-;sz setup           ,'SETUP      ' ; to change keyboard layout
-sz sysfuncs_param,'g',0
-lsz sysfuncs_filename,\
-  ru,<'SYSFUNCR.TXT',0>,\
-  en,<'SYSFUNCS.TXT',0>
-sz htext,'TINYPAD ',APP_VERSION
-lszc help_text,b,\
-  ru,':',\
-  ru,' ',\
-  ru,'  CTRL+F1 : â® ®ª®',\
-  ru,'  CTRL+S  : ¥à¢ ï áâà®ª  ¤«ï ª®¯¨à®¢ ¨ï',\
-  ru,'  CTRL+E  : ®á«¥¤ïï áâà®ª  ¤«ï ª®¯¨à®¢ ¨ï',\
-  ru,'  CTRL+P  : áâ ¢¨âì ¢ë¡à ®¥   â¥ªãéãî ¯®§¨æ¨î',\
-  ru,'  CTRL+D  : ¤ «¨âì áâà®ªã',\
-  ru,'  CTRL+L  : áâ ¢¨âì áâà®ªã-à §¤¥«¨â¥«ì',\
-  ru,'  CTRL+[  : ¥à¥©â¨ ¢  ç «® ä ©« ',\
-  ru,'  CTRL+]  : ¥à¥©â¨ ¢ ª®¥æ ä ©« ',\
-  ru,'  CTRL+F2 :  £àã§¨âì ä ©«',\
-  ru,'  CTRL+F3 : ®¨áª',\
-  ru,'  CTRL+F4 : ®åà ¨âì ä ©«',\
-  ru,'  CTRL+F5 : ¢¥áâ¨ ¨¬ï ä ©« ',\
-  ru,'  CTRL+F6 : ¢¥áâ¨ áâà®ªã ¤«ï ¯®¨áª ',\
-  ru,'  CTRL+F8 : ¬¥¨âì à áª« ¤ªã ª« ¢¨ âãàë',\
-\
-  en,'COMMANDS:',\
-  en,' ',\
-  en,'  CTRL+F1 : SHOW THIS WINDOW',\
-  en,'  CTRL+S  : SELECT FIRST STRING TO COPY',\
-  en,'  CTRL+E  : SELECT LAST STRING TO COPY',\
-  en,'  CTRL+P  : PASTE SELECTED TO CURRENT POSITION',\
-  en,'  CTRL+D  : DELETE CURRENT LINE',\
-  en,'  CTRL+L  : INSERT SEPARATOR LINE',\
-  en,'  CTRL+[  : GO TO THE BEGINNING OF FILE',\
-  en,'  CTRL+]  : GO TO THE END OF FILE',\
-  en,'  CTRL+F2 : LOAD FILE',\
-  en,'  CTRL+F3 : SEARCH',\
-  en,'  CTRL+F4 : SAVE FILE',\
-  en,'  CTRL+F5 : ENTER FILENAME',\
-  en,'  CTRL+F6 : ENTER SEARCH STRING',\
-  en,'  CTRL+F8 : CHANGE KEYBOARD LAYOUT'
-db 0
-menubar_res main_menu,\
-  ru,' ©«'     ,popup_file   ,onshow.file   ,\
-  ru,'à ¢ª '   ,popup_edit   ,onshow.edit   ,\
-  ru,'®¨áª'    ,popup_search ,onshow.search ,\
-  ru,' ¯ãáª'   ,popup_run    ,onshow.run    ,\
-  ru,'®¤¨à®¢ª ',popup_recode ,onshow.recode ,\
-  ru,'¯æ¨¨'    ,popup_options,onshow.options,\
-\
-  en,'File'    ,popup_file   ,onshow.file   ,\
-  en,'Edit'    ,popup_edit   ,onshow.edit   ,\
-  en,'Search'  ,popup_search ,onshow.search ,\
-  en,'Run'     ,popup_run    ,onshow.run    ,\
-  en,'Encoding',popup_recode ,onshow.recode ,\
-  en,'Options' ,popup_options,onshow.options
-popup_res popup_file,\
-  ru,'®¢ë©'	       ,'Ctrl+N'      ,key.ctrl_n      ,\
-  ru,'âªàëâì...'      ,'Ctrl+O'      ,key.ctrl_o      ,\
-  ru,'®åà ¨âì'       ,'Ctrl+S'      ,key.ctrl_s      ,\
-  ru,'®åà ¨âì ª ª...','Ctrl+Shift+S',key.shift_ctrl_s,\
-  ru,'-'	       ,''	      ,0	       ,\
-  ru,'ëå®¤'	       ,'Alt+X'       ,key.alt_x       ,\
-\
-  en,'New'	 ,'Ctrl+N'	,key.ctrl_n	 ,\
-  en,'Open...'	 ,'Ctrl+O'	,key.ctrl_o	 ,\
-  en,'Save'	 ,'Ctrl+S'	,key.ctrl_s	 ,\
-  en,'Save as...','Ctrl+Shift+S',key.shift_ctrl_s,\
-  en,'-'	 ,''		,0		 ,\
-  en,'Exit'	 ,'Alt+X'	,key.alt_x
+sz sysfuncs_param,'g',0
-popup_res popup_edit,\
-  ru,'ëà¥§ âì'    ,'Ctrl+X',key.ctrl_x,\
-  ru,'®¯¨à®¢ âì'  ,'Ctrl+C',key.ctrl_c,\
-  ru,'áâ ¢¨âì'    ,'Ctrl+V',key.ctrl_v,\
-  ru,'¤ «¨âì'	   ,''	    ,key.del   ,\
-  ru,'-'	   ,''	    ,0	       ,\
-  ru,'ë¤¥«¨âì ¢áñ','Ctrl+A',key.ctrl_a,\
-\;  ru,'-'           ,''      ,0         ,\
-\;  ru,'¥àâ¨ª «ì®¥ ¢ë¤¥«¥¨¥','Alt+Ins',0         ,\
-\
-  en,'Cut'	 ,'Ctrl+X',key.ctrl_x,\
-  en,'Copy'	 ,'Ctrl+C',key.ctrl_c,\
-  en,'Paste'	 ,'Ctrl+V',key.ctrl_v,\
-  en,'Delete'	 ,''	  ,key.del   ,\
-  en,'-'	 ,''	  ,0	     ,\
-  en,'Select all','Ctrl+A',key.ctrl_a;,\
-;  en,'-'         ,''      ,0         ,\
-;  en,'Vertical selection','Alt+Ins',0
-popup_res popup_search,\
-  ru,'¥à¥©â¨...' ,'Ctrl+G',key.ctrl_g,\
-  ru,'-'	  ,''	   ,0	      ,\
-  ru,' ©â¨...'   ,'Ctrl+F',key.ctrl_f,\
-  ru,' ©â¨ ¤ «¥¥','F3'    ,key.f3    ,\
-  ru,' ¬¥¨âì...','Ctrl+H',key.ctrl_h,\
-\
-  en,'Position...','Ctrl+G',key.ctrl_g,\
-  en,'-'	  ,''	   ,0	      ,\
-  en,'Find...'	  ,'Ctrl+F',key.ctrl_f,\
-  en,'Find next'  ,'F3'    ,key.f3    ,\
-  en,'Replace...' ,'Ctrl+H',key.ctrl_h
-popup_res popup_run,\
-  ru,' ¯ãáâ¨âì'	,'F9'	  ,key.f9	    ,\
-  ru,'®¬¯¨«¨à®¢ âì'	,'Ctrl+F9',key.ctrl_f9	    ,\
-  ru,'-'		,''	  ,0		    ,\
-  ru,'®áª  ®â« ¤ª¨'	,''	  ,open_debug_board ,\
-  ru,'¨áâ¥¬ë¥ äãªæ¨¨',''	  ,open_sysfuncs_txt,\
-\
-  en,'Run'		,'F9'	  ,key.f9	    ,\
-  en,'Compile'		,'Ctrl+F9',key.ctrl_f9	    ,\
-  en,'-'		,''	  ,0		    ,\
-  en,'Debug board'	,''	  ,open_debug_board ,\
-  en,'System functions' ,''	  ,open_sysfuncs_txt
-popup_res popup_recode,\
-  ru,'CP866  -> CP1251' ,'',recode.866.1251,\
-  ru,'CP1251 -> CP866'	,'',recode.1251.866,\
-  ru,'-'		,'',0,\
-  ru,'CP866  -> KOI8-R' ,'',recode.866.koi,\
-  ru,'KOI8-R -> CP866'	,'',recode.koi.866,\
-  ru,'-'		,'',0,\
-  ru,'CP1251 -> KOI8-R' ,'',recode.1251.koi,\
-  ru,'KOI8-R -> CP1251' ,'',recode.koi.1251,\
-\
-  en,'CP866  -> CP1251' ,'',recode.866.1251,\
-  en,'CP1251 -> CP866'	,'',recode.1251.866,\
-  en,'-'		,'',0,\
-  en,'CP866  -> KOI8-R' ,'',recode.866.koi,\
-  en,'KOI8-R -> CP866'	,'',recode.koi.866,\
-  en,'-'		,'',0,\
-  en,'CP1251 -> KOI8-R' ,'',recode.1251.koi,\
-  en,'KOI8-R -> CP1251' ,'',recode.koi.1251
-popup_res popup_options,\
-  ru,'¥è¨© ¢¨¤...'	     ,'',0,\
-  ru,'-'		     ,'',0,\
-  ru,'¥§®¯ á®¥ ¢ë¤¥«¥¨¥'  ,'',set_secure_sel,\
-  ru,'¢â®¬ â¨ç¥áª¨¥ áª®¡ª¨' ,'',set_auto_braces,\
-  ru,'¢â®¬ â¨ç¥áª¨© ®âáâã¯' ,'',set_auto_indents,\
-  ru,'¬ ï â ¡ã«ïæ¨ï'	     ,'',0,\
-  ru,'¯â¨¬ «ì®¥ á®åà ¥¨¥','',set_optimal_fill,\
-  ru,'-'		     ,'',0,\
-  ru,'®¬¥à  áâà®ª'	     ,'',set_line_numbers,\
-\
-  en,'Appearance...'	     ,'',0,\
-  en,'-'		     ,'',0,\
-  en,'Secure selection'      ,'',set_secure_sel,\
-  en,'Automatic brackets'    ,'',set_auto_braces,\
-  en,'Automatic indents'     ,'',set_auto_indents,\
-  en,'Smart tabulation'      ,'',0,\
-  en,'Optimal fill on saving','',set_optimal_fill,\
-  en,'-'		     ,'',0,\
-  en,'Line numbers'	     ,'',set_line_numbers
-lsz s_modified,\
-  ru,'§¬¥¥®',\
-  en,'Modified'
-lsz s_2filename,\
-  ru,'¬ï ä ©« :',\
-  en,'Filename:'
-lsz s_2open,\
-  ru,'âªàëâì',\
-  en,'Open'
-lsz s_2save,\
-  ru,'®åà ¨âì',\
-  en,'Save'
-lsz s_2find,\
-  ru,' ©â¨',\
-  en,'Find'
-db ':'
-lsz s_2replace,\
-  ru,' ¬¥¨âì',\
-  en,'Replace'
-db ':'
-lsz s_2cancel,\
-  ru,'â¬¥ ',\
-  en,'Cancel'
-lsz s_enter_filename,\
-  ru,<'¢¥¤¨â¥ ¨¬ï ä ©« ',0>,\
-  en,<'Enter filename',0>
-lsz s_enter_text_to_find,\
-  ru,<'¢¥¤¨â¥ â¥ªáâ ¤«ï ¯®¨áª ',0>,\
-  en,<'Enter text to find',0>
-lsz s_enter_text_to_replace,\
-  ru,<'¢¥¤¨â¥ â¥ªáâ ¤«ï § ¬¥ë',0>,\
-  en,<'Enter text to replace',0>
-lsz s_text_not_found,\
-  ru,<'®áâ¨£ãâ ª®¥æ ä ©« , â¥ªáâ ¥  ©¤¥',0>,\
-  en,<'Reached end of file, text not found',0>
-lszc s_fs_error,b,\
-  ru,<'¯¥à æ¨ï § ¢¥àè¥  ãá¯¥è® (0)',0>,\
-  ru,<'',0>,\
-  ru,<'ãªæ¨ï ¥ ¯®¤¤¥à¦¨¢ ¥âáï ¤«ï ¤ ®© ä ©«®¢®© á¨áâ¥¬ë (2)',0>,\
-  ru,<'¥¨§¢¥áâ ï ä ©«®¢ ï á¨áâ¥¬  (3)',0>,\
-  ru,<'',0>,\
-  ru,<'¥¢®§¬®¦® ®âªàëâì ä ©« (5)',0>,\
-  ru,<'¯¥à æ¨ï § ¢¥àè¥  ãá¯¥è® (6)',0>,\
-  ru,<'¤à¥á  å®¤¨âáï §  £à ¨æ ¬¨ ¯ ¬ïâ¨ ¯à®£à ¬¬ë (7)',0>,\
-  ru,<'  ¤¨áª¥ ¥â á¢®¡®¤®£® ¬¥áâ  (8)',0>,\
-  ru,<' ¡«¨æ  FAT ã¨çâ®¦¥  (9)',0>,\
-  ru,<'®áâã¯ § ¯à¥éñ (10)',0>,\
-  ru,<'è¨¡ª  ãáâà®©áâ¢  (11)',0>,\
-\
-  en,<'Operation executed successfully (0)',0>,\
-  en,<'',0>,\
-  en,<'Function is not supported for the given filesystem (2)',0>,\
-  en,<'Unknown filesystem (3)',0>,\
-  en,<'',0>,\
-  en,<'Unable to open file (5)',0>,\
-  en,<'Operation executed successfully (6)',0>,\
-  en,<'Pointer lies outside of application memory (7)',0>,\
-  en,<'Disk is full (8)',0>,\
-  en,<'FAT table is destroyed (9)',0>,\
   en,<'Access denied (10)',0>,\
-  en,<'Device error (11)',0>
+include 'tp-locale.inc'
 sz symbols_ex,';?.%"',"'"
 sz symbols   ,'#&*\:/<>|{}()[]=+-, '
-ini_sec_window	  db 'Window',0
+sz ini_sec_window   ,'Window',0
-ini_window_top	  db 'Top',0
-ini_window_left   db 'Left',0
-ini_window_right  db 'Right',0
-ini_window_bottom db 'Bottom',0
+sz ini_window_top   ,'Top',0
 sz ini_window_left  ,'Left',0
-finfo_ini dd ?,?,?,AREA_TEMP,AREA_EDIT-AREA_TEMP
+sz ini_window_right ,'Right',0
-	  db '/rd/1/tinypad.ini',0
+sz ini_window_bottom,'Bottom',0
-TINYPAD_END:	 ; end of file
-self_path rb PATHL
+TINYPAD_END:	 ; end of file
-;-----------------------------------------------------------------------------
 section @UDATA ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-;-----------------------------------------------------------------------------
+self_path rb PATHL
+;-----------------------------------------------------------------------------
+section @UDATA ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+;-----------------------------------------------------------------------------
+f_info.length dd ?
+f_info.path:
+    times PATHL+1 db ?
+f_info70 rd 7
-f_info70 rd 7
-f_info.length dd ?
-f_info dd ?,?,?,?,?;?,0,?,AREA_TEMP,AREA_EDIT-AREA_TEMP
-f_info.path:
-    times PATHL+1 db ?
+file_info FILEINFO
-pos.x	      dd ?    ; global X position (cursor)
+tab_bar      TABCTL
-pos.y	      dd ?    ; global Y position (cursor)
+virtual at tab_bar.Current
-sel.x	      dd ?    ; global X position (selection start)
+  cur_tab      TABITEM
-sel.y	      dd ?    ; global Y position (selection start)
-lines	      dd ?    ; number of lines in file
-lines.scr     dd ?    ; number of lines on the screen
-columns       dd ?    ; number of columns in file
-columns.scr   dd ?    ; number of columns on the screen
-top_ofs       dd ?    ; height occupied by top buttons
-bot_ofs       dd ?    ; height occupied by bottom buttons
-	      dw ?
+  ;cur_tab_addr dd ?
-left_ofs      dd ?    ;
-top_line      dd ?    ; topmost visible line on screen
-left_col      dd ?    ; leftmost visible char on line
-vscrl_top     dd ?
-vscrl_size    dd ?
+end virtual
 hscrl_top     dd ?
-hscrl_size    dd ?
+lines.scr     dd ?    ; number of lines on the screen
-;skinh         dd ?    ; skin height
+columns.scr   dd ?    ; number of columns on the screen
 sel.end.y     dd ?
 sel.selected  db ?
-in_sel	      db ?
 in_sel	      db ?
 asm_mode      db ?    ; ASM highlight?
 do_not_draw   db ?    ; draw top and bottom buttons?
 main_closed   db ?    ; main window closed?
 mouse_captured	db ?
 just_from_popup db ?
-bot_mode db ?
-modified db ?
+bot_mode db ?
 align 4
+bot_dlg_height dd ?
+bot_dlg_mode2  db ?
-bot_dlg_height dd ?
+temp_buf dd ?
-bot_dlg_mode2  db ?
+copy_buf dd ?
 ;-----------------------------------------------------------------------------
 section @PARAMS ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ;-----------------------------------------------------------------------------
-fasm_parameters:
-p_info	process_information
-p_info2 process_information
-sc	system_colors
-diff16 'Main memory size',0,$
-MAIN_STACK  = 0x0000FFF0
-POPUP_STACK = 0x0000EFF0
-AREA_TEMP   = 0x00010000 ; 0x00010000
-AREA_EDIT   = 0x000C0000 ; 0x00080000
-AREA_TEMP2  = 0x00190000 ; 0x002E0000
-AREA_CBUF   = 0x001A0000 ; 0x002F0000
 AREA_ENDMEM = 0x001B0000 ; 0x00300000
 fasm_parameters:
 diff10 'Header+options size',0,@CODE
-diff10 'Load area size',AREA_TEMP,AREA_EDIT
+p_info	process_information
-diff10 'Edit area size',AREA_EDIT,AREA_TEMP2
+p_info2 process_information
-diff10 'Total memory usage',0,AREA_ENDMEM
+sc	system_colors
+;store dword '/hd/' at tb_opensave.text+4*0
+;store dword '1/tp' at tb_opensave.text+4*1
+;store dword 'ad4/' at tb_opensave.text+4*2
+;store dword 'tiny' at tb_opensave.text+4*3
+;store dword 'pad.' at tb_opensave.text+4*4
+;store dword 'asm'  at tb_opensave.text+4*5
+;store byte  23     at tb_opensave.length
+;rb 1024*36
+rb 1024*4

Subversion Repositories Kolibri OS

(root)/programs/develop/tinypad/trunk/tinypad.asm – Rev 258 → 259