'---------------------------------------------------------------------
'SCRIPT:    avu-PrintWrapperCaller
'PROJECT:   gavos.apr, avcsus 
'DATE:      01-29-96
'AUTHOR:    John Ganter, Sandia National Labs, jganter@sandia.gov  
'DESC:      prepares a list of scripts, and calls avu-PrintWrapper
'DESC2:     This script makes a "wrapped" format for printing
'CALLED BY: a Project/Button
'CALL AS:   av.Run("avu-PrintWrapper", scriptname)
'ACCEPTS:   <>
'RETURNS:   <>
'EXPECTS:   script(s) to be selected in the Project Window
'CALLS TO:  avu-PrintWrapper
'---------------------------------------------------------------------
'Print this test pattern to see how many characters your 
'    printer/driver will handle
'    H-P LaserJet 4si prints to 73 characters
'
'        1         2         3         4         5         6         7         8
'2345678901234567890123456789012345678901234567890123456789012345678901234567890
'        1         2         3         4         5         6         7         8
'2345678901234567890123456789012345678901234567890123456789012345678901234567890
'---------------------------------------------------------------------
'get the scripts that are currently selected. Check to make sure there
' is at least one, and that it is a Script object

  listSelected = av.GetProject.GetActive
  numSelected = listSelected.Count
  if ( (numSelected < 1) or ( listSelected.Get(0).GetClass.GetClassName <> "Script") ) then
    MsgBox.Error("Sorry, you must select one or more Scripts in the Project window","avu-PrintWrapper error") 
    exit
  end
  
'go through the list and call PrintWrapper for each script

  av.ShowStopButton
  numProgress = 10
  for each i in listSelected
    boolGo = av.SetStatus (numProgress)
    if (not boolGo) then
      break
    end
    av.Run("avu-PrintWrapper",i.GetName) 'must send name string, not an object
    numProgress = numProgress + 10
  end
  
  av.ShowMsg("PrintWrapper is done")
  av.ClearStatus