forums.silverfrost.com
Welcome to the Silverfrost forums

Author Message
Kenneth_Smith

Joined: 18 May 2012
Posts: 473
Location: Hamilton, Lanarkshire, Scotland.

Posted: Tue Dec 29, 2020 2:27 am    Post subject: %`fl with [height] and [vertical_fill] options

When the new options [height] and [vertical_fill] are used with %`fl, the combo drop down boxes do not expand to display the full range of available options. If there are 9 options, only 7 are displayed. The new options when used with %fl display the full 9 options.

The sample code below illustrates the problem.
 Code: program demo_ls use clrwin implicit none integer, parameter :: n = 9 real*8 ::        voltage(n) = (/2.3,3.0,3.3,4.16,6.0,6.6,10.0,11.0,13.8/) real*8           ls_number_voltage(n) character(len=8) ls_string_voltage(n) integer          size_ls_string_voltage integer ::       v_select = 1 integer i, iw     do i = 1, n       ls_number_voltage(i) = voltage(i)       write(ls_string_voltage(i),'(F6.3,2X)') ls_number_voltage(i)     end do     size_ls_string_voltage = n     iw = winio@('%fn[Consolas]&')     iw = winio@('%ts&',1.d0)     iw = winio@('%bg&',rgb@(200,200,200))     iw = winio@('This shows a problem with `ls with new [height] and [vertical fill] options&')     iw = winio@('%nl%3.1ob&')     iw = winio@('This drop down combo %nlautomatically expands %nlshowing all 9 items&')     iw = winio@('%3nl%cn%`bg[white]&')     iw = winio@('%`ls&',ls_string_voltage,size_ls_string_voltage,v_select)     iw = winio@('%nl  %cb&')     iw = winio@('%bfThis drop down combo %nlexpands to display %nlonly 7 items with [height=16]&')     iw = winio@('%nlSame behaviour with [height=24]%`bf&')     iw = winio@('%2nl%cn%`bg[white]&')     iw = winio@('%`ls[height=*]&',16,ls_string_voltage,size_ls_string_voltage,v_select)     iw = winio@('%nl  %cb&')     iw = winio@('%bfThis drop down combo %nlexpands to display %nlonly 7 items [vertical_fill=0.0]&')     iw = winio@('%nlSame behaviour with [vertical_fill=0.5]%`bf&')     iw = winio@('%2nl%cn%`bg[white]&')     iw = winio@('%`ls[vertical_fill=0.0]&',ls_string_voltage,size_ls_string_voltage,v_select)     iw = winio@('%nl  %cb&')     iw = winio@('%ff%nlWith the ` modifier removed new options work as expected&')     iw = winio@('%nl%3.1ob&')     iw = winio@('%cn%`bg[white]%ls%cb&',ls_string_voltage,size_ls_string_voltage,v_select)        iw = winio@('%cn%`bg[white]%ls[height=*]%cb&',24,ls_string_voltage,size_ls_string_voltage,v_select)     iw = winio@('%cn%`bg[white]%ls[vertical_fill=0.5]%cb&',ls_string_voltage,size_ls_string_voltage,v_select)     iw = winio@(' ') end program demo_ls

Ken
PaulLaidler

Joined: 21 Feb 2005
Posts: 6836
Location: Salford, UK

 Posted: Tue Dec 29, 2020 11:06 am    Post subject: Ken Thank you for the feedback and very clear sample. I have made a note of this.
PaulLaidler

Joined: 21 Feb 2005
Posts: 6836
Location: Salford, UK

 Posted: Mon Jan 04, 2021 1:20 pm    Post subject: This has now been fixed for the next release of ClearWin+.
 Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First
 All times are GMT + 1 Hour Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum