WINSTYLE issue

I was playing around with child windows and wanted to add a 'standard' background color using the WINSTYLE@ function. Using it, however, caused a crash 'unused arguments' at run-time in line 8 (the %sh).

	winapp
    program main
	use mswin
	integer:: ii, ctrl, wd=-999, ht=-999,x=-999,y=-999
    integer,external:: call_back
	!child window with controls...
    call winstyle@('%bg[white]&')
	ii=winio@('%sh&',ctrl)
	ii=winio@('%bt[Button]&')
	ii=winio@('%bt[Button]&')
	ii=winio@('%bt[Button]&')
	ii=winio@('%bt[Button]&')
	ii=winio@('%bt[Button]&')
	ii=winio@('%bt[Button]&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]%nl&')
	ii=winio@('%bt[Button]&')
	ii=winio@(' ')
    call get_window_location@(ctrl,x,y,wd,ht)
    	print *,x,y,wd,ht
	!Main window to display child with vertical scroll bar...
	wd = 280; ht = 150
	ii=winio@('%ww[not_fixed_size]%sz&',wd,ht)
!    ii = winio@('%`mv&',call_back)
	ii=winio@('%ch[hscrollbar,vscrollbar]',ctrl)
    end
	integer function call_back()
    use mswin
    character*32:: callback_reason
    call_back = 1
    callback_reason=clearwin_string@('CALLBACK_REASON')
    print *,callback_reason
    return
    end

    

Yes. It appears that winstyle@ does not work in this context. I will make a note to investigate whether or not it can be fixed.

John,

It also shows used in the example. So, naturally....

Paul,

I also tried it right before the %ww. Didn't work there either.

But, if it doesn't work at all, I'm OK with that. I'm thinking that a function that does the setup works in my case. WINSTYLE@ would be nice, but is not necessary for me. I can certainly see it for others!

Bill

Bill

I haven't checked it out yet but I am hoping that it only fails with %sh.

If anyone has the time to test it (without %sh) then please let me know how you get on.

It doesn't appear to work with just the %ww either.

Is that %ww with %sh? Can you provide an example? Does it work at all?

	winapp
    program main
	use mswin
	integer:: ii,wd,ht
    call winstyle@('%tc[RED]&')
	wd = 280; ht = 150
	ii=winio@('%ww[not_fixed_size]%sz&',wd,ht)
	II = WINIO@('%BT[tEST]')
    end

This fails with 'Unused Arguments in winio@ call'.

This has now been fixed for the next release of the DLLs.

In the case of %ww you can work around the problem by avoiding extra arguments (after the format) in the first call to winio@.

ii=winio@('%ww[not_fixed_size]%sz&',wd,ht)

becomes:

ii=winio@('%ww[not_fixed_size]&') ii=winio@('%sz&',wd,ht)

If necessary, for %sh you could precede with

ii=winio@(' &')

or maybe change the order.

Thanks, Paul!

The above fix and work-around turns out to be for 64 bits only.

The 32 bit case has now been fixed but the above work-around may not be effective in this case.

It is a bug and it has now been fixed for the next release. The documentation is correct apart from the fact that %bg is missing from the list.