--- deliantra/server/ext/client-settings-page.ext	2007/12/28 12:44:45	1.1
+++ deliantra/server/ext/client-settings-page.ext	2010/10/16 22:51:51	1.5
@@ -1,4 +1,4 @@
-#! perl # mandatory depends=widget
+#! perl # depends=widget
 
 sub settings_page {
    my ($ns) = @_;
@@ -6,16 +6,23 @@
 
    my $ws = $ns->{ws_settings} = $ns->new_widgetset;
 
+   cf::weaken $ws;
+
    # I hope not doing range checking is ok here...
    $ws->template (face => (cf::face::find "res/ui/pl_settings_page"),
       [
          page      => { },
 
-         title     => { text => $pl->own_title },
+         title     => {
+            text       => $pl->ob->is_dragon ? $pl->title : $pl->own_title,
+            can_events => !$pl->ob->is_dragon,
+         },
          info      => { text => $pl->{user_info} },
          info_save => {
             on_activate => sub {
                $ws->{title}->get (text => sub {
+                  return if $pl->ob->is_dragon;
+
                   $pl->statusmsg ("new title has been saved");
                   $pl->own_title ($_[0]);
                });
@@ -31,10 +38,11 @@
          petmode   => { value => $pl->petmode  , on_changed => sub { $pl->petmode  ($_[1]) } },
          hintmode  => { value => $pl->hintmode , on_changed => sub { $pl->hintmode ($_[1]) } },
          usekeys   => { value => $pl->usekeys  , on_changed => sub { $pl->usekeys  ($_[1]) } },
+         #bumpmsg   => { value => $pl->bumpmsg  , on_changed => sub { $pl->bumpmsg  ($_[1]) } }, # not yet
       ],
       sub {
          $ws->find ("pl_notebook")->add ($ws->{page});
-      }
+      },
    );
 }