source: trunk/SRC/ToBeReviewed/HOPE/rh_alldomains.pro @ 231

Last change on this file since 231 was 231, checked in by pinsard, 17 years ago

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