forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

%bh - bubble help

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
Kenneth_Smith



Joined: 18 May 2012
Posts: 160
Location: Glasgow, Scotland.

PostPosted: Wed Nov 08, 2017 10:01 am    Post subject: %bh - bubble help Reply with quote

I was experimenting with a new format code %bh (new to me anyway) last night.

Can somebody tell me where I am going wrong in line 20 of the code below. At run time I get an error message saying the help string is missing.

Thanks

Ken

Code:
program test
implicit none
include<windows.ins>
integer i
integer      :: bubble_help_control
real(kind=2) :: val

!
!The help string is either surrounded by square brackets, or an @ character
!is placed in the format string to indicate that the help string is supplied as an extra
!argument.

val = 0.d0
bubble_help_control = 1
i = winio@('%rb[Enable Bubble Help]&', bubble_help_control)
i = winio@('%2nl%ws&','Input a number')
i = winio@('%ta%?rf@%bh&', val, 'Enter a value', bubble_help_control) ! This works as expected
i = winio@(' ')

val = 0.d0
bubble_help_control = 1
i = winio@('%rb[Enable Bubble Help]&', bubble_help_control)
i = winio@('%2nl%ws&','Input a number')
i = winio@('%ta%?rf%bh[Enter a value]&', val, bubble_help_control)  ! What is wrong with this line?
i = winio@(' ')
end

Back to top
View user's profile Send private message Visit poster's website
PaulLaidler
Site Admin


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

PostPosted: Wed Nov 08, 2017 10:24 am    Post subject: Reply with quote

The order on line 24 should be...

Code:
i = winio@('%ta%?rf[Enter a value]%bh&', val, bubble_help_control) 


I would recommend %th[ms_style] instead of %bh.
Back to top
View user's profile Send private message
Kenneth_Smith



Joined: 18 May 2012
Posts: 160
Location: Glasgow, Scotland.

PostPosted: Wed Nov 08, 2017 11:05 am    Post subject: Reply with quote

Thanks Paul,

That was an easy one for you to answer Very Happy . I'll take a look at %th.

Regards
Ken
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
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


Powered by phpBB © 2001, 2005 phpBB Group