Changeset 386 for trunk/SRC/Utilities

Timestamp:

12/03/08 14:26:28 (16 years ago)

Author:

smasson

Message:

3 small bugfix

File:

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

trunk/SRC/Utilities/routine_name.pro

@@ -47 +47 @@
 ;
   help,  /traceback, output = name
+
+  IF !d.name EQ 'WIN' THEN BEGIN
+    name[0] = '% ' + name[0]
+    FOR i = 1, n_elements(name)-1 DO BEGIN
+      IF strmid(name[i], 0, 1) EQ ' ' THEN name[i] = '%' + name[i]
+    ENDFOR
+  ENDIF
+
   name = strtrim(name, 1)       ; we remove blanks at the beginning of lines and
 ;                               we put elements of the vector stuck ones with