[53] | 1 | pro domainpart, top_uvalue, basedomain, selected, DESTROY = destroy |
---|
[114] | 2 | ; |
---|
| 3 | compile_opt idl2, strictarrsubs |
---|
| 4 | ; |
---|
[53] | 5 | |
---|
| 6 | if keyword_set(destroy) then BEGIN |
---|
| 7 | ; id = widget_info(basedomain,find_by_uname = 'title') |
---|
| 8 | ; IF id NE 0 THEN widget_control, id, /destroy |
---|
| 9 | id = widget_info(basedomain,find_by_uname = 'oddsecchoice') |
---|
| 10 | IF id NE 0 THEN widget_control, id, /destroy |
---|
| 11 | id = widget_info(basedomain,find_by_uname = 'evensecchoice') |
---|
| 12 | IF id NE 0 THEN widget_control, id, /destroy |
---|
| 13 | id = widget_info(basedomain,find_by_uname = 'odd-evensecchoice') |
---|
| 14 | IF id NE 0 THEN widget_control, id, /destroy |
---|
| 15 | id = widget_info(basedomain,find_by_uname = 'basex') |
---|
| 16 | IF id NE 0 THEN widget_control, id, /destroy |
---|
| 17 | id = widget_info(basedomain,find_by_uname = 'basey') |
---|
| 18 | IF id NE 0 THEN widget_control, id, /destroy |
---|
| 19 | id = widget_info(basedomain,find_by_uname = 'basez') |
---|
| 20 | IF id NE 0 THEN widget_control, id, /destroy |
---|
| 21 | return |
---|
| 22 | endif |
---|
| 23 | ; |
---|
| 24 | ; we get the size of the dimenstion id of this section |
---|
| 25 | ; |
---|
| 26 | dimvar = *top_uvalue[1, findline(top_uvalue, 'dimvar')] |
---|
| 27 | selecteddim = dimvar[*, selected] |
---|
| 28 | typedim = *top_uvalue[1, findline(top_uvalue, 'typedim')] |
---|
| 29 | sorteddim = selecteddim[sortdim(typedim[selecteddim])] |
---|
| 30 | dimlist = *top_uvalue[1, findline(top_uvalue, 'dimlist')] |
---|
| 31 | ; |
---|
| 32 | ; longitude part |
---|
| 33 | ; |
---|
| 34 | basex=widget_info(basedomain,find_by_uname = 'basex') |
---|
| 35 | IF basex NE 0 THEN widget_control, basex, /destroy |
---|
| 36 | basex=widget_base(basedomain,/row, uname='basex') |
---|
| 37 | nothing=widget_text(basex,value='longitude', xsize = 10) |
---|
| 38 | nothing=cw_selectinterval(basex,dimlist.(sorteddim[0]),uname='xinterval',uvalue={name:'xinterval'}) |
---|
| 39 | ; |
---|
| 40 | ; latitude part |
---|
| 41 | ; |
---|
| 42 | basey=widget_info(basedomain,find_by_uname = 'basey') |
---|
| 43 | IF basey NE 0 THEN widget_control, basey, /destroy |
---|
| 44 | basey=widget_base(basedomain,/row, uname='basey') |
---|
| 45 | nothing=widget_text(basey,value='latitude', xsize = 10) |
---|
| 46 | nothing=cw_selectinterval(basey,reverse(dimlist.(sorteddim[1])), uname='yinterval',uvalue={name:'yinterval'}) |
---|
| 47 | ; |
---|
| 48 | ; depth part |
---|
| 49 | ; |
---|
| 50 | basez=widget_info(basedomain,find_by_uname = 'basez') |
---|
| 51 | IF basez NE 0 THEN widget_control, basez, /destroy |
---|
| 52 | basez=widget_base(basedomain,/row, uname='basez') |
---|
| 53 | nothing=widget_text(basez,value='depth', xsize = 10) |
---|
| 54 | nothing=cw_selectinterval(basez,dimlist.(sorteddim[2]),uname='zinterval',uvalue={name:'zinterval'}) |
---|
| 55 | ; |
---|
| 56 | end |
---|
| 57 | ; |
---|