Index: openacs-4/packages/chat-portlet/www/chat-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/chat-portlet.adp,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/chat-portlet/www/chat-portlet.adp	19 Nov 2007 14:12:54 -0000	1.8
+++ openacs-4/packages/chat-portlet/www/chat-portlet.adp	19 Aug 2008 17:42:59 -0000	1.8.2.1
@@ -16,11 +16,11 @@
     #
 %>
 
-<property name="context">@context;noquote@</property>
-<property name="title">#chat.Chat_main_page#</property>
-
+<if @shaded_p@ false>
 <if @community_id@ gt 0 and @room_create_p@ ne 0>
-[<a href="@chat_url@room-edit" title="#chat.Create_a_new_room#">#chat.Create_a_new_room#</a>]
+<div style="text-align:right">
+<a href="@chat_url@room-edit" title="#chat.Create_a_new_room#" class="button">#chat.Create_a_new_room#</a>
+    </div>
 </if>
 
 <if @rooms:rowcount@ eq 0 or @num_rooms@ eq 0>
@@ -50,3 +50,7 @@
     </multiple>
   </table>
 </else>
+</if>
+<else>
+    #new-portal.when_portlet_shaded#
+</else>
Index: openacs-4/packages/chat-portlet/www/chat-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/chat-portlet.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/chat-portlet/www/chat-portlet.tcl	19 Nov 2007 14:12:54 -0000	1.5
+++ openacs-4/packages/chat-portlet/www/chat-portlet.tcl	19 Aug 2008 17:42:59 -0000	1.5.2.1
@@ -29,11 +29,11 @@
 }
 
 array set config $cf
+set shaded_p $config(shaded_p)
 set list_of_package_ids $config(package_id)
 set sep_package_ids [join $list_of_package_ids ", "]
 set chat_url "[ad_conn package_url]/chat/"
 
-set context [list]
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 set room_create_p [ad_permission_p $user_id chat_room_create]