proc ::capSessionUtil::enumerateOpenLibsAndDesigns { } { set lSession $::DboSession_s_pDboSession DboSession -this $lSession set lStatus [DboState] set lName [DboTclHelper_sMakeCString] set lMessageStr [DboTclHelper_sMakeCString "Open Designs -->"] DboState_WriteToSessionLog $lMessageStr set lDesignsIter [$lSession NewDesignsIter $lStatus] set lDesign [$lDesignsIter NextDesign $lStatus] set lNullObj NULL while { $lDesign!= $lNullObj} { $lDesign GetName $lName DboState_WriteToSessionLog $lName set lDesign [$lDesignsIter NextDesign $lStatus] } delete_DboSessionDesignsIter $lDesignsIter set lMessageStr [DboTclHelper_sMakeCString "Open Libraries -->"] DboState_WriteToSessionLog $lMessageStr set lLibsIter [$lSession NewLibsIter $lStatus] set lLib [$lLibsIter NextLib $lStatus] set lNullObj NULL while { $lLib!= $lNullObj} { $lLib GetName $lName DboState_WriteToSessionLog $lName set lLib [$lLibsIter NextLib $lStatus] } delete_DboSessionLibsIter $lLibsIter $lStatus -delete }