Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdMenu.f, 1.18, 1.19 EdRemote.f, 1.5, 1.6 Main.f, 1.37, 1.38
|
From: George H. <geo...@us...> - 2007-04-28 10:02:35
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8526/win32forth/apps/Win32ForthIDE Modified Files: EdMenu.f EdRemote.f Main.f Log Message: gah:Added control R to accelerator table for Replace Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** Main.f 15 Apr 2007 02:55:45 -0000 1.37 --- Main.f 28 Apr 2007 10:02:29 -0000 1.38 *************** *** 933,936 **** --- 933,937 ---- 0 VK_F3 IDM_FIND_NEXT ACCELENTRY FSHIFT VK_F3 IDM_FIND_PREVIOUS ACCELENTRY + FCONTROL 'R' IDM_REPLACE_TEXT ACCELENTRY FALT 'D' IDM_INSERT_DATE ACCELENTRY Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** EdMenu.f 15 Apr 2007 02:55:45 -0000 1.18 --- EdMenu.f 28 Apr 2007 10:02:29 -0000 1.19 *************** *** 69,81 **** :MenuItem me_lineduplicate "&Line duplicate\tCtrl+D" IDM_LINEDUPLICATE DoCommand ; MenuSeparator ! :MenuItem me_selectall "&Select all\tCtrl+A" IDM_SELECT_ALL DoCommand ; ! :MenuItem me_removesel "R&emove selection" IDM_REMOVE_SELECTION DoCommand ; MenuSeparator ! :MenuItem me_find "Se&arch...\tCtrl+F" IDM_FIND_TEXT DoCommand ; ! :MenuItem me_findnext "Search &next\tF3" IDM_FIND_NEXT DoCommand ; ! :MenuItem me_findprev "Search &prev\tShift+F3" IDM_FIND_PREVIOUS DoCommand ; ! :MenuItem me_replace "Search and Replace" IDM_REPLACE_TEXT DoCommand ; MenuSeparator ! :MenuItem me_findinfiles "Find Text in Files...\tCtrl+Shift+F" IDM_FIND_IN_FILES DoCommand ; MenuSeparator :MenuItem me_date "&Insert Date\tAlt+D" IDM_INSERT_DATE DoCommand ; --- 69,81 ---- :MenuItem me_lineduplicate "&Line duplicate\tCtrl+D" IDM_LINEDUPLICATE DoCommand ; MenuSeparator ! :MenuItem me_selectall "&Select all\tCtrl+A" IDM_SELECT_ALL DoCommand ; ! :MenuItem me_removesel "R&emove selection" IDM_REMOVE_SELECTION DoCommand ; MenuSeparator ! :MenuItem me_find "Se&arch...\tCtrl+F" IDM_FIND_TEXT DoCommand ; ! :MenuItem me_findnext "Search &next\tF3" IDM_FIND_NEXT DoCommand ; ! :MenuItem me_findprev "Search &prev\tShift+F3" IDM_FIND_PREVIOUS DoCommand ; ! :MenuItem me_replace "Search and &Replace\tCtrl+R" IDM_REPLACE_TEXT DoCommand ; MenuSeparator ! :MenuItem me_findinfiles "Find Text in Files...\tCtrl+Shift+F" IDM_FIND_IN_FILES DoCommand ; MenuSeparator :MenuItem me_date "&Insert Date\tAlt+D" IDM_INSERT_DATE DoCommand ; *************** *** 276,282 **** dup Enable: me_dexParagraph dup Enable: me_dexCodeParagraph ! dup Enable: me_dexStyleBold ! dup Enable: me_dexStyleItalic ! dup Enable: me_dexStyleTypewriter \ View menu --- 276,282 ---- dup Enable: me_dexParagraph dup Enable: me_dexCodeParagraph ! dup Enable: me_dexStyleBold ! dup Enable: me_dexStyleItalic ! dup Enable: me_dexStyleTypewriter \ View menu *************** *** 286,290 **** dup Enable: mp_colorize dup Enable: mp_browse ! dup Enable: mp_viewhtml \ Options menu --- 286,290 ---- dup Enable: mp_colorize dup Enable: mp_browse ! dup Enable: mp_viewhtml \ Options menu *************** *** 307,313 **** : EnableMenuBar ( -- ) \ enable/disable the menu items ! IsEditWnd? dup EnableEdit ! if \ File menu ?Modified: ActiveChild 0<> ?BrowseMode: ActiveChild not and Enable: mf_save ?BrowseMode: ActiveChild not Enable: mf_saveas --- 307,313 ---- : EnableMenuBar ( -- ) \ enable/disable the menu items ! IsEditWnd? dup EnableEdit ! if \ File menu ?Modified: ActiveChild 0<> ?BrowseMode: ActiveChild not and Enable: mf_save ?BrowseMode: ActiveChild not Enable: mf_saveas Index: EdRemote.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdRemote.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** EdRemote.f 21 Oct 2006 11:11:47 -0000 1.5 --- EdRemote.f 28 Apr 2007 10:02:29 -0000 1.6 *************** *** 35,45 **** if dup CASE ! ED_OPEN_EDIT OF dup remote-open r>drop false >r ENDOF ! ED_OPEN_BROWSE OF dup remote-open r>drop false >r ENDOF ! ED_WATCH OF dup remote-open r>drop false >r ENDOF ! ED_WORD OF remote-word r>drop false >r ENDOF ! ED_STACK OF receive-stack r>drop false >r ENDOF ! ED_DEBUG OF receive-debug r>drop false >r ENDOF ! ED_NOTINBP OF no-breakpoint r>drop false >r ENDOF endcase then drop r> ; --- 35,45 ---- if dup CASE ! ED_OPEN_EDIT OF dup remote-open rdrop false >r ENDOF ! ED_OPEN_BROWSE OF dup remote-open rdrop false >r ENDOF ! ED_WATCH OF dup remote-open rdrop false >r ENDOF ! ED_WORD OF remote-word rdrop false >r ENDOF ! ED_STACK OF receive-stack rdrop false >r ENDOF ! ED_DEBUG OF receive-debug rdrop false >r ENDOF ! ED_NOTINBP OF no-breakpoint rdrop false >r ENDOF endcase then drop r> ; |
