%ob and font size %ts

Hi all, I am redirecting all [color=green:0e8c4e2134]print *, [/color:0e8c4e2134] output to an %ob box. Works fine. Now I want to have the letters a bit smaller, but %ts does not make any effect. Who can help?

  i=winio@('%ca[ - Console]&')  
  i=winio@('%sy[thin_border]&')
  i=winio@('%bg[BTNFACE]&')
  i=winio@('%mn[E&xit]&','EXIT')
  i=winio@('%ob[depressed]%80.25cw[vscroll,hscroll]%cb&',0)  
     i=winio@('%fn[MS Sans Serif]&')     
     i=winio@('%ts&',0.1D0)     ! does not affect the fonts
  i=winio@('%es&')		! close by escape
  i=winio@('%lw',ctrl)   ! =leave window open 

johannes

  winapp
  integer i,winio@,ctrl
  i=winio@('%ca[ - Console]&')  
  i=winio@('%sy[thin_border]&') 
  i=winio@('%bg[BTNFACE]&') 
  i=winio@('%mn[E&xit]&','EXIT') 
  i=winio@('%fn[MS Sans Serif]&')      
  i=winio@('%ts&',0.8D0)
  i=winio@('%ob[depressed]%80.25cw[vscroll,hscroll,local_font]%cb&',0)  
  i=winio@('%es&')
  i=winio@('%lw',ctrl)
  print*,'Hello'
  end

Hello Paul, thanks. Works fine: 'local_font' is the key. Johannes

And setting the text size and font before %cw.