Re: GUIs with Dislin -more examples

On Apr 29, 4:29 am, mich...@xxxxxxxxxx wrote:
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

Hi Helmut

Many thanks for the examples.

Just one quick question. In the first example, the window is greater
than my whole screen. Can I change that?

Ed
.

Quantcast