Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3496
Modified Files:
CommandWindow.f Console2.f ConsoleMenu.f NewConsole.f
Log Message:
Jos: Enabled cut, paste, mark all and cut and clear from the menubar in the new console.
Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** NewConsole.f 1 Nov 2007 22:03:54 -0000 1.3
--- NewConsole.f 11 Nov 2007 01:01:18 -0000 1.4
***************
*** 206,212 ****
: c_FGBG! ( color_object color_object -- ) SetBackground: cmd SetForeground: cmd ;
! : c_FG@ ( -- color_object ) cmd.ForegroundColour ;
! : c_BG@ ( -- color_object ) cmd.BackgroundColour ;
! : c_&TheScreen ( -- a ) cmd.text ;
14 Tablength: cmd
--- 206,216 ----
: c_FGBG! ( color_object color_object -- ) SetBackground: cmd SetForeground: cmd ;
! : c_FG@ ( -- color_object ) cmd.ForegroundColour ;
! : c_BG@ ( -- color_object ) cmd.BackgroundColour ;
! : c_&TheScreen ( -- a ) cmd.text ;
! : MarkAll ( - ) SelectAll: cmd ;
! : CopyConsole ( - ) Copy: cmd ;
! : PasteLoad ( - ) Paste: cmd ;
! : CutConsole ( - ) Cut: cmd ;
14 Tablength: cmd
***************
*** 264,267 ****
--- 268,275 ----
['] c_&TheScreen IS &THE-SCREEN \ #print-screen in dc.f will not work
\ keysave not working
+ ['] MarkAll is mark-all \ Used in the menu bar.
+ ['] CopyConsole is copy-console
+ ['] PasteLoad is paste-load
+ ['] CutConsole is cut-console
;
***************
*** 303,306 ****
--- 311,318 ----
['] X_SETMAXCOLROW IS SETMAXCOLROW
['] X_&THE-SCREEN IS &THE-SCREEN
+ ['] mark_all IS mark-all
+ ['] copy_console IS copy-console
+ ['] _paste-load IS paste-load
+ ['] cut_console IS cut-console
;
Index: ConsoleMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleMenu.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** ConsoleMenu.f 12 May 2007 07:49:21 -0000 1.10
--- ConsoleMenu.f 11 Nov 2007 01:01:18 -0000 1.11
***************
*** 6,13 ****
--- 6,22 ----
only forth also definitions
+ defer mark-all
+ ' mark_all is mark-all
+
in-application
INTERNAL \ internal definitions start here
+ defer copy-console
+ defer cut-console
+
+ ' copy_console is copy-console
+ ' cut_console is cut-console
+
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CommandWindow.f 1 Nov 2007 22:03:54 -0000 1.2
--- CommandWindow.f 11 Nov 2007 01:01:18 -0000 1.3
***************
*** 3,7 ****
--- 3,9 ----
Font CommandFont
10 Height: CommandFont
+ \ FW_HEAVY Weight: CommandFont \ Optional
s" Courier" SetFaceName: CommandFont
+ \ s" Terminal" SetFaceName: CommandFont \ Optional choise
***************
*** 743,746 ****
--- 745,749 ----
Copy: self
ptrNull InsertText: self
+ DA: Self
;M
***************
*** 883,884 ****
--- 886,889 ----
;Class
+
+
Index: Console2.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/Console2.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Console2.f 28 Sep 2006 10:16:48 -0000 1.6
--- Console2.f 11 Nov 2007 01:01:18 -0000 1.7
***************
*** 70,74 ****
mkstlin mkstcol mkedlin mkedcol markconsole ;
! : mark-all ( -- ) \ makr all console text
0 to mkstlin
0 to mkstcol
--- 70,74 ----
mkstlin mkstcol mkedlin mkedcol markconsole ;
! : mark_all ( -- ) \ makr all console text
0 to mkstlin
0 to mkstcol
|
