[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdFORTHFORM.F, 1.7, 1.8 EdPreferences.f, 1.6, 1.7 FormCodeEditor.f, 1.2, 1.3

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

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

Modified Files:
	EdFORTHFORM.F EdPreferences.f FormCodeEditor.f 
Log Message:
IDE Enhancements. Bug Fixes. Doc Updates.

Index: EdFORTHFORM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFORTHFORM.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** EdFORTHFORM.F	10 Apr 2009 16:38:36 -0000	1.7
--- EdFORTHFORM.F	10 May 2009 03:50:51 -0000	1.8
***************
*** 110,120 ****
                  win , ;
  
! : close-form-windows  { \ wlink -- } \ close ForthForm windows
!                 formwindow-link @
!                 begin   dup
!                 while   dup cell+ @ to wlink
!                         Close: wlink
!                         @
!                 repeat  drop ;
  
  : no-show?	( -- f )	\ status labels not active?
--- 110,120 ----
                  win , ;
  
! \ : close-form-windows  { \ wlink -- } \ close ForthForm windows
! \                 formwindow-link @
! \                 begin   dup
! \                 while   dup cell+ @ to wlink
! \                         Close: wlink
! \                         @
! \                 repeat  drop ;
  
  : no-show?	( -- f )	\ status labels not active?

Index: EdPreferences.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdPreferences.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** EdPreferences.f	8 Sep 2008 03:03:59 -0000	1.6
--- EdPreferences.f	10 May 2009 03:50:51 -0000	1.7
***************
*** 3,14 ****
  needs EdPreferences.frm
  
- Color: WHITE value back-color             \ default font background color
- Color: BLACK value fore-color             \ default font color
- Color: WHITE value caret-backcolor        \ current line color
- Color: LTGRAY value select-backcolor      \ selection background color
- Color: BLACK value select-forecolor       \ selection font color
- Color: BLACK value browse-forecolor
- Color: LTGRAY value browse-backcolor
- 
  :Class ColorWindow        <Super Child-Window
  colorobject thecolor
--- 3,6 ----

Index: FormCodeEditor.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FormCodeEditor.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** FormCodeEditor.f	10 Apr 2009 16:40:24 -0000	1.2
--- FormCodeEditor.f	10 May 2009 03:50:51 -0000	1.3
***************
*** 54,58 ****
  : Update-CodePreviewer  { TheForm flag -- }	\ display code for active form, flag =true if saving position
  		no-preview? ?exit
! 		flag
  		if	GetCurrentPos: scnCodePreviewer >r
  		then	false SetReadOnly: scnCodePreviewer
--- 54,59 ----
  : Update-CodePreviewer  { TheForm flag -- }	\ display code for active form, flag =true if saving position
  		no-preview? ?exit
! 		TheForm 0= ?exit
!                 flag
  		if	GetCurrentPos: scnCodePreviewer >r
  		then	false SetReadOnly: scnCodePreviewer