Sophie: perl-qt4-examples-1:4.14.3-1.mga5 noarch

perl-qt4-examples-4.14.3-1.mga5.noarch.rpm

<html>
  <head>
    <title></title>
  </head>
  <body>
    <p>In total the tree has {count($root//QObject)} QObject instances.</p>
    <p>Order by occurrence, the QObjects are:</p>

    <ol>
    {
      for $i in $root/preceding-sibling::metaObjects/metaObject
      let $count := count($root//QObject[@className eq $i/@className])
      stable order by $count descending
      return if($count > 1)
             then <li>{string($i/@className), $count} occurrences</li>
             else ()
    }
    </ol>

    <h1>Properties</h1>
    {
      (: For each QObject, we create a table listing
       : the properties of that object. :)
      for $object in $root//QObject
        return (<h2>{let $name := string($object/@objectName)
                     return if(string-length($name))
                            then $name
                            else "[no name]",
                     '(', string($object/@className), ')'}</h2>,
                <table border="1">
                  <thead>
                    <tr>
                      <td>Property Name</td>
                      <td>Value</td>
                    </tr>
                  </thead>
                  <tbody>
                  {
                    $object/@*/<tr>
                                 <td>
                                 {
                                   name()
                                 }
                                 </td>
                                 <td>
                                 {
                                   if(data(.))
                                   then string(.)
                                   else "N/A"
                                 }
                                 </td>
                               </tr>
                  }
                  </tbody>
                </table>)
    }
  </body>
</html>