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
|
