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 |
---|