19 lines
499 B
Factor
19 lines
499 B
Factor
! Copyright (C) 2012 John Benediktsson
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
USING: accessors classes.struct kernel math system terminal
|
|
windows.kernel32 ;
|
|
|
|
IN: terminal.windows
|
|
|
|
M: windows (terminal-size)
|
|
STD_OUTPUT_HANDLE GetStdHandle
|
|
CONSOLE_SCREEN_BUFFER_INFO <struct>
|
|
[ GetConsoleScreenBufferInfo ] keep swap zero? [
|
|
drop 0 0
|
|
] [
|
|
srWindow>>
|
|
[ [ Right>> ] [ Left>> ] bi - 1 + ]
|
|
[ [ Bottom>> ] [ Top>> ] bi - 1 + ] bi
|
|
] if ;
|