Subversion Repositories Kolibri OS

Rev

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

Rev 242 Rev 258
Line 1... Line 1...
1 
;-----------------------------------------------------------------------------
 1 
;-----------------------------------------------------------------------------
2 
; project name:      TINYPAD
 2 
; project name:      TINYPAD
3 
; compiler:          flat assembler 1.67.1
 3 
; compiler:          flat assembler 1.67.1
4 
; memory to compile: 2.0/7.0 MBytes (without/with size optimizations)
 4 
; memory to compile: 2.0/7.0 MBytes (without/with size optimizations)
5 
; version:           4.0.3
 5 
; version:           4.0.4 pre
6 
; last update:       2006-08-28 (Aug 28, 2006)
 6 
; last update:       2006-12-30 (Dec 30, 2006)
7 
; minimal kernel:    revision #138 (svn://kolibrios.org/kernel)
 7 
; minimal kernel:    revision #138 (svn://kolibrios.org/kernel)
8 
;-----------------------------------------------------------------------------
 8 
;-----------------------------------------------------------------------------
9 
; originally by:     Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
 9 
; originally by:     Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
10 
; maintained by:     Ivan Poddubny           >> ivan-yar@bk.ru
 10 
; maintained by:     Mike Semenyako          >> mike.dld@gmail.com
11 
;                    Mike Semenyako          >> mike.dld@gmail.com
 11 
;                    Ivan Poddubny           >> ivan-yar@bk.ru
12 
;-----------------------------------------------------------------------------
 12 
;-----------------------------------------------------------------------------
13 
; TODO:
 13 
; TODO:
14 
;   - optimize drawing (reduce flickering)
 14 
;   - optimize drawing (reduce flickering)
15 
;   - optimize memory usage (allocate only needed amount, not static 3 Mbytes)
 15 
;   - optimize memory usage (allocate only needed amount, not static 3 Mbytes)
16 
;   - add block selection ability, undo action, goto position
 16 
;   - add block selection ability, undo action, goto position
17 
;   - working with multiple files (add tabs)
 17 
;   - working with multiple files (add tabs)
18 
;   - improve window drawing with small dimensions
 18 
;   - improve window drawing with small dimensions
19 
;   - other bugfixes and speed/size optimizations
 19 
;   - other bugfixes and speed/size optimizations
20 
;
 20 
;
21 
; HISTORY:
 21 
; HISTORY:
- 
 
 22 
; 4.0.4 pre (mike.dld)
- 
 
 23 
;   bug-fixes:
- 
 
 24 
;     - clear statusbar text if dialog operation cancelled
- 
 
 25 
;   changes:
- 
 
 26 
;     - modified/saved colors now match those in MSVS
- 
 
 27 
;   new features:
- 
 
 28 
;     - recode tables between CP866, CP1251 and KOI8-R (suggested by Victor)
22 
; 4.0.3 (mike.dld)
 29 
; 4.0.3 (mike.dld)
23 
;   bug-fixes:
 30 
;   bug-fixes:
24 
;     - 1-char selection if pressing  out of real line length
 31 
;     - 1-char selection if pressing  out of real line length
25 
;     - fault in `writepos`, added call to function 9
 32 
;     - fault in `writepos`, added call to function 9
26 
;     - main menu items weren't highlighted if popup opened and cursor
 33 
;     - main menu items weren't highlighted if popup opened and cursor
27 
;       isn't in menu item's area
 34 
;       isn't in main menu item's area
28 
;     - statusbar and textboxes drawing fixes (wrong colors)
 35 
;     - statusbar and textboxes drawing fixes (wrong colors)
29 
;     - perform no redraw while pressing Shift, Ctrl, Alt keys
 36 
;     - perform no redraw while pressing Shift, Ctrl, Alt keys
30 
;     - data length from DOCPAK in string representation (fix by diamond)
 37 
;     - data length from DOCPAK in string representation (fixed by diamond)
31 
;   changes:
 38 
;   changes:
32 
;     - function 70 instead of 58 for files loading/saving
 39 
;     - function 70 instead of 58 for files loading/saving
33 
;     - clientarea-relative drawing (less code)
 40 
;     - clientarea-relative drawing (less code)
34 
;     - every line's dword is now splitted into 2 words;
 41 
;     - every line's dword is now splitted into 2 words;
35 
;       low word - line block length, so max line length is 65535 now
 42 
;       low word - line block length, so max line length is 65535 now
Line 140... Line 147...
140 
include 'tinypad.inc'
 147 
include 'tinypad.inc'
141 
;purge mov,add,sub            ;  SPEED
 148 
;purge mov,add,sub            ;  SPEED
Line 142... Line 149...
142 
 
 149 
 
Line -... Line 150...
- 
 
 150 
header '01',1,@CODE,TINYPAD_END,AREA_ENDMEM,MAIN_STACK,@PARAMS,self_path
- 
 
 151 
 
143 
header '01',1,@CODE,TINYPAD_END,AREA_ENDMEM,MAIN_STACK,@PARAMS,self_path
 152 
APP_VERSION equ '4.0.4 pre'
Line 144... Line 153...
144 
 
 153 
 
145 
;include 'debug.inc'
 154 
;include 'debug.inc'
146 
 
 155 
 
Line 173... Line 182...
173 
  RGB(128,128,128) ; RGB(144,144,144) ; RGB(160,160,160) ; comments
 182 
  RGB(128,128,128) ; RGB(144,144,144) ; RGB(160,160,160) ; comments
174 
  RGB( 48, 48,240) ; RGB( 48, 48,240) ; RGB(255,  0,  0) ; symbols
 183 
  RGB( 48, 48,240) ; RGB( 48, 48,240) ; RGB(255,  0,  0) ; symbols
175 
  RGB(255,255,255) ; RGB(224,224,224) ; RGB(255,255,255) ; background
 184 
  RGB(255,255,255) ; RGB(224,224,224) ; RGB(255,255,255) ; background
176 
  RGB(255,255,255) ; RGB(255,255,255) ; RGB(255,255,255) ; selection text
 185 
  RGB(255,255,255) ; RGB(255,255,255) ; RGB(255,255,255) ; selection text
177 
  RGB( 10, 36,106) ; RGB(  0,  0,128) ; RGB(  0, 64,128) ; selection background
 186 
  RGB( 10, 36,106) ; RGB(  0,  0,128) ; RGB(  0, 64,128) ; selection background
178 
  RGB(  0,255,  0) ; modified line marker
 187 
  RGB(255,255,	0) ; modified line marker
179 
  RGB(255,255,  0) ; saved line marker
 188 
  RGB(  0,255,	0) ; saved line marker
Line 180... Line 189...
180 
 
 189 
 
Line 181... Line 190...
181 
ins_mode db 1
 190 
ins_mode db 1
Line 491... Line 500...
491 
 
 500 
 
Line 492... Line 501...
492 
;-----------------------------------------------------------------------------
 501 
;-----------------------------------------------------------------------------
493 
 
 502 
 
494 
include 'tp-draw.asm'
 503 
include 'tp-draw.asm'
495 
include 'tp-key.asm'
 504 
include 'tp-key.asm'
496 
include 'tp-butto.asm'
 505 
include 'tp-button.asm'
497 
include 'tp-mouse.asm'
 506 
include 'tp-mouse.asm'
498 
include 'tp-files.asm'
 507 
include 'tp-files.asm'
499 
include 'tp-commo.asm'
 508 
include 'tp-common.asm'
500 
include 'tp-dialo.asm'
 509 
include 'tp-dialog.asm'
- 
 
 510 
include 'tp-popup.asm'
Line 501... Line 511...
501 
include 'tp-popup.asm'
 511 
include 'tp-tbox.asm'
Line 502... Line 512...
502 
include 'tp-tbox.asm'
 512 
include 'tp-recode.asm'
503 
 
 513 
 
Line 675... Line 685...
675 
 
 685 
 
676 
lsz sysfuncs_filename,\
 686 
lsz sysfuncs_filename,\
677 
  ru,<'SYSFUNCR.TXT',0>,\
 687 
  ru,<'SYSFUNCR.TXT',0>,\
Line 678... Line 688...
678 
  en,<'SYSFUNCS.TXT',0>
 688 
  en,<'SYSFUNCS.TXT',0>
Line 679... Line 689...
679 
 
 689 
 
680 
sz htext,'TINYPAD 4.0.3'
 690 
sz htext,'TINYPAD ',APP_VERSION
681 
 
 691 
 
682 
lszc help_text,b,\
 692 
lszc help_text,b,\
Line 718... Line 728...
718 
menubar_res main_menu,\
 728 
menubar_res main_menu,\
719 
  ru,'” ©«'  ,popup_file   ,onshow.file   ,\
 729 
  ru,'” ©«'     ,popup_file   ,onshow.file   ,\
720 
  ru,'à ¢ª ',popup_edit   ,onshow.edit   ,\
 730 
  ru,'à ¢ª '   ,popup_edit   ,onshow.edit   ,\
721 
  ru,'®¨áª' ,popup_search ,onshow.search ,\
 731 
  ru,'®¨áª'    ,popup_search ,onshow.search ,\
722 
  ru,'‡ ¯ãáª',popup_run    ,onshow.run    ,\
 732 
  ru,'‡ ¯ãáª'   ,popup_run    ,onshow.run    ,\
- 
 
 733 
  ru,'Š®¤¨à®¢ª ',popup_recode ,onshow.recode ,\
723 
  ru,'Ž¯æ¨¨' ,popup_options,onshow.options,\
 734 
  ru,'Ž¯æ¨¨'    ,popup_options,onshow.options,\
724 
\
 735 
\
725 
  en,'File'   ,popup_file   ,onshow.file  ,\
 736 
  en,'File'    ,popup_file   ,onshow.file   ,\
726 
  en,'Edit'   ,popup_edit   ,onshow.edit  ,\
 737 
  en,'Edit'    ,popup_edit   ,onshow.edit   ,\
727 
  en,'Search' ,popup_search ,onshow.search,\
 738 
  en,'Search'  ,popup_search ,onshow.search ,\
728 
  en,'Run'    ,popup_run    ,onshow.run   ,\
 739 
  en,'Run'     ,popup_run    ,onshow.run    ,\
- 
 
 740 
  en,'Encoding',popup_recode ,onshow.recode ,\
729 
  en,'Options',popup_options,onshow.options
 741 
  en,'Options' ,popup_options,onshow.options
Line 730... Line 742...
730 
 
 742 
 
731 
popup_res popup_file,\
 743 
popup_res popup_file,\
732 
  ru,'®¢ë©'           ,'Ctrl+N'      ,key.ctrl_n      ,\
 744 
  ru,'®¢ë©'	       ,'Ctrl+N'      ,key.ctrl_n      ,\
Line 786... Line 798...
786 
  en,'Compile'          ,'Ctrl+F9',key.ctrl_f9      ,\
 798 
  en,'Compile'		,'Ctrl+F9',key.ctrl_f9	    ,\
787 
  en,'-'                ,''       ,0                ,\
 799 
  en,'-'		,''	  ,0		    ,\
788 
  en,'Debug board'      ,''       ,open_debug_board ,\
 800 
  en,'Debug board'	,''	  ,open_debug_board ,\
789 
  en,'System functions' ,''       ,open_sysfuncs_txt
 801 
  en,'System functions' ,''	  ,open_sysfuncs_txt
Line -... Line 802...
- 
 
 802 
 
- 
 
 803 
popup_res popup_recode,\
- 
 
 804 
  ru,'CP866  -> CP1251' ,'',recode.866.1251,\
- 
 
 805 
  ru,'CP1251 -> CP866'	,'',recode.1251.866,\
- 
 
 806 
  ru,'-'		,'',0,\
- 
 
 807 
  ru,'CP866  -> KOI8-R' ,'',recode.866.koi,\
- 
 
 808 
  ru,'KOI8-R -> CP866'	,'',recode.koi.866,\
- 
 
 809 
  ru,'-'		,'',0,\
- 
 
 810 
  ru,'CP1251 -> KOI8-R' ,'',recode.1251.koi,\
- 
 
 811 
  ru,'KOI8-R -> CP1251' ,'',recode.koi.1251,\
- 
 
 812 
\
- 
 
 813 
  en,'CP866  -> CP1251' ,'',recode.866.1251,\
- 
 
 814 
  en,'CP1251 -> CP866'	,'',recode.1251.866,\
- 
 
 815 
  en,'-'		,'',0,\
- 
 
 816 
  en,'CP866  -> KOI8-R' ,'',recode.866.koi,\
- 
 
 817 
  en,'KOI8-R -> CP866'	,'',recode.koi.866,\
- 
 
 818 
  en,'-'		,'',0,\
- 
 
 819 
  en,'CP1251 -> KOI8-R' ,'',recode.1251.koi,\
- 
 
 820 
  en,'KOI8-R -> CP1251' ,'',recode.koi.1251
790 
 
 821 
 
791 
popup_res popup_options,\
 822 
popup_res popup_options,\
792 
  ru,'‚­¥è­¨© ¢¨¤...'        ,'',0,\
 823 
  ru,'‚­¥è­¨© ¢¨¤...'	     ,'',0,\
793 
  ru,'-'                     ,'',0,\
 824 
  ru,'-'		     ,'',0,\
794 
  ru,'¥§®¯ á­®¥ ¢ë¤¥«¥­¨¥'  ,'',set_secure_sel,\
 825 
  ru,'¥§®¯ á­®¥ ¢ë¤¥«¥­¨¥'  ,'',set_secure_sel,\