[Win32forth-cvs] win32forth/src/console NewConsole.f,1.32,1.33

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv11515/src/console

Modified Files:
	NewConsole.f 
Log Message:
Rod: added SCROLLTOVIEW

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** NewConsole.f	19 Dec 2008 22:38:41 -0000	1.32
--- NewConsole.f	27 Dec 2008 16:07:38 -0000	1.33
***************
*** 175,178 ****
--- 175,179 ----
  :M On_Done: ( -- )
          WindowState SIZE_RESTORED = IF  SaveWindowSettings  THEN
+         0 to _conhndl
          bye
          ;M
***************
*** 270,274 ****
  : c_&TheScreen ( -- a )   cmd.text ;
  : c_CharWH ( -- w h )   CharWH: cmd ;
- : NewConhndl ( -- n )   GetHandle: ConsoleWindow ;
  
  14 SetTablength: cmd
--- 271,274 ----
***************
*** 286,289 ****
--- 286,290 ----
  
  : c_getrowoff ( -- n )   FirstVisibleRow: cmd ;
+ : c_ScrollToView ( -- )   UpdateScrollRange: cmd  AutoScroll: cmd ;
  
  IN-APPLICATION
***************
*** 356,361 ****
                  ['] c_getrowoff       IS GETROWOFF
                  ['] c_&TheScreen      IS &THE-SCREEN
                  \ specific to new console :
-                 ['] NewConHndl        IS ConHndl
                  ['] c_copy-console    IS copy-console
                  ['] c_cut-console     IS cut-console
--- 357,362 ----
                  ['] c_getrowoff       IS GETROWOFF
                  ['] c_&TheScreen      IS &THE-SCREEN
+                 ['] c_ScrollToView    IS SCROLLTOVIEW
                  \ specific to new console :
                  ['] c_copy-console    IS copy-console
                  ['] c_cut-console     IS cut-console