forums.silverfrost.com

[acp693]

Hi, I'm stumped on this one. How can I change the upper limit of %il when the program is running? I borrowed one of Paul Laidler's programs and modified it to show what I mean. Anyone any ideas?

Best regards

Albert

IMPLICIT NONE
INCLUDE <WINDOWS.INS>

external line, changeupperlim
integer*4 j,ii, upperlim

common /intern/ ii, upperlim

upperlim = 100
ii = 10

! j = winio@('%ca[Line]%sc%cc%`gr[rgb_colours]%ff%dd%il%^`4rd',
!* line,'EXIT',200,200,1L,10,10,200,ii,line)
!
j = winio@ ('%ca[Wilfred Line Test]&') ! Caption for window
j = winio@ ('%sy[3d_thin]&') ! select windows 95 style edge
j = winio@ ('%sc&', line) ! provide a call-back on startup
j = winio@ ('%cc&', 'EXIT') ! provide a call-back when closed ??
j = winio@ ('%`gr[rgb_colours]&', 200,200,1) ! create a graphics window and provide handle
j = winio@ ('%fn[MS SANS SERIF]&') ! select a font for text
j = winio@ ('%ts&',.9D0) ! scale font to 90% normal size
j = winio@ ('%ff&') ! form feed
j = winio@ ('%dd&', 10) ! insert a spin wheel
j = winio@ ('%il&', 10,upperlim) ! select integer limit from 10 to integer upperlim
j = winio@ ('%^`4rd&', ii, line) ! read only control
j = winio@ ('%^bt[change upperlimit]', changeupperlim)
end

INTEGER FUNCTION LINE()

IMPLICIT NONE
INCLUDE <WINDOWS.INS>

integer*4 ii

common /intern/ ii

call clear_screen@()
call draw_line@ (1,1,ii,ii,1)

line = 1
end

INTEGER FUNCTION changeupperlim()

IMPLICIT NONE
INCLUDE <WINDOWS.INS>
integer*4 ii, upperlim
common /intern/ upperlim

upperlim = 200
call window_update@(upperlim)

changeupperlim = 1
end

[PaulLaidler]

The limits are fixed when the control is created.
I think that I could add a function to change the limits dynamically but perhaps not in time for the next release.

In the mean time it is necessary to avoid using %il etc and to provide your own callback that applies the limits.

[acp693]

Thanks Paul, I will look into a workaround.

Regards

Albert

[acp693]

so work around is easy, but it isn't obvious to me why ii has to be declared in the function changelim? If I take it out it doesn't function properly anymore.

[LitusSaxonicum]

ii and ul are in the same common block. If you put them in different common blocks, you only have to put the one containing ul in changelim.

If you write fortran in 90 / 95 style, you can declare ii and ul to have a scope that includes the callbacks, so you don't need common.

I found the static nature of the limits, plus the fact that you can't have the two limits the same, a major limitation of %il. By the time you have programmed your own callback, and found it rather easy, you wonder what %il is there for.

E

[simon]

DId the function Paul mentioned ever get implemented.? I would be very keen to be able to update the upper limits dynamically.

[JohnCampbell]

I should try the approach you have indicated as the following date enquiry I wrote does not work well at all.

I have specified a valid year as being from 1901 to max_year = 2020.
I can only change the values with the spinl wheel, as it is impossible to type a digit into the %rd field. The %il applies after each key press and if I insert or remove a digit, it automatically goes out of range. I realy only want the %il to apply after I have completed changing the number. If 0 is not a valid number then %il does not allow the number to be deleted.
The other warning that should be in bold with %il is to follow the use of %il with %`il to turn it off for possible further %rd's.

I need to attach a limit test to the ok button and reject the ok if any are out of range.

John

[PaulLaidler]

I have now added two new subroutines for the next release. These will change the %il and %fl limits dynamically.
They will operate as follows...

[JohnCampbell]

Paul,

Thanks for the example. [check_on_focus_loss] solved my problem with the year limits, when I used ('%il&', 1900, 2020).

John