--- deliantra/server/ext/client-settings-page.ext	2007/12/29 21:07:23	1.2
+++ 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) = @_;
@@ -13,13 +13,16 @@
       [
          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 {
-               $pl; # work around leaking $pl otherwise, 5.8 at least
-
                $ws->{title}->get (text => sub {
+                  return if $pl->ob->is_dragon;
+
                   $pl->statusmsg ("new title has been saved");
                   $pl->own_title ($_[0]);
                });
@@ -35,6 +38,7 @@
          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});