[Win32forth-cvs] win32forth/apps/WinEd Ed_Keys.F,1.6,1.7

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

Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10912

Modified Files:
	Ed_Keys.F 
Log Message:
Rod: made the Keyboard Macros shortcut keys work (when KeySave.f or KeySaveNew.f are loaded in the console)

Index: Ed_Keys.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Keys.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Ed_Keys.F	25 Jul 2008 21:19:20 -0000	1.6
--- Ed_Keys.F	6 Aug 2008 18:45:06 -0000	1.7
***************
*** 221,227 ****
        'L'     +k_control            OF      load-active-file            ENDOF
  
! [DEFINED]  replay-macro [IF]
!       'M'     +k_control +k_shift   OF      [ also HIDDEN ] replay-macro [ previous ] ENDOF
! [THEN]
        'N'     +k_control            OF      new-text                    ENDOF
        'O'     +k_control            OF      open-text                   ENDOF
--- 221,227 ----
        'L'     +k_control            OF      load-active-file            ENDOF
  
! [ also HIDDEN ]  [DEFINED]  replay-macro [IF]
!       'M'     +k_control +k_shift   OF      replay-macro                ENDOF
! [THEN]  [ previous ]
        'N'     +k_control            OF      new-text                    ENDOF
        'O'     +k_control            OF      open-text                   ENDOF
***************
*** 234,241 ****
        'S'     +k_control            OF      save-text                   ENDOF
  
! [DEFINED]  repeat-amacro [IF]
!       'R'     +k_control +k_shift   OF      [ also HIDDEN ] EditorWindow repeat-amacro [ previous ] ENDOF
!       'S'     +k_control +k_shift   OF      [ also HIDDEN ] Start/Stop-macro [ previous ] ENDOF
! [THEN]
  
        'T'     +k_control            OF      word-delete                 ENDOF
--- 234,241 ----
        'S'     +k_control            OF      save-text                   ENDOF
  
! [ also HIDDEN ]  [DEFINED]  repeat-amacro [IF]
!       'R'     +k_control +k_shift   OF      EditorWindow repeat-amacro  ENDOF
!       'S'     +k_control +k_shift   OF      Start/Stop-macro            ENDOF
! [THEN]  [ previous ]
  
        'T'     +k_control            OF      word-delete                 ENDOF
***************
*** 263,269 ****
        k_F3    +k_shift +k_control   OF      replace-text                ENDOF
  
! [DEFINED]  replay-macro [IF]
!       k_F5                          OF      [ also HIDDEN ] replay-macro [ previous ] ENDOF
! [THEN]
  
        k_F5    +k_control +k_shift   OF      cwords                      ENDOF
--- 263,269 ----
        k_F3    +k_shift +k_control   OF      replace-text                ENDOF
  
! [ also HIDDEN ]  [DEFINED]  replay-macro [IF]
!       k_F5                          OF      replay-macro                ENDOF
! [THEN]  [ previous ]
  
        k_F5    +k_control +k_shift   OF      cwords                      ENDOF