Class User.MyPage Extends %CSP.Util.AutoPage 
{ 

Parameter CSPURL = "/csp/sys/User.MyPage.cls"; 

Parameter PAGENAME = "Test page"; 

Parameter PARENTPAGE = "../UtilHome.csp"; 

Parameter STYLESHEET = "intersystems.css"; 

Parameter USEFRAMES =  0 ; 

Parameter USENAMESPACE =  0 ; 

ClassMethod GetDetailPane(pInstance As %CSP.Util.PageInstance) As %CSP.Util.Pane [ Language = cache ] 
{ 
 Set tPane = ##class(%CSP.Util.Pane).%New() 
 Set tPane.Text = $$$Text("Test page") 
  
 q tPane 
} 

ClassMethod GetTitlePane(pInstance As %CSP.Util.PageInstance) As %CSP.Util.Pane [ Language = cache ] 
{ 
 Set tPane = ##class(%CSP.Util.SMTitlePane).%New() 
 Set tPane.Text = $$$Text("Test page") 

 Set tPane.ShowUsrNsp =  1  
 Quit tPane 
} 

ClassMethod OnPage() As %Status 
{ 
Do ..OnPageCSPROOT() 
Quit $$$OK 
} 

ClassMethod OnPageCSPROOT() As %Boolean 
{ 
Do ..DrawHTML() 
} 
}