[ViewVC] Diff of: cvs/deliantra/server/ext/client-settings-page.ext

Comparing deliantra/server/ext/client-settings-page.ext (file contents):
Revision 1.1 by root, Fri Dec 28 12:44:45 2007 UTC vs.
Revision 1.3 by root, Sat Jan 30 23:30:26 2010 UTC

    my ($ns) = @_;
    my $pl = $ns->pl;
    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]);
                });
                $ws->{info}->get (text => sub {
                   $pl->statusmsg ("new character info text has been saved");
          hintmode  => { value => $pl->hintmode , on_changed => sub { $pl->hintmode ($_[1]) } },
          usekeys   => { value => $pl->usekeys  , on_changed => sub { $pl->usekeys  ($_[1]) } },
       ],
       sub {
          $ws->find ("pl_notebook")->add ($ws->{page});
-      }
+      },
    );
 }
 cf::player->attach (
    on_login => sub {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines