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
|
