[Win32forth-cvs] win32forth/apps/Win32ForthIDE ProjectWindow.f, 1.2, 1.3

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18195/apps/Win32ForthIDE

Modified Files:
	ProjectWindow.f 
Log Message:
Bug fix for ?control. Minor updates. EAB

Index: ProjectWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ProjectWindow.f	11 Sep 2008 03:22:35 -0000	1.2
--- ProjectWindow.f	1 Oct 2008 03:10:14 -0000	1.3
***************
*** 169,173 ****
  	_colon _code _value _variable _constant _method
  	_class _object _create _int _bytes _short
! 	_dint  _byte _2value ;
  
  \ enumerate parent ids
--- 169,173 ----
  	_colon _code _value _variable _constant _method
  	_class _object _create _int _bytes _short
! 	_dint  _byte _2value _fvariable _fconstant _fvalue ;
  
  \ enumerate parent ids
***************
*** 432,435 ****
--- 432,438 ----
              s" create"      	"of _create add-data    	EndOf
              s" 2value"		"of _2value add-data		EndOf
+             s" fvalue"   	"of _fvalue add-data  		EndOf
+             s" fvariable"    	"of _fvariable add-data  	EndOf
+             s" fconstant"    	"of _fconstant add-data  	EndOf
              s" int"    		"of in-class?
  				    if _int add-data    then	EndOf
***************
*** 632,640 ****
  		loop	;
  
! : BuildNavigatorTree ( -- )
  		Clear: NavigatorTree
! 		GetBuildFile: TheProject nip
  		if	Track-Project-Files
! 		else	GetTabCount: OpenFilesTab 0>
  			if	Track-Opened-Files
  			then
--- 635,646 ----
  		loop	;
  
! : BuildNavigatorTree { \ open? -- }
! 		GetTabCount: OpenFilesTab 0> to open?
  		Clear: NavigatorTree
! 		control-key? open? and	\ force tracking of opened files if control key pressed
! 		if	Track-Opened-Files exit
! 		then	GetBuildFile: TheProject nip
  		if	Track-Project-Files
! 		else	open?
  			if	Track-Opened-Files
  			then