Re: GUIs with Dislin -more examples

On 29 Apr., 04:24, Ed <emammen...@xxxxxxxxx> wrote:
Hello

Although some examples are shown athttp://www.star.le.ac.uk/~cgp/dislinGUI.html,
I wonder whether someone out there would have a couple of more
examples on how to make GUIs withdislin(fortran).

Right row, I need to know how to create a GUI where I can enter real*8
values on two separate columns, one next to the other (something like
an excel ***). Each column should hold 24 values.

Any help would be most appreciated.

Many thanks

Ed

There is no table widget in Dislin at the moment for doing this job. I
have noted this for
the next release. If you want to edit your real values, you have to
create 24 single
text widgets for each row. For example:

----
parameter (n=24)
double precision x1(n),x2(n)
integer id1(n),id2(n)
character*25 cstr

do i=1,n
x1(i)=i
x2(i)=1000.+i
end do

call wgini('hori',ip)

call wgbas (ip, 'vert', ip1)
call wgbas (ip, 'vert', ip2)

do i=1,n
write(cstr,'(f10.4)') x1(i)
call wgtxt(ip1,cstr,id1(i))
end do

do i=1,n
write(cstr,'(f10.4)') x2(i)
call wgtxt(ip2,cstr,id2(i))
end do

call wgfin
end
----

If you just want to display yout values, you can do this in a scrolled
text widget.
For example:

-----

call wgini('hori',ip)
call wgstxt(ip,24,24,id1)

do i=1,24
write(cstr,'(f10.4,3x,f10.4)') x1(i),x2(i)
call swgtxt (id1,cstr)
end do

call wgfin
-----

Regards,

Helmut
.