[Win32forth-cvs] win32forth-stc/src/console ConsoleMenu.f,1.8,1.9

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21558

Modified Files:
	ConsoleMenu.f 
Log Message:
Jos: Enabled ChdirDlg and ^D, 
Note: When ^D is used the cursor is 2 lines too much UP.
I could not solve it.

Index: ConsoleMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/console/ConsoleMenu.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ConsoleMenu.f	4 Jul 2007 11:23:35 -0000	1.8
--- ConsoleMenu.f	5 Jul 2007 20:05:53 -0000	1.9
***************
*** 218,222 ****
                  IF      web$ count conhndl "Web-Link
                  THEN    ;
! 
  : ChdirDlg      { \ path$ -- } \ set current directory
                  MAXSTRING LocalAlloc: path$
--- 218,222 ----
                  IF      web$ count conhndl "Web-Link
                  THEN    ;
!  ))
  : ChdirDlg      { \ path$ -- } \ set current directory
                  MAXSTRING LocalAlloc: path$
***************
*** 225,230 ****
                  path$ conhndl BrowseForFolder
  \in-system-ok   if   path$ dup +null count "chdir .dir cr
!                 then ;
! 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ Function key additions to the keyboard interpreter during commandline entry
--- 225,230 ----
                  path$ conhndl BrowseForFolder
  \in-system-ok   if   path$ dup +null count "chdir .dir cr
!                 then  ;
! ((
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \ Function key additions to the keyboard interpreter during commandline entry
***************
*** 279,284 ****
                  if 0= paste-load            EXIT then
                  turnkeyed? ?exit
! \                over [ 'D' +k_control          ] literal =
! \   if 0= ChdirDlg              EXIT then
                  ;
  
--- 279,284 ----
                  if 0= paste-load            EXIT then
                  turnkeyed? ?exit
!                 over [ 'D' +k_control          ] literal =
!                 if 0= ChdirDlg              EXIT then
                  ;
  
***************
*** 316,324 ****
  
    MENUITEM    "&Load Forth File...\tCtrl+L"       load-forth ;
- ((
- 
          MENUSEPARATOR
    MENUITEM    "Set current directory...\tCtrl+D" ChdirDlg ;
!         MENUSEPARATOR
    MENUITEM    "Open a Web link...\tCtrl+W"       open-web ;
          MENUSEPARATOR
--- 316,323 ----
  
    MENUITEM    "&Load Forth File...\tCtrl+L"       load-forth ;
          MENUSEPARATOR
    MENUITEM    "Set current directory...\tCtrl+D" ChdirDlg ;
! 
! ((        MENUSEPARATOR
    MENUITEM    "Open a Web link...\tCtrl+W"       open-web ;
          MENUSEPARATOR