[Win32forth-cvs] win32forth/apps/SciEdit EdAbout.f,1.1,1.2 EdCommand.f,1.8,1.9 EdMenu.f,1.8,1.9 EdVersion.f,1.9,1.10 Main.f,1.17,1.18

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13841/apps/SciEdit

Modified Files:
	EdAbout.f EdCommand.f EdMenu.f EdVersion.f Main.f 
Log Message:
Some minor mods.

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Main.f	6 May 2006 15:45:04 -0000	1.17
--- Main.f	7 May 2006 06:34:26 -0000	1.18
***************
*** 7,17 ****
  \
  \ Created: Donnerstag, Juni 10 2004 - dbu
! \ Updated: Sonntag, August 22 2004 - dbu
  \
  \ This Editor based on the "Scintilla source code edit control".
  \ See www.scintilla.org for more information about the control.
  
- \ Saturday, May 06 2006  Added Print and PageSetup - Rod
- 
  cr .( Loading SciEdit...)
  
--- 7,15 ----
  \
  \ Created: Donnerstag, Juni 10 2004 - dbu
! \ Updated: Saturday, May 06 2006 - dbu
  \
  \ This Editor based on the "Scintilla source code edit control".
  \ See www.scintilla.org for more information about the control.
  
  cr .( Loading SciEdit...)
  

Index: EdVersion.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdVersion.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** EdVersion.f	21 Jan 2006 08:59:41 -0000	1.9
--- EdVersion.f	7 May 2006 06:34:26 -0000	1.10
***************
*** 1,5 ****
  \ $Id$
  
! 10127 value sciedit_version#
  
  \ Version numbers: v.ww.rr
--- 1,5 ----
  \ $Id$
  
! 10128 value sciedit_version#
  
  \ Version numbers: v.ww.rr
***************
*** 25,28 ****
--- 25,29 ----
  DBU Dirk Busch (di...@wi...)
  EAB Ezra Boyce
+ ROD Rod Oakford
  
  \ ---------------------------------------------------------------------------
***************
*** 231,232 ****
--- 232,237 ----
          - New "Typewriter" command (CTRL+ALT+T) that turns the selected text into
  	  typwriter style for DexH.
+ 
+ \ changes for Version 1.01.28
+ Rod     Saturday, May 06 2006
+         - Added Print and PageSetup

Index: EdAbout.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdAbout.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsUpvwDF and /tmp/cvsGECYsb differ

Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdCommand.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** EdCommand.f	6 May 2006 15:45:04 -0000	1.8
--- EdCommand.f	7 May 2006 06:34:26 -0000	1.9
***************
*** 7,13 ****
  \
  \ Created: Mittwoch, Juni 09 2004 - dbu
! \ Updated: Samstag, Juli 03 2004 - 10:52 - dbu
! 
! \ Saturday, May 06 2006  Added Print and PageSetup - Rod
  
  cr .( Loading Menu Commands...)
--- 7,11 ----
  \
  \ Created: Mittwoch, Juni 09 2004 - dbu
! \ Updated: Saturday, May 06 2006 - Rod
  
  cr .( Loading Menu Commands...)
***************
*** 80,90 ****
                  then ; IDM_OPEN_HTML_FILE SetCommand
  
! : OnPrint ( -- )   ActiveChild IF  Print: CurrentWindow  THEN ; IDM_PRINT SetCommand
  
! : PageSetup: ( -- )
!         GetHandle: frame  hOwner !
!         [ PSD_MARGINS ( PSD_MINMARGINS or ) PSD_INTHOUSANDTHSOFINCHES or ] literal PSDFlags !
!         PageSetupDlg drop
!         ;  IDM_PAGE_SETUP SetCommand
  
  : ExitApp       ( -- )
--- 78,89 ----
                  then ; IDM_OPEN_HTML_FILE SetCommand
  
! : OnPrint       ( -- )
!                 ActiveChild IF Print: CurrentWindow THEN ; IDM_PRINT SetCommand
  
! : PageSetup     ( -- )
!                 GetHandle: frame  hOwner !
!                 [ PSD_MARGINS ( PSD_MINMARGINS or ) PSD_INTHOUSANDTHSOFINCHES or ] literal PSDFlags !
!                 PageSetupDlg drop
!                 ;  IDM_PAGE_SETUP SetCommand
  
  : ExitApp       ( -- )

Index: EdMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdMenu.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** EdMenu.f	6 May 2006 15:45:04 -0000	1.8
--- EdMenu.f	7 May 2006 06:34:26 -0000	1.9
***************
*** 7,17 ****
  \
  \ Created: Sonntag, Juli 04 2004  - dbu
! \ Updated: Mittwoch, Juli 28 2004 - dbu
! \
! \ Saturday, May 06 2006  Added Print and PageSetup - Rod
  \
  \ Menu support for SciEdit
  
- 
  cr .( Loading Scintilla Menu...)
  
--- 7,14 ----
  \
  \ Created: Sonntag, Juli 04 2004  - dbu
! \ Updated: Saturday, May 06 2006 - Rod
  \
  \ Menu support for SciEdit
  
  cr .( Loading Scintilla Menu...)
  
***************
*** 38,42 ****
                  MenuSeparator
                  :MenuItem mf_print "&Print...\tCtrl+P" 		IDM_PRINT		DoCommand ;
!                 :MenuItem mf_page_setup "Page Set&up..." 	IDM_PAGE_SETUP	DoCommand ;
                  MenuSeparator
                  MenuItem "E&xit\tALT+F4"			IDM_EXIT		DoCommand ;
--- 35,39 ----
                  MenuSeparator
                  :MenuItem mf_print "&Print...\tCtrl+P" 		IDM_PRINT		DoCommand ;
!                 :MenuItem mf_page_setup "Page Set&up..." 	IDM_PAGE_SETUP          DoCommand ;
                  MenuSeparator
                  MenuItem "E&xit\tALT+F4"			IDM_EXIT		DoCommand ;
***************
*** 185,189 ****
                  dup Enable: mf_openhl
                  dup Enable: mf_print
! \                dup Enable: mf_page_setup
  
                  \ Edit menu
--- 182,186 ----
                  dup Enable: mf_openhl
                  dup Enable: mf_print
!                 dup Enable: mf_page_setup
  
                  \ Edit menu
***************
*** 253,256 ****
--- 250,254 ----
   			?BrowseMode:   ActiveChild not Enable: mf_saveas
  			?Selection:    ActiveChild Enable: mf_openhl
+                         GetTextLength: ActiveChild Enable: mf_print
  
   			\ Edit menu