[Win32forth-cvs] win32forth/apps/SciEdit CommandID.f,1.7,1.8 EdCommand.f,1.7,1.8 EdMenu.f,1.7,1.8 Main.f,1.16,1.17

[Rod O. <rod...@us...>]

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

Modified Files:
	CommandID.f EdCommand.f EdMenu.f Main.f 
Log Message:
Rod: Added Print and PageSetup

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Main.f	21 Jan 2006 08:59:41 -0000	1.16
--- Main.f	6 May 2006 15:45:04 -0000	1.17
***************
*** 12,15 ****
--- 12,17 ----
  \ See www.scintilla.org for more information about the control.
  
+ \ Saturday, May 06 2006  Added Print and PageSetup - Rod
+ 
  cr .( Loading SciEdit...)
  
***************
*** 607,610 ****
--- 609,613 ----
  	FCONTROL 		'S'	IDM_SAVE      		ACCELENTRY
  	FALT     		'S'	IDM_SAVE_ALL		ACCELENTRY
+ 	FCONTROL 		'P'	IDM_PRINT      		ACCELENTRY
  \	FCONTROL 		'R'	IDM_RELOAD		ACCELENTRY
  	FSHIFT FCONTROL or 	'O'	IDM_OPEN_HIGHLIGHTED_FILE	ACCELENTRY
***************
*** 693,696 ****
--- 696,700 ----
  : Main          ( -- )
                  start: Frame
+                 GetHandle: frame hwndOwner !  DefaultPrinter   \ initialise PSD and PD
                  init-shared-type
                  ['] sciedit_win32forth-message is win32forth-message

Index: CommandID.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/CommandID.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** CommandID.f	21 Jan 2006 08:59:41 -0000	1.7
--- CommandID.f	6 May 2006 15:45:04 -0000	1.8
***************
*** 8,11 ****
--- 8,13 ----
  \ Updated: Samstag, Juli 03 2004 - 10:52 - dbu
  
+ \ Saturday, May 06 2006  Added Print and PageSetup - Rod
+ 
  cr .( Loading Menu Command ID's...)
  
***************
*** 27,30 ****
--- 29,34 ----
  NewID IDM_RELOAD
  NewID IDM_OPEN_HTML_FILE
+ NewID IDM_PRINT
+ NewID IDM_PAGE_SETUP
  NewID IDM_EXIT
  NewID IDM_OPEN_RECENT_FILE

Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdCommand.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** EdCommand.f	21 Jan 2006 08:59:41 -0000	1.7
--- EdCommand.f	6 May 2006 15:45:04 -0000	1.8
***************
*** 9,12 ****
--- 9,14 ----
  \ Updated: Samstag, Juli 03 2004 - 10:52 - dbu
  
+ \ Saturday, May 06 2006  Added Print and PageSetup - Rod
+ 
  cr .( Loading Menu Commands...)
  
***************
*** 78,81 ****
--- 80,91 ----
                  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       ( -- )
                  0 0 WM_CLOSE Gethandle: Frame call SendMessage

Index: EdMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdMenu.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** EdMenu.f	21 Jan 2006 08:59:41 -0000	1.7
--- EdMenu.f	6 May 2006 15:45:04 -0000	1.8
***************
*** 9,14 ****
--- 9,17 ----
  \ Updated: Mittwoch, Juli 28 2004 - dbu
  \
+ \ Saturday, May 06 2006  Added Print and PageSetup - Rod
+ \
  \ Menu support for SciEdit
  
+ 
  cr .( Loading Scintilla Menu...)
  
***************
*** 34,37 ****
--- 37,43 ----
  
                  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 ;
  \                MenuSeparator
***************
*** 178,181 ****
--- 184,189 ----
  \               dup Enable: mf_reload
                  dup Enable: mf_openhl
+                 dup Enable: mf_print
+ \                dup Enable: mf_page_setup
  
                  \ Edit menu