1 | ;+ |
---|
2 | ; @file_comments |
---|
3 | ; |
---|
4 | ; |
---|
5 | ; @categories |
---|
6 | ; |
---|
7 | ; |
---|
8 | ; @param TOPID |
---|
9 | ; |
---|
10 | ; |
---|
11 | ; @param SELECTED |
---|
12 | ; |
---|
13 | ; |
---|
14 | ; @returns |
---|
15 | ; |
---|
16 | ; |
---|
17 | ; @uses |
---|
18 | ; |
---|
19 | ; |
---|
20 | ; @restrictions |
---|
21 | ; |
---|
22 | ; |
---|
23 | ; @examples |
---|
24 | ; |
---|
25 | ; |
---|
26 | ; @history |
---|
27 | ; |
---|
28 | ; |
---|
29 | ; @version |
---|
30 | ; $Id$ |
---|
31 | ; |
---|
32 | ; @todo seb |
---|
33 | ; |
---|
34 | ;- |
---|
35 | PRO rh_alldomains, topid, selected |
---|
36 | ; |
---|
37 | compile_opt idl2, strictarrsubs |
---|
38 | ; |
---|
39 | |
---|
40 | widget_control, topid, get_uvalue=top_uvalue |
---|
41 | widget_control, topid, update=0 |
---|
42 | ; |
---|
43 | selectedline=(*top_uvalue[1, findline(top_uvalue, 'linetype')])[selected] |
---|
44 | ; |
---|
45 | ; we get the size of the dimension id of this section |
---|
46 | ; |
---|
47 | dimvar = *top_uvalue[1, findline(top_uvalue, 'dimvar')] |
---|
48 | typedim = *top_uvalue[1, findline(top_uvalue, 'typedim')] |
---|
49 | dimlist = *top_uvalue[1, findline(top_uvalue, 'dimlist')] |
---|
50 | sizedim = *top_uvalue[1, findline(top_uvalue, 'sizedim')] |
---|
51 | ; |
---|
52 | ; buttons to select type of line : odd, even or odd-even |
---|
53 | ; |
---|
54 | linechoicebase=widget_info(topid,find_by_uname = 'linechoicebase') |
---|
55 | id = widget_info(linechoicebase,find_by_uname = 'linechoice') |
---|
56 | IF id NE 0 THEN widget_control, id, /destroy |
---|
57 | choice = '' |
---|
58 | if (where(selectedline EQ 'odd'))[0] NE -1 then choice = [choice, 'odd'] |
---|
59 | if (where(selectedline EQ 'even'))[0] NE -1 then choice = [choice, 'even'] |
---|
60 | if (where(selectedline EQ 'odd-even'))[0] NE -1 then choice = [choice, 'odd-even'] |
---|
61 | choice = choice[1:n_elements(choice)-1] |
---|
62 | nothing = cw_bgroup(linechoicebase,choice, /row,/exclusive, /return_name, uname = 'linechoice', uvalue = {name:'linechoice'}) |
---|
63 | widget_control, nothing, set_value = 0 |
---|
64 | sensitive = bytarr(3) |
---|
65 | sensitive[where(['odd', 'even', 'odd-even'] eq choice[0])] = 1 |
---|
66 | ; |
---|
67 | ; odd points domain |
---|
68 | ; |
---|
69 | basedomainodd=widget_info(topid,find_by_uname = 'basedomainodd') |
---|
70 | id = widget_info(basedomainodd,find_by_uname = 'title') |
---|
71 | IF id NE 0 THEN widget_control, id, /destroy |
---|
72 | oddsecchoice = where(selectedline EQ 'odd') |
---|
73 | if oddsecchoice[0] NE -1 then BEGIN |
---|
74 | oddsecchoice = selected[oddsecchoice] |
---|
75 | nothing=widget_label(basedomainodd, value = 'Domain of the odd points', uname = 'title') |
---|
76 | IF n_elements(oddsecchoice) GT 1 THEN BEGIN |
---|
77 | selecteddim = dimvar[*, oddsecchoice] |
---|
78 | sorteddim = selecteddim |
---|
79 | FOR i = 0, n_elements(oddsecchoice)-1 DO $ |
---|
80 | sorteddim[*, i] = selecteddim[sortdim(typedim[selecteddim[*, i]]), i] |
---|
81 | zdim = sorteddim[2, *] |
---|
82 | sizedims = sizedim[zdim] |
---|
83 | sortedzdim = sort(sizedims) |
---|
84 | sizedims = sizedims[sortedzdim] |
---|
85 | oddsecchoice = oddsecchoice[sortedzdim] |
---|
86 | nothing=widget_droplist(basedomainodd,title = 'number of levels', value = strtrim(sizedims, 2), uvalue = {name:'oddsecchoice'}, uname='oddsecchoice') |
---|
87 | ENDIF |
---|
88 | domainpart, top_uvalue, basedomainodd, oddsecchoice[0] |
---|
89 | widget_control, basedomainodd, set_uvalue = oddsecchoice |
---|
90 | ENDIF ELSE BEGIN |
---|
91 | nothing=widget_label(basedomainodd, value = ' ', uname = 'title') |
---|
92 | domainpart, top_uvalue, basedomainodd, /destroy |
---|
93 | widget_control, basedomainodd, set_uvalue = -1 |
---|
94 | ENDELSE |
---|
95 | widget_control, basedomainodd, sensitive = sensitive[0] |
---|
96 | ; |
---|
97 | ; even points domain |
---|
98 | ; |
---|
99 | basedomaineven=widget_info(topid,find_by_uname = 'basedomaineven') |
---|
100 | id = widget_info(basedomaineven,find_by_uname = 'title') |
---|
101 | IF id NE 0 THEN widget_control, id, /destroy |
---|
102 | evensecchoice = where(selectedline EQ 'even') |
---|
103 | if evensecchoice[0] NE -1 then BEGIN |
---|
104 | evensecchoice = selected[evensecchoice] |
---|
105 | nothing=widget_label(basedomaineven, value = 'Domain of the even points', uname = 'title') |
---|
106 | IF n_elements(evensecchoice) GT 1 THEN BEGIN |
---|
107 | selecteddim = dimvar[*, evensecchoice] |
---|
108 | sorteddim = selecteddim |
---|
109 | FOR i = 0, n_elements(evensecchoice)-1 DO $ |
---|
110 | sorteddim[*, i] = selecteddim[sortdim(typedim[selecteddim[*, i]]), i] |
---|
111 | zdim = sorteddim[2, *] |
---|
112 | sizedims = sizedim[zdim] |
---|
113 | sortedzdim = sort(sizedims) |
---|
114 | sizedims = sizedims[sortedzdim] |
---|
115 | evensecchoice = evensecchoice[sortedzdim] |
---|
116 | nothing=widget_droplist(basedomaineven,title = 'number of levels', value = strtrim(sizedims, 2), uvalue = {name:'evensecchoice'}, uname='evensecchoice') |
---|
117 | ENDIF |
---|
118 | domainpart, top_uvalue, basedomaineven, evensecchoice[0] |
---|
119 | widget_control, basedomaineven, set_uvalue = evensecchoice |
---|
120 | ENDIF ELSE BEGIN |
---|
121 | domainpart, top_uvalue, basedomaineven, /destroy |
---|
122 | nothing=widget_label(basedomaineven, value = ' ', uname = 'title') |
---|
123 | widget_control, basedomaineven, set_uvalue = -1 |
---|
124 | ENDELSE |
---|
125 | widget_control, basedomaineven, sensitive = sensitive[1] |
---|
126 | ; |
---|
127 | ; odd-even points domain |
---|
128 | ; |
---|
129 | basedomainoddeven=widget_info(topid,find_by_uname = 'basedomainodd-even') |
---|
130 | id = widget_info(basedomainoddeven,find_by_uname = 'title') |
---|
131 | IF id NE 0 THEN widget_control, id, /destroy |
---|
132 | oddevensecchoice = where(selectedline EQ 'odd-even') |
---|
133 | if oddevensecchoice[0] NE -1 then BEGIN |
---|
134 | oddevensecchoice = selected[oddevensecchoice] |
---|
135 | nothing=widget_label(basedomainoddeven, value = 'Domain of the odd-even points', uname = 'title') |
---|
136 | IF n_elements(oddevensecchoice) GT 1 THEN BEGIN |
---|
137 | selecteddim = dimvar[*, oddevensecchoice] |
---|
138 | sorteddim = selecteddim |
---|
139 | FOR i = 0, n_elements(oddevensecchoice)-1 DO $ |
---|
140 | sorteddim[*, i] = selecteddim[sortdim(typedim[selecteddim[*, i]]), i] |
---|
141 | zdim = sorteddim[2, *] |
---|
142 | sizedims = sizedim[zdim] |
---|
143 | sortedzdim = sort(sizedims) |
---|
144 | sizedims = sizedims[sortedzdim] |
---|
145 | oddevensecchoice = oddevensecchoice[sortedzdim] |
---|
146 | nothing=widget_droplist(basedomainoddeven,title = 'number of levels', value = strtrim(sizedims, 2), uvalue = {name:'odd-evensecchoice'}, uname='odd-evensecchoice') |
---|
147 | ENDIF |
---|
148 | domainpart, top_uvalue, basedomainoddeven, oddevensecchoice[0] |
---|
149 | widget_control, basedomainoddeven, set_uvalue = oddevensecchoice |
---|
150 | ENDIF ELSE BEGIN |
---|
151 | domainpart, top_uvalue, basedomainoddeven, /destroy |
---|
152 | nothing=widget_label(basedomainoddeven, value = ' ', uname = 'title') |
---|
153 | widget_control, basedomainoddeven, set_uvalue = -1 |
---|
154 | ENDELSE |
---|
155 | widget_control, basedomainoddeven, sensitive = sensitive[2] |
---|
156 | ; |
---|
157 | case (where(sensitive EQ 1))[0] of |
---|
158 | 0:*top_uvalue[1, findline(top_uvalue, 'selected')] = oddsecchoice[0] |
---|
159 | 1:*top_uvalue[1, findline(top_uvalue, 'selected')] = evensecchoice[0] |
---|
160 | 2:*top_uvalue[1, findline(top_uvalue, 'selected')] = oddevensecchoice[0] |
---|
161 | endcase |
---|
162 | ; |
---|
163 | widget_control, topid, update=1 |
---|
164 | return |
---|
165 | end |
---|