selicon.ssc

PowerBuilder8.0开发分散式应用所帶的例程

<!--SCRIPT PSOBJMOD
    import( site.GetRootDocument().location + "/ObjMod80.ssc" );
    session.active = true;
    InitObjects(session);
-->
<!--SCRIPT // {{ SCRIPT()
/*
 * Select an icon image based on the document type.
 */
function SelectIcon( docType )
{
  if( docType == 'directory' ) {
    document.write( 'folder.gif' );
  } else if( docType == 'directorylink' ) {
    document.write( 'linked.gif' );
  } else if( docType == 'image' ) {
    document.write( 'image.gif' );
  } else if( docType == 'text' ) {
    document.write( 'document.gif' );
  } else if( docType == 'script' ) {
    document.write( 'script.gif' );
  } else {
    document.write( 'document.gif' );
  }
}
// }}
-->