Index: openacs-4/contrib/packages/portal/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/element-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/contrib/packages/portal/tcl/element-procs.tcl	21 Mar 2004 02:39:57 -0000	1.15
+++ openacs-4/contrib/packages/portal/tcl/element-procs.tcl	22 Mar 2004 02:24:27 -0000	1.16
@@ -420,8 +420,11 @@
         set element(filename) "$theme(filename)"
         set element(resource_dir) "$theme(resource_dir)"
 
-        if {!$edit_p} {
+        if {!$edit_p || ![::parameter::get -parameter ShowShadeButton]} {
             set element(shadeable_p) f
+        }
+
+        if {!$edit_p || ![::parameter::get -parameter ShowHideButton]} {
             set element(hideable_p) f
         }
         set element(shaded_p) [ad_decode $element(state) shaded t f]