[Win32forth-cvs] win32forth/src/lib ENUM.F, 1.2, 1.3 ExUtils.f, 1.5, 1.6 FileLister.f, 1.5, 1.6 ScintillaEdit.f, 1.4, 1.5 bitmap.f, 1.5, 1.6 multiopen.f, 1.5, 1.6 treeview.f, 1.11, 1.12

[Ezra B. <ezr...@us...>]

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