Subversion Repositories DevTools

Rev

Rev 6 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6 Rev 5296
Line 148... Line 148...
148
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
148
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
149
			objTabControl.TabStyle = "StyleMac"
149
			objTabControl.TabStyle = "StyleMac"
150
			objTabControl.AddTabDefnition ( arrUserAccount )
150
			objTabControl.AddTabDefnition ( arrUserAccount )
151
			objTabControl.SelectByName ( "Roles" )
151
			objTabControl.SelectByName ( "Roles" )
152
			
152
			
153
			objTabControl.SetImgSelected "User Privileges", "icons/ai_major_problem.gif"
153
			objTabControl.SetImgSelected "User Permissions", "icons/ai_major_problem.gif"
154
			objTabControl.SetImgDeselected "User Privileges", "icons/ai_major_problem.gif"
154
			objTabControl.SetImgDeselected "User Permissions", "icons/ai_major_problem.gif"
155
			objTabControl.SetHint "User Privileges", "Some Comments" 
155
			objTabControl.SetHint "User Permissions", "Displayed values for selected Role"
-
 
156
 
-
 
157
			objTabControl.SetImgSelected "User Override", "icons/ai_major_problem.gif"
-
 
158
			objTabControl.SetImgDeselected "User Override", "icons/ai_major_problem.gif"
-
 
159
			objTabControl.SetHint "User Override", "Displayed values for selected Role" 
-
 
160
 
156
			objTabControl.Render ()
161
			objTabControl.Render ()
157
			%>
162
			%>
158
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
163
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
159
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
164
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
160
          <tr>
165
          <tr>