#///////////////////////////////////////////////////////////////////////////////// 
# WARRANTY: NONE. THIS PROGRAM WAS WRITTEN AS "SHAREWARE" AND IS AVAILABLE AS IS 
# AND MAY NOT WORK AS ADVERTISED IN ALL ENVIRONMENTS. THERE IS NO 
# SUPPORT FOR THIS PROGRAM 
# NOTE: YOU ARE STRONGLY ADVISED TO BACKUP YOUR DESIGN 
# BEFORE RUNNING THIS PROGRAM 
# Tcl file: capMenuUtil.tcl 
# contains OrCAD Capture Menu utlities 
# 
# You can run the script in the Capture Tcl command window . 
#///////////////////////////////////////////////////////////////////////////////// 
package require Tcl 8.4 
package provide capMenuUtil 1.0 

namespace eval ::capMenuUtil { 
} 
proc ::capMenuUtil::addPageAccessoryMenu { } { 
# AddAccessoryMenu <User menu under Accessories> <SubMenu under user menu> <Tcl callback #handler with 2 parameters pPage and pOcc> 
AddAccessoryMenu "Design Vault" "Launch Design Vault" "::capMenuUtil::OpenPageViewVault"
} 
proc ::capMenuUtil::addDesignAccessoryMenu { } { 
# AddAccessoryMenu <User menu under Accessories> <SubMenu under user menu> <Tcl callback #handler with 1 parameter pLib> 
 AddAccessoryMenu "Design Vault" "Launch Design Vault" "::capMenuUtil::OpenPageViewVault1"
} 
proc ::capMenuUtil::OpenPageViewVault { pPage pOcc } { 
exec "$::env(CDSROOT)/Design_Vault/DesignVault.exe"
} 

proc ::capMenuUtil::OpenPageViewVault1 { pLib } { 
exec "$::env(CDSROOT)/Design_Vault/DesignVault.exe" 
} 


proc ::capMenuUtil::capTrue { } { 
return 1 
} 
RegisterAction "_cdnCapTclAddPageCustomMenu" "::capMenuUtil::capTrue" "" "::capMenuUtil::addPageAccessoryMenu" "" 
RegisterAction "_cdnCapTclAddDesignCustomMenu" "::capMenuUtil::capTrue" "" "::capMenuUtil::addDesignAccessoryMenu" ""