forums.silverfrost.com

[DanRRight]

As an example, suppose we are trying to write the code called "periodic table" where we will select configurations (one or many)for specific ion and somehow further process it. For example first 4 elements from Hydrogen to Beryllium have these well known configurations

config(1,1)='1s1'

config(1,2)='1s1'
config(2,2)='1s2'

config(1,3)='1s1'
config(2,3)='1s2'
config(3,3)='1s2_2s1'

config(1,4)='1s1'
config(2,4)='1s2'
config(3,4)='1s2_2s1'
config(4,4)='1s2_2s2'

It is possible to write short DO loop which will create many similar Clearwin controls for all elements of periodic table where we will be able to chose specific configurations of specific atom? It is obviously simpler to set the data for all atoms and then write just one single DO loop instead of painfully fill many lines manually.

Problem is that my several attempts of creating such loops (as below) failed. (Here i created just first 10 controls for the first 50 instead of 106 elements of periodic table)

do i=1,10
j=winio@(' Element %ta%ws%ta%8.2^ms%sf%ff&', element(i), config(:,i),intl(50), iz_Selected(:,i),cb_processRequest)
enddo

The one-dimensional arrays where i just substituted 2D arrays with 1D arrays config--> config0 and iz_Selected --> iz_Selected0 are working OK. Here is the compilable demo code where first control in the picture shows how all should work (but how it should not be written for the whole set of 106 elements) with all others controls made by do loop which does not work (but how the code should in principle be written). Is there a way to get through this with some kind of derived type setup instead of 2D array to fool Clearwin ? Or i just have done something wrong somewhere?

[DanRRight]

Well, i'm kind of succeeded myself with derived types but the programming with derived types looks even more twisted and even less pretty.

Any suggestions about using good old arrays like in my example which does not work?

Here is my derived type mess for interested with the exact functionality needed

[JohnCampbell]

Dan,

could you do it with a list of %rb radio buttons.
You may also need a vertical scroll on the selection display.

My quick attempt to set up a mapping to a 1 dimensional array and display different radio buttons for each new element, could work something like:

[DanRRight]

Good suggestion and interesting trickery with its implementation ! Made me think and try and inspired other things. Thanks, John

[DanRRight]

Well, as it always happen after implementing the solution with the radiobuttons popping out in separate window (because it was hard to place all of them on one main window without scrolling which before did not work well) i found the solution for the initial problem. The fun is that it's an obvious standard Fortran77