dialog interactive window noise summary

I have update this code to work for paramatric simulation as well if anyone is interested...
Just save the following code in thisFile.ocn and execute :
load("thisFile.ocn")

;; A noise simulation is supposed to have been run

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

procedure( noiseResult( @optional (file nil ) )
let( (resultDir pfile param paramList) 

;; optional argument proccessing
caseq( file 
 (nil pfile = poport)
 (t   pfile = outfile(file))
 )

;; execute the following code
;; does not work if anyone had created a directory  named *=* also
if( paramList=rexMatchList(".*=.*"  ls(openResults())) then 

;; loop on every paramatric directory
resultDir = openResults()
foreach(param paramList
openResults(strcat(resultDir "/" param))
fprintf(pfile "\t\t[** %s **]\n",param)
noiseSummary( 'integrated ?result 'noise ?noiseUnit "V" ?truncateType 'byNumber ?truncateData 15 ?output pfile)
); end foreach
openResults(resultDir)

else ;; not a parametric simulation

;; call to the noise summary function in the current directory
noiseSummary( 'integrated ?result 'noise ?noiseUnit "V" ?truncateType 'byNumber ?truncateData 15 ?output pfile)

); end if
close(pfile)

); end let
); end procedure

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




;;; creating a item for the pulldown menu
trMenuItemMyFunction = hiCreateMenuItem(
   ?name 'trMenuItemMyFunction
   ?itemText "Save noise"
   ?callback "filename = \"summaryNoise.txt\"
              noiseResult( filename ) 
              printf(\"Noise Summary Result saved in [_** %s/%s **_]\n\", pwd() filename)"
   ); end of created Menu item

;;; creating a second menu item for the pulldown menu
trMenuItemPrintNoiseSummary = hiCreateMenuItem(
   ?name 'trMenuItemPrintNoiseSummary
   ?itemText "print noise"
   ?callback "noiseResult()"
   ); end of created Menu item

;; noiseSummary( 'integrated ?result 'noise ?noiseUnit "V" ?truncateType 'byNumber ?truncateData 15)

;;; creating the menu item for the pulldown menu
trMenuItemResize = hiCreateMenuItem(
   ?name 'trMenuItemResize
   ?itemText "Resize"
   ?callback "hiResizeWindow( window(1) list(0:0 500:500))"
   )


;;; creating the Example Menu pulldown menu
hiCreatePulldownMenu(
   'trEdPulldownMenu
   "Menu_perso"
   list( trMenuItemMyFunction trMenuItemPrintNoiseSummary trMenuItemResize)
   )

;;; inserting the pulldown menu in the CIW
hiInsertBannerMenu( window(1) trEdPulldownMenu 5  )

;; might want to delete it maybe
;;hiDeleteBannerMenu( window(1) 5 ) <== number of the item