27 lines
682 B
Factor
27 lines
682 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors arrays kernel tools.test ui.gadgets.editors
|
|
ui.gadgets.line-support ui.gadgets.line-support.private ui.text ;
|
|
|
|
! line-gadget-height
|
|
{ t } [
|
|
{ 0 0 } <multiline-editor>
|
|
[ 1 >>min-rows line-gadget-height ]
|
|
[ line-height ] bi =
|
|
] unit-test
|
|
|
|
! line-gadget-width
|
|
{ t } [
|
|
{ 0 0 } <multiline-editor>
|
|
[ 1 >>min-cols line-gadget-width ]
|
|
[ font>> em ] bi =
|
|
] unit-test
|
|
|
|
! pref-viewport-dim*
|
|
{ t } [
|
|
<multiline-editor>
|
|
[ 1 >>min-rows 1 >>min-cols pref-viewport-dim* ] [
|
|
[ font>> "m" text-width ] [ line-height ] bi 2array
|
|
] bi =
|
|
] unit-test
|