| 1 | ;+ |
|---|
| 2 | ; |
|---|
| 3 | ; @file_comments |
|---|
| 4 | ; |
|---|
| 5 | ; @categories |
|---|
| 6 | ; |
|---|
| 7 | ; @param TOP_UVALUE |
|---|
| 8 | ; |
|---|
| 9 | ; @param BASEDOMAIN |
|---|
| 10 | ; |
|---|
| 11 | ; @param SELECTED |
|---|
| 12 | ; |
|---|
| 13 | ; @keyword DESTROY |
|---|
| 14 | ; |
|---|
| 15 | ; @returns |
|---|
| 16 | ; |
|---|
| 17 | ; @uses |
|---|
| 18 | ; |
|---|
| 19 | ; @restrictions |
|---|
| 20 | ; |
|---|
| 21 | ; @examples |
|---|
| 22 | ; |
|---|
| 23 | ; @history |
|---|
| 24 | ; |
|---|
| 25 | ; @version |
|---|
| 26 | ; $Id$ |
|---|
| 27 | ; |
|---|
| 28 | ; @todo seb |
|---|
| 29 | ; |
|---|
| 30 | ;- |
|---|
| 31 | PRO domainpart, top_uvalue, basedomain, selected, DESTROY=destroy |
|---|
| 32 | ; |
|---|
| 33 | compile_opt idl2, strictarrsubs |
|---|
| 34 | ; |
|---|
| 35 | |
|---|
| 36 | if keyword_set(destroy) then BEGIN |
|---|
| 37 | ; id = widget_info(basedomain,find_by_uname = 'title') |
|---|
| 38 | ; IF id NE 0 THEN widget_control, id, /destroy |
|---|
| 39 | id = widget_info(basedomain,find_by_uname = 'oddsecchoice') |
|---|
| 40 | IF id NE 0 THEN widget_control, id, /destroy |
|---|
| 41 | id = widget_info(basedomain,find_by_uname = 'evensecchoice') |
|---|
| 42 | IF id NE 0 THEN widget_control, id, /destroy |
|---|
| 43 | id = widget_info(basedomain,find_by_uname = 'odd-evensecchoice') |
|---|
| 44 | IF id NE 0 THEN widget_control, id, /destroy |
|---|
| 45 | id = widget_info(basedomain,find_by_uname = 'basex') |
|---|
| 46 | IF id NE 0 THEN widget_control, id, /destroy |
|---|
| 47 | id = widget_info(basedomain,find_by_uname = 'basey') |
|---|
| 48 | IF id NE 0 THEN widget_control, id, /destroy |
|---|
| 49 | id = widget_info(basedomain,find_by_uname = 'basez') |
|---|
| 50 | IF id NE 0 THEN widget_control, id, /destroy |
|---|
| 51 | return |
|---|
| 52 | endif |
|---|
| 53 | ; |
|---|
| 54 | ; we get the size of the dimension id of this section |
|---|
| 55 | ; |
|---|
| 56 | dimvar = *top_uvalue[1, findline(top_uvalue, 'dimvar')] |
|---|
| 57 | selecteddim = dimvar[*, selected] |
|---|
| 58 | typedim = *top_uvalue[1, findline(top_uvalue, 'typedim')] |
|---|
| 59 | sorteddim = selecteddim[sortdim(typedim[selecteddim])] |
|---|
| 60 | dimlist = *top_uvalue[1, findline(top_uvalue, 'dimlist')] |
|---|
| 61 | ; |
|---|
| 62 | ; longitude part |
|---|
| 63 | ; |
|---|
| 64 | basex=widget_info(basedomain,find_by_uname = 'basex') |
|---|
| 65 | IF basex NE 0 THEN widget_control, basex, /destroy |
|---|
| 66 | basex=widget_base(basedomain,/row, uname='basex') |
|---|
| 67 | nothing=widget_text(basex,value='longitude', xsize = 10) |
|---|
| 68 | nothing=cw_selectinterval(basex,dimlist.(sorteddim[0]),uname='xinterval',uvalue={name:'xinterval'}) |
|---|
| 69 | ; |
|---|
| 70 | ; latitude part |
|---|
| 71 | ; |
|---|
| 72 | basey=widget_info(basedomain,find_by_uname = 'basey') |
|---|
| 73 | IF basey NE 0 THEN widget_control, basey, /destroy |
|---|
| 74 | basey=widget_base(basedomain,/row, uname='basey') |
|---|
| 75 | nothing=widget_text(basey,value='latitude', xsize = 10) |
|---|
| 76 | nothing=cw_selectinterval(basey,reverse(dimlist.(sorteddim[1])), uname='yinterval',uvalue={name:'yinterval'}) |
|---|
| 77 | ; |
|---|
| 78 | ; depth part |
|---|
| 79 | ; |
|---|
| 80 | basez=widget_info(basedomain,find_by_uname = 'basez') |
|---|
| 81 | IF basez NE 0 THEN widget_control, basez, /destroy |
|---|
| 82 | basez=widget_base(basedomain,/row, uname='basez') |
|---|
| 83 | nothing=widget_text(basez,value='depth', xsize = 10) |
|---|
| 84 | nothing=cw_selectinterval(basez,dimlist.(sorteddim[2]),uname='zinterval',uvalue={name:'zinterval'}) |
|---|
| 85 | ; |
|---|
| 86 | end |
|---|
