Changeset 118 for trunk/SRC/Obsolete/imprime.pro
- Timestamp:
- 06/27/06 17:47:06 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Obsolete/imprime.pro
r114 r118 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; @file_comments 5 ; @file_comments use printps instead... 6 6 ; @obsolete 7 ; 8 ; @param filename {in}{required} 9 ; 10 ; @keyword TRANS 11 ; 12 ; @keyword NB 13 ; 14 ; @uses printps 7 15 ; 8 16 ; @history 9 17 ; June 2005: Sebastien Masson, english version 18 ; 19 ; @version $Id$ 20 ; 10 21 ;- 11 22 ;------------------------------------------------------------ … … 19 30 ; 20 31 thisOS = strupcase(strmid(!version.os_family, 0, 3)) 21 CASE thisOS OF 32 CASE thisOS OF 22 33 'MAC':return 23 34 'WIN':return … … 30 41 0:printps 31 42 1:printps, filename 32 ELSE: BEGIN 43 ELSE: BEGIN 33 44 ras = report('imprime accept only one element: psfilename') 34 45 return 35 END 36 ENDCASE 46 END 47 ENDCASE 37 48 ;------------------------------------------------------------ 38 49 return
Note: See TracChangeset
for help on using the changeset viewer.