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