source: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro @ 150

Last change on this file since 150 was 150, checked in by navarro, 18 years ago

english and nicer header (3a)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 10.9 KB
Line 
1;*********************************************************************
2PRO selectfile_event, event
3;
4;
5  compile_opt idl2, strictarrsubs
6;
7@common
8;
9  widget_control, event.id, get_uvalue = eventuvalue
10; default definition of messenger when selectfile_event is called
11; directly without calling xmanager
12  widget_control, event.handler, get_uvalue = messenger
13  *messenger = -1
14
15  IF chkstru(eventuvalue, 'name') EQ 0 THEN return
16
17  case eventuvalue.name of
18; cancel button
19    'Global Cancel':BEGIN
20      widget_control, event.handler, get_uvalue = messenger
21      *messenger = -1
22      widget_control, event.handler, /destroy
23    END
24; data file informations
25    'datafilename':BEGIN
26      widget_control, event.id, get_value = filename
27      filename = isafile(filename = filename[0], iodir = iodir, /onlync, title = 'data file name')
28      if size(filename, /type) NE 7 then BEGIN
29        widget_control, event.id, set_value = ''
30        return
31      ENDIF
32      widget_control, event.id, set_value = filename
33    END
34    'browse datafilename':BEGIN
35      filename = isafile(iodir = iodir, /onlync, title = 'data file name')
36      if size(filename, /type) NE 7 then return
37      widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
38                      , set_value = filename
39    END
40; switch automatic/by and mesh definition buttons
41    'gridload':BEGIN
42      IF event.select EQ 1 THEN BEGIN
43        widget_control, widget_info(event.handler, find_by_uname = 'argtxt'), set_value = ''
44        widget_control, widget_info(event.handler, find_by_uname = 'kwdtxt'), set_value = ''
45        widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 1
46        CASE event.value OF
47          'via initnetcdf':BEGIN
48            widget_control, widget_info(event.handler, find_by_uname = 'meshload'), set_value = 'initncdf', editable = 0
49            widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 0
50            widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = 'initncdf keywords:'
51          END
52          'via perso':BEGIN
53            widget_control, widget_info(event.handler, find_by_uname = 'meshload'), set_value = '', editable = 1
54            widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 1
55            widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = 'keywords of IDL procedure:'
56          END
57        ENDCASE
58      ENDIF
59    END
60; name of the procedure or batch file
61    'meshload':BEGIN
62      widget_control, event.id, get_value = filename
63      filename = (find(filename[0], /onlypro, /firstfound))[0]
64      if filename EQ 'NOT FOUND' then begin
65        widget_control, event.id, set_value = ''
66        return
67      endif
68      CASE protype(filename) OF
69; this is a procedure
70        'proc':BEGIN
71          widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 1
72          widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 1
73          widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = file_basename(filename, '.pro')+' keywords:'
74        END
75; this is a function, this case is not accepted
76        'func':BEGIN
77          widget_control, event.id, set_value = ''
78          return
79        END
80; this is an IDL batch file
81        'batch':BEGIN
82          widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 0
83          widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 0
84          widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = 'no keywords:'
85        END
86      ENDCASE
87      widget_control, widget_info(event.handler, find_by_uname = 'argtxt'), set_value = ''
88      widget_control, widget_info(event.handler, find_by_uname = 'kwdtxt'), set_value = ''
89      widget_control, event.id, set_value = file_basename(filename, '.pro')
90    END
91    'browse meshload':BEGIN
92      filename = isafile(iodir = homedir, /onlypro, title = 'to load the grid file')
93      if size(filename, /type) NE 7 then return
94      meshload_id = widget_info(event.handler, find_by_uname = 'meshload')
95      widget_control, meshload_id, set_value = filename
96      selectfile_event, {ID:meshload_id, TOP:event.top, HANDLER:event.handler}
97    END
98; 'Lets Go!' button
99    'Lets Go!':BEGIN
100      widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
101                      , get_value = datafilename
102      datafilename = datafilename[0]
103      IF datafilename EQ '' THEN return
104      datafilename = isafile(filename = datafilename, iodir = iodir, /onlync, title = 'data file name')
105      if size(datafilename, /type) NE 7 then BEGIN
106        widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $
107                        , set_value = ''
108        return
109      ENDIF
110      widget_control, widget_info(event.handler, find_by_uname = 'gridload') $
111                      , get_value = gridload
112      widget_control, widget_info(event.handler, find_by_uname = 'argtxt') $
113                      , get_value = argtxt
114      argtxt = strtrim(argtxt[0], 2)
115      IF strpos(argtxt, ',') EQ 0 THEN argtxt = strmid(argtxt, 1)
116      widget_control, widget_info(event.handler, find_by_uname = 'kwdtxt') $
117                      , get_value = kwdtxt
118      kwdtxt = strtrim(kwdtxt[0], 2)
119      IF strpos(kwdtxt, ',') EQ 0 THEN kwdtxt = strmid(kwdtxt, 1)
120
121      CASE gridload[0] OF
122        'via perso':BEGIN
123          meshload_id = widget_info(event.handler, find_by_uname = 'meshload')
124          widget_control, meshload_id, get_value = meshload
125          meshload = meshload[0]
126          IF meshload EQ '' THEN return
127          meshload = (find(meshload[0], /onlypro, /firstfound))[0]
128          if meshload EQ 'NOT FOUND' then begin
129            widget_control, meshload_id, set_value = ''
130            return
131          endif
132        END
133        'via initnetcdf':meshload = datafilename
134      ENDCASE
135      IF strlen(argtxt) NE 0 THEN meshload = meshload + ', ' + argtxt
136      IF strlen(kwdtxt) NE 0 THEN meshload = meshload + ', ' + kwdtxt
137      widget_control, event.handler, get_uvalue = messenger
138      *messenger = create_struct('datafilename', datafilename, 'meshload', meshload)
139      widget_control, event.handler, /destroy
140    END
141
142  endcase
143  return
144end
145;*********************************************************************
146;+
147; @file_comments
148;
149;
150; @categories
151;
152;
153; @param DATAFILENAME
154;
155;
156; @param IDLFILE
157;
158;
159; @param ARGSPRO
160;
161;
162; @keyword _EXTRA
163; Used to pass your keywords
164;
165; @returns
166;
167;
168; @uses
169;
170;
171; @restrictions
172;
173;
174; @examples
175;
176;
177; @history
178;
179;
180; @version
181; $Id$
182;
183; @todo
184; seb: documenter les params
185;
186;-
187FUNCTION selectfile, datafilename, idlfile, argspro, _extra = ex
188;
189;
190  compile_opt idl2, strictarrsubs
191;
192@common
193;------------------------------------------------------------
194;------------------------------------------------------------
195;
196; We create a pointer in the uvalue to recuperate answers at setted
197; questions atthe time of the use of this widget. So when the widget
198; is deleted in the procedure ...event.pro, the variable on which the
199; pointer pointed (contained in the uvalue of the widget) is not
200; deleted and we can recuperate the result!
201;
202  messenger = ptr_new(/allocate_heap)
203  base = widget_base(/column, title = 'selectfile', /align_center, uvalue = messenger, _EXTRA = ex)
204; cancel button
205  dummyid = widget_button(base, value = 'Cancel', uvalue = {name:'Global Cancel'})
206; data file informations
207  basea = widget_base(base, /row, /align_center)
208  dummyid = widget_label(basea, value = 'Data file name: ')
209  database = widget_text(basea, value = '', uvalue = {name:'datafilename'} $
210                        , uname = 'datafilename', xsize = 45, /EDITABLE)
211  dummyid = widget_button(basea, value = 'Browse', uvalue = {name:'browse datafilename'})
212; switch automatic/by and mesh definition buttons
213  baseb = widget_base(base, /row, /align_center)
214  gdldid = cw_bgroup(baseb, ['automatic grid construction with initncdf.pro' $
215                              , 'grid construction with other IDL batch or procedure'] $
216                      , /exclusive, set_value = 0, uvalue = {name:'gridload'} $
217                      , uname = 'gridload', button_uvalue = ['via initnetcdf', 'via perso'])
218; name of the procedure or batch file
219  basec = widget_base(base, /row, /align_center, uname = 'pro base')
220  dummyid = widget_label(basec, value = 'IDL batch file of procedure')
221  basemeshload = widget_text(basec, value = 'initncdf', uvalue = {name:'meshload'} $
222                        , uname = 'meshload', xsize = 45, editable = 0)
223  dummyid = widget_button(basec, value = 'Browse', uvalue = {name:'browse meshload'})
224; arguments informations
225  based = widget_base(base, /row, /align_center, uname = 'arg base', sensitive = 0)
226  dummyid = widget_label(based, value = 'procedure arguments')
227  agrbase = widget_text(based, value = '', uvalue = {name:'argtxt'} $
228                        , uname = 'argtxt', xsize = 45, /EDITABLE)
229; keyword informations
230  basee = widget_base(base, /row, /align_center, uname = 'kwd base')
231  dummyid = widget_label(basee, uname = 'kwdlab', value = '     keywords of initncdf:')
232  dummyid = widget_text(basee, value = '' $
233                        , uvalue = {name:'kwdtxt'}, uname = 'kwdtxt', xsize = 45, /EDITABLE)
234; 'Lets Go!' button
235  basego = widget_button(base, value = 'Lets Go!', uvalue = {name:'Lets Go!'})
236
237;------------------------------------------------------------
238  IF n_elements(datafilename) NE 0 THEN BEGIN
239    widget_control, database, set_value = datafilename
240    selectfile_event, {ID:database, TOP:base, HANDLER:base}
241  ENDIF
242  IF n_elements(idlfile) NE 0 THEN BEGIN
243    widget_control, basemeshload, set_value = idlfile
244    selectfile_event, {ID:basemeshload, TOP:base, HANDLER:base}
245    widget_control, basemeshload, get_value = idlfile2
246    IF idlfile2[0] NE '' THEN widget_control, gdldid, set_value = 1
247  ENDIF
248  IF n_elements(argspro) NE 0 THEN widget_control, argbase, set_value = argspro
249;------------------------------------------------------------
250  IF n_elements(datafilename) EQ 0 THEN BEGIN
251    widget_control, base, /realize
252    xmanager, 'selectfile', base, event_handler = 'selectfile_event', no_block = 0
253  ENDIF ELSE selectfile_event, {ID:basego, TOP:base, HANDLER:base}
254;------------------------------------------------------------
255; get back the information from selectfile_event
256  res = *messenger
257  ptr_free, messenger
258  if size(res, /type) NE 8 then return, -1
259
260  loadgrid, res.meshload, _extra = ex
261
262  ccreadparameters = {funclec_name:'read_ncdf' $
263          , jpidta:jpidta, jpjdta:jpjdta, jpkdta:jpkdta $
264          , ixmindta:ixmindta, ixmaxdta:ixmaxdta $
265          , iymindta:iymindta, iymaxdta:iymaxdta $
266          , izmindta:izmindta, izmaxdta:izmaxdta}
267
268  res3 = scanfile(res.datafilename, iodir = iodir, _extra = ex)
269  if size(res3, /type) NE 8 then return,  -1
270
271  return, {fileparameters:res3, readparameters:ccreadparameters, meshparameters:ccmeshparameters}
272end
Note: See TracBrowser for help on using the repository browser.