Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4169/src/lib
Modified Files:
ENUM.F ExUtils.f FileLister.f ScintillaEdit.f bitmap.f
multiopen.f treeview.f
Log Message:
Updates. EAB
Index: ScintillaEdit.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaEdit.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ScintillaEdit.f 31 Aug 2005 17:03:19 -0000 1.4
--- ScintillaEdit.f 13 Oct 2006 03:50:29 -0000 1.5
***************
*** 43,46 ****
--- 43,60 ----
fload ScintillaLexer.f
+ :M SetCaretBackColor: ( color -- ) \ value of zero turns it off effect
+ dup 0=
+ if false SCI_SETCARETLINEVISIBLE hwnd send-window
+ else 0 swap SCI_SETCARETLINEBACK hwnd send-window
+ 0 true SCI_SETCARETLINEVISIBLE hwnd send-window
+ then ;M
+
+ :M SetColors: ( fore back -- )
+ style_default rot stylesetfore: self
+ style_default swap stylesetback: self
+ 0 0 SCI_STYLECLEARALL hwnd send-window
+ InitLexer: [ self ]
+ ;M
+
:M InitLexer: ( -- )
SCLEX_FORTH SetLexer: self
Index: multiopen.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/multiopen.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** multiopen.f 15 Oct 2005 18:13:10 -0000 1.5
--- multiopen.f 13 Oct 2006 03:50:29 -0000 1.6
***************
*** 134,137 ****
--- 134,140 ----
to filterndx ;m
+ \ :m GetFilterIndex: ( -- index )
+ \ filterndx ;m
+
: run-dialog ( owner_handle dialog-func-cfa -- a1 )
2>r
***************
*** 139,146 ****
filterndx
szFile dup off \ no initial file
! szDir 1+
! szTitle
! szFilter
! 2r> execute
#selected dup to fcnt
if 0 GetFile: self "path-only" szdir place \ save path
--- 142,150 ----
filterndx
szFile dup off \ no initial file
! szDir 1+
! szTitle
! szFilter
! 2r> execute
! ofn-struct 6 cells+ @ to filterndx \ save filter index
#selected dup to fcnt
if 0 GetFile: self "path-only" szdir place \ save path
***************
*** 156,158 ****
;Class
! MODULE |
