Changeset 239 for trunk/SRC/Utilities/report.pro

Timestamp:

03/28/07 08:50:03 (17 years ago)

Author:

smasson

Message:

cleaning + minor bugfix related to the path definition

File:

• trunk/SRC/Utilities/report.pro (modified) (1 diff)

trunk/SRC/Utilities/report.pro

@@ -69 +69 @@
   res = -1                      ;
 ; we separate the text in different lines (separated by !C) if it is not already done...
-   if n_elements(text) EQ 1 then text = str_sep(text, '!C', /trim)
+  if n_elements(text) EQ 1 then text = str_sep(text, '!C', /trim)
 ; there is some widgets activated, it is easy, we call dialog_massage
-   if (widget_info(/managed))[0] NE 0 then BEGIN
-      res = dialog_message(text, dialog_parent = parent, QUESTION = question $
-                           , title = routine_name(1), DEFAULT_NO = default_no, _extra = ex)
-      if keyword_set(question) THEN res = res EQ 'Yes' ELSE res = -1
-   ENDIF ELSE BEGIN
+  if (widget_info(/managed))[0] NE 0 then BEGIN
+    res = dialog_message(text, dialog_parent = parent, QUESTION = question $
+                         , title = routine_name(1), DEFAULT_NO = default_no, _extra = ex)
+    if keyword_set(question) THEN res = res EQ 'Yes' ELSE res = -1
+  ENDIF ELSE BEGIN
 ; there is not any widget activated
 ; do we ask a question ?
-      if keyword_set(question) then BEGIN
+    if keyword_set(question) then BEGIN
 ; what i sthe answer by default ?
-         if keyword_set(default_no) then answer = 'n' ELSE answer = 'y'
-         default_answer = answer
-         if n_elements(text) GT 1 THEN $
-          for i = 0, n_elements(text)-2 do print,text[i]
-         read, text[n_elements(text)-1]+' y/n (default answer is '+default_answer+')' , answer
-         answer = strlowcase(answer) ;
+      if keyword_set(default_no) then answer = 'n' ELSE answer = 'y'
+      default_answer = answer
+      if n_elements(text) GT 1 THEN $
+        for i = 0, n_elements(text)-2 do print, text[i]
+      read, text[n_elements(text)-1]+' y/n (default answer is '+default_answer+')', answer
+      answer = strlowcase(answer) ;
 ; if the answer is not appropriated
-         while answer NE '' and answer NE 'y' and answer NE 'n' do begin
-            read, text[n_elements(text)-1]+' y/n (default answer is '+default_answer+')' , answer
-            answer = strlowcase(answer)
-         ENDWHILE               ;
+      while answer NE '' and answer NE 'y' and answer NE 'n' do begin
+        read, text[n_elements(text)-1]+' y/n (default answer is '+default_answer+')', answer
+        answer = strlowcase(answer)
+      ENDWHILE                  ;
 ; we adjust res in function of th answer
-         case answer of
-            '':res = default_answer EQ 'y'
-            'y':res = 1
-            'n':res = 0
-         endcase
-      endif ELSE BEGIN
+      case answer of
+        '':res = default_answer EQ 'y'
+        'y':res = 1
+        'n':res = 0
+      endcase
+    ENDIF
+  ENDELSE
 ; If we do not ask any question, we just make a print
-        IF keyword_set(simple) THEN prefix = '' ELSE prefix = '% '+routine_name(1)+': '
-         if n_elements(text) GT 1 THEN $
-          for i = 0, n_elements(text)-2 do print, prefix+text[i]
-         print, prefix+text[n_elements(text)-1]
-      ENDELSE
-   ENDELSE
+  IF NOT keyword_set(question) THEN BEGIN
+    IF keyword_set(simple) THEN prefix = '' ELSE prefix = '% '+routine_name(1)+': '
+    if n_elements(text) GT 1 THEN $
+      for i = 0, n_elements(text)-2 do print, prefix+text[i]
+    print, prefix+text[n_elements(text)-1]
+  ENDIF
 
    return,  res