Changeset 231 for trunk/SRC/Postscript


Ignore:
Timestamp:
03/19/07 18:15:51 (17 years ago)
Author:
pinsard
Message:

improvements/corrections of some *.pro headers

Location:
trunk/SRC/Postscript
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Postscript/closeps.pro

    r230 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; @file_comments 
    … …  
    129; 
    1310; @keyword INFOWIDGET {type=long integer} 
    14 ; id of the information widget (created by  
    15 ; <a href="./openps.html">openps</a> 
     11; id of the information widget (created by; <pro>OPENPS</pro>) 
    1612; that we have to destroy at the end of closeps (when the postscript is done). 
    1713; 
    … …  
    2824; 
    2925;- 
    30 ;------------------------------------------------------------ 
    31 ;------------------------------------------------------------ 
    32 ;------------------------------------------------------------ 
     26; 
    3327PRO closeps, INFOWIDGET = infowidget 
    3428; 
     29compile_opt idl2, strictarrsubs 
    3530; 
    36   compile_opt idl2, strictarrsubs 
     31IF lmgr(/demo) EQ 1 THEN return 
    3732; 
    38    IF lmgr(/demo) EQ 1 THEN return 
    39 ;------------------------------------------------------------ 
    40 ; include commons 
    4133@cm_4ps 
    4234  IF NOT keyword_set(key_forgetold) THEN BEGIN 

  • trunk/SRC/Postscript/openps.pro

    r230 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    … …  
    129; 
    1310; @keyword FILENAME 
    14 ; to define the name of the postscript file through a keyword rather than with  
     11; to define the name of the postscript file through a keyword rather than with 
    1512; nameps input argument (in this case the keyword can be pass through 
    1613; different routines via _EXTRA keyword). 
    1714; 
    1815; @keyword INFOWIDGET 
    19 ; If INFOWIDGET is present, it specifies a named variable into which the id of  
    20 ; the widget giving information about the postscript creation is stored as a  
     16; If INFOWIDGET is present, it specifies a named variable into which the id of 
     17; the widget giving information about the postscript creation is stored as a 
    2118; long integer. 
    22 ; This id is needed by <a href="./closeps.html">closeps</a> to kill  
    23 ; the information widget. 
     19; This id is needed by <pro>closeps</pro> to kill the information widget. 
    2420; 
    2521; @keyword KEEP_PFONT 
    … …  
    4036; 
    4137; @keyword _EXTRA 
    42 ; used to pass any keyword to device procedure. 
     38; Used to pass keywords to <pro>device<pro>. 
    4339; 
    44 ; @uses cm_4ps 
     40; @uses  
     41; cm_4ps 
    4542; 
    4643; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    … …  
    5451; 
    5552;- 
    56 ;------------------------------------------------------------ 
    57 ;------------------------------------------------------------ 
    58 ;------------------------------------------------------------ 
     53; 
    5954pro openps, namepsin, FILENAME = filename, INFOWIDGET = infowidget $ 
    6055            , KEEPPFONT = keeppfont, KEEP_PFONT = keep_pfont $ 
    … …  
    6964      return 
    7065   ENDIF 
    71 ;------------------------------------------------------------ 
    72 ; include commons 
     66; 
    7367@cm_4ps 
    7468IF NOT keyword_set(key_forgetold) THEN BEGIN 
    … …  
    139133   RETURN 
    140134END 
    141  
    142  
    143  
    144  
    145  
    146  
    147  
    148  
    149  
    150  
    151  
    152  

  • trunk/SRC/Postscript/printps.pro

    r230 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 
    … …  
    4744; 
    4845;- 
    49 ;------------------------------------------------------------ 
    50 ;------------------------------------------------------------ 
    51 ;------------------------------------------------------------ 
     46; 
    5247PRO printps_event, event 
    53 ;------------------------------------------------------------ 
    54 ; include commons 
    5548; 
    5649  compile_opt idl2, strictarrsubs 
    … …  
    235228    ELSE: 
    236229  ENDCASE 
    237 ;------------------------------------------------------------ 
    238 ; include commons 
     230; 
    239231@cm_4ps 
    240232  IF NOT keyword_set(key_forgetold) THEN BEGIN 
Note: See TracChangeset for help on using the changeset viewer.