steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.text.core-text: fix jumping "def".

db4
John Benediktsson 2012-12-11 08:06:02 -08:00
parent be661c89e3
commit e01ff14fa0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/text/core-text/core-text.factor
View File

@ -12,13 +12,13 @@ SINGLETON: core-text-renderer
<PRIVATE <PRIVATE
: unscale ( m -- n ) : unscale ( m -- n )
retina? get-global [ 2 /i ] when ; inline retina? get-global [ 2.0 / ] when ; inline
: scale ( m -- n ) : scale ( m -- n )
retina? get-global [ 2 * ] when ; inline retina? get-global [ 2.0 * ] when ; inline
: scale-dim ( dim -- dim' ) : scale-dim ( dim -- dim' )
retina? get-global [ [ 2 /i ] map ] when ; inline retina? get-global [ [ 2.0 / ] map ] when ; inline
: scale-metrics ( metrics -- metrics' ) : scale-metrics ( metrics -- metrics' )
retina? get-global [ retina? get-global [