home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Args / WbArg.e < prev   
Encoding:
Text File  |  1994-10-02  |  528 b   |  17 lines
  1. /* Lit les arguments lors du démarrage du workbench.
  2.    Donnez à ce programme un fichier .info, et sélectionner
  3.    quelques icones avec lui. */
  4.  
  5. MODULE 'workbench/startup'
  6.  
  7. PROC main()
  8.   DEF wb:PTR TO wbstartup, args:PTR TO wbarg, a
  9.   IF wbmessage=NIL                              /* du cli */
  10.     WriteF('arguments = "\s"\n',arg)
  11.   ELSE                                          /* du wb */
  12.     wb:=wbmessage
  13.     args:=wb.arglist
  14.     FOR a:=1 TO wb.numargs DO WriteF('arcgument wb #\d = "\s"\n',a,args[].name++)
  15.   ENDIF
  16. ENDPROC
  17.