[Win32forth-cvs] win32forth/apps/ForthForm FORMOBJECT.F, 1.21, 1.22 FORTHFORM.F, 1.25, 1.26

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31639/ForthForm

Modified Files:
	FORMOBJECT.F FORTHFORM.F 
Log Message:
Ability to build V7 plus minor mods.

Index: FORTHFORM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** FORTHFORM.F	2 Dec 2010 05:32:54 -0000	1.25
--- FORTHFORM.F	9 Dec 2013 21:34:02 -0000	1.26
***************
*** 60,64 ****
      DIALOG-CLASS
      CHILD-CLASS
!     MDIDIALOG-CLASS ;
  
  \ identifiers for toolbar alignment
--- 60,65 ----
      DIALOG-CLASS
      CHILD-CLASS
!     MDIDIALOG-CLASS
!     TRAY-CLASS ;
  
  \ identifiers for toolbar alignment

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** FORMOBJECT.F	28 Apr 2008 05:22:44 -0000	1.21
--- FORMOBJECT.F	9 Dec 2013 21:34:02 -0000	1.22
***************
*** 1332,1348 ****
  :M PushKey:     ( c -- )
                  case
!      ( Ctrl-R )         'R' +k_control  of      doSaveAs        endof
!      ( Ctrl-S )         'S' +k_control  of      doSave          endof
!      ( Ctrl-T )         'T' +k_control  of      doTest          endof
!      ( Ctrl-V )         'V' +k_control  of      doEditor        endof
!      ( Ctrl-W )         'W' +k_control  of      doWrite         endof
!                          K_DELETE       of      dodelete        endof
!                          K_LEFT         of      adjust-left     endof
!                          K_RIGHT        of      adjust-right    endof
!                          K_UP           of      adjust-up       endof
!                          K_DOWN         of      adjust-down     endof
!                          K_F12          of  K_F12 PushKey: TheMainWindow endof
!                          K_F9           of   K_F9 PushKey: TheMainWindow endof
!                          K_F1           of   K_F1 PushKey: TheMainWindow endof
                  endcase ;M
  
--- 1332,1348 ----
  :M PushKey:     ( c -- )
                  case
!      ( Ctrl-R )         'R' +k_control  of       doSaveAs               endof
!      ( Ctrl-S )         'S' +k_control  of       doSave                 endof
!      ( Ctrl-T )         'T' +k_control  of       doTest                 endof
!      ( Ctrl-V )         'V' +k_control  of       doEditor               endof
!      ( Ctrl-W )         'W' +k_control  of       doWrite                endof
!                          K_DELETE       of       dodelete               endof
!                          K_LEFT         of       adjust-left            endof
!                          K_RIGHT        of       adjust-right           endof
!                          K_UP           of       adjust-up              endof
!                          K_DOWN         of       adjust-down            endof
!                          K-F12          of K-F12 PushKey: TheMainWindow endof
!                          K-F9           of K-F9  PushKey: TheMainWindow endof
!                          K-F1           of K-F1  PushKey: TheMainWindow endof
                  endcase ;M