Subversion Repositories DevTools

Rev

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

Rev 5184 Rev 5190
Line 728... Line 728...
728 
                  objBtnControl.ButtonSpacer = 0
 728 
                  objBtnControl.ButtonSpacer = 0
729 
                  objBtnControl.ImageHspace = 2
 729 
                  objBtnControl.ImageHspace = 2
730 
 
 730 
 
731 
                  ' Access Control
 731 
                  ' Access Control
732 
                  If NOT canActionControlInProject("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )
 732 
                  If NOT canActionControlInProject("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )
733 
                  If NOT canActionControlInProject("DestroyRelease") Then Call objBtnControl.Active ( "btnDestroyRelease", "N" )
 - 
 
734 
                  If NOT canActionControlInProject("ConfigureRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )
 733 
                  If NOT canActionControlInProject("ConfigureRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )
735 
 
 734 
 
736 
                  ' -- Render Buttons
 735 
                  ' -- Render Buttons
737 
                  Call objBtnControl.Render  ( aBtnsDef, objAccessControl )
 736 
                  Call objBtnControl.Render  ( aBtnsDef, objAccessControl )
738 
                  %>
 737 
                  %>