[Win32forth-cvs] win32forth/src/console CommandWindow.f, 1.2, 1.3 Console2.f, 1.6, 1.7 ConsoleMenu.f, 1.10, 1.11 NewConsole.f, 1.3, 1.4

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

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